OFFSET
2,1
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..1000
MATHEMATICA
f[s_] := f[s] = Append[s, Mod[s[[ -2]] + s[[ -1]], Length[s]]]; t = Nest[f, {1, 1}, 106]; s = {}; Do[AppendTo[s, If[t[[n]] + t[[n + 1]] < n + 1, 0, 1]], {n, 105}]; s (* Robert G. Wilson v Sep 02 2006 *)
PROG
(PARI) {m=107; a=1; b=1; for(n=2, m, d=divrem(a+b, n); print1(d[1], ", "); a=b; b=d[2])}
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Aug 29 2006
STATUS
approved