OFFSET
1,1
COMMENTS
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[ Range[5800], Mod[ Fibonacci[ # ], # + 1]== 0 && Mod[ Fibonacci[ # ], # - 1] == 0 &]
PROG
(PARI) is(n)=n%6==0 && ((Mod([1, 1; 1, 0], n^2-1))^n)[1, 2]==0 \\ Charles R Greathouse IV, May 02 2013
(Magma) [n: n in [2..10^4] | IsZero(Fibonacci(n) mod (n-1)) and IsZero(Fibonacci(n) mod (n+1))]; // Bruno Berselli, May 03 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, May 02 2013
STATUS
approved