OFFSET
1,1
MATHEMATICA
l = {0, 1}; Do[x = l[[n]] + l[[Mod[l[[n]], n] + 1]]; If[x == l[[n]], Print[n - 1]]; AppendTo[l, x], {n, 2, 10^9}]
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Ryan Propper, Jan 25 2007
STATUS
approved