OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..185
MATHEMATICA
Do[If[Mod[Fibonacci[n] + Fibonacci[n+2], n] == 0, Print[n]], {n, 1, 120000}] (* Ryan Propper, Jun 20 2005 *)
PROG
(PARI) is(n)=(Mod([0, 1; 1, 1], n)^(n+1)*[2; 1])[1, 1]==0 \\ Charles R Greathouse IV, Nov 04 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric Rowland, May 01 2004
EXTENSIONS
110564 from Emeric Deutsch, Mar 30 2005
19 more terms from Ryan Propper, Jun 20 2005
STATUS
approved