OFFSET
1,1
COMMENTS
F(n) = Fibonacci numbers A000045.
EXAMPLE
n=20: a(20) = 7 because F(20)=6765 == 3 mod 7, F(22)=17711 == 1 mod 7 and 7 is the least m such that 6765 > 17711 mod m.
MATHEMATICA
s={}; Do[n1=Fibonacci [n]; n2=Fibonacci [n+2]; Do[If[Mod[n1, m]>Mod[n2, m], AppendTo[s, {n, n1, n2, m}]; Break[]], {m, 1, 200}], {n, 2, 120}]; Last/@s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 31 2006
STATUS
approved