OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
MATHEMATICA
T[n_, k_] := T[n, k] = If[Min[k, n - k] == 0, 1, 1 + T[n - Min[k, n - k], Min[k, n - k]]]; Table[Sum[T[n, k], {k, 0, n}], {n, 0, 50}] (* G. C. Greubel, Aug 31 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 28 2005
STATUS
approved