OFFSET
0,3
MATHEMATICA
f[l_List] := Block[{n = Length[l]}, Append[l, Sum[l[[Mod[l[[k]], n] + 1]], {k, n}]]]; Nest[f, {1}, 37] (* Ray Chandler, Feb 07 2007 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Feb 05 2007
EXTENSIONS
Extended by Ray Chandler, Feb 07 2007
STATUS
approved