OFFSET
0,2
EXAMPLE
s(3), as defined at A114510, is {0,0,1,0,2,0,0,1,3}; so a(3) = 9.
MATHEMATICA
s[0] = {0}; s[n_] := s[n] = Flatten[{s[n - 1], s[s[n - 1][[n]]], {n}}]; Table[Length[s[n]], {n, 0, 56}] (* Ray Chandler, Dec 05 2005 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Dec 03 2005
EXTENSIONS
Extended by Ray Chandler, Dec 05 2005
STATUS
approved