OFFSET
0,3
MATHEMATICA
a = 0; b = 1; i = 2; Do[c = Mod[a + b, i^2]; If[c == 0, Print[i]]; a = b; b = c; i++, {1000000}]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Neil Fernandez, Jun 23 2004
STATUS
approved