OFFSET
1,1
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..1000
Chris Caldwell, The Prime Glossary, Fibonacci number
C. K. Caldwell, "Top Twenty" page, Fibonacci cofactor
MATHEMATICA
Select[Prime@Range[5084], Mod[Fibonacci[#], 8*#^2 - 2*# - 1] == 0 &] (* Arkadiusz Wesolowski, Dec 12 2011 *)
PROG
(Magma) [p : p in PrimesUpTo(49477) | IsZero(Fibonacci(p) mod (8*p^2-2*p-1))]; // Arkadiusz Wesolowski, Nov 09 2013
(PARI) forprime(p=2, 49477, if(Mod(fibonacci(p), 8*p^2-2*p-1)==0, print1(p, ", "))); \\ Arkadiusz Wesolowski, Nov 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Apr 06 2009
STATUS
approved