OFFSET
0,2
EXAMPLE
s(3), as defined at A114511, is {0,0,0,0,1,0,2}; so a(3) = 7.
MATHEMATICA
s[0] = {0}; s[n_] := s[n] = Flatten[{s[n - 1], s[s[n - 1][[n]]], {n - 1}}]; Table[Length[s[n]], {n, 0, 57}] (* 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