OFFSET
0,6
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..5000
MATHEMATICA
a[0] = 0; a[1] = 1; a[2] = 1; a[3] := 1; a[n_]:= a[n] = If[Mod[n, 2] == 0, a[Floor[n/2]], a[a[Floor[(n-1)/2]]] + a[n -a[Floor[(n-3)/2]]]]; Table[a[n], {n, 0, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 11 2010
STATUS
approved