OFFSET
0,3
LINKS
Ivan Neretin, Table of n, a(n) for n = 0..10000
MATHEMATICA
f[l_List] := Append[l, l[[ -2]] + Mod[l[[ -1]], Length[l]]]; Nest[f, {1, 1}, 63] (* Ray Chandler, Feb 08 2007 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Jan 30 2007
EXTENSIONS
Extended by Ray Chandler, Feb 08 2007
STATUS
approved