OFFSET
1,1
LINKS
Chris Caldwell, The Prime Glossary, Fibonacci number
C. K. Caldwell, "Top Twenty" page, Fibonacci cofactor
MATHEMATICA
Select[Prime@Range[10^3], Mod[Fibonacci[#], 112*#^3 - 36*#^2 - 12*# + 1] == 0 &]
PROG
(PARI) a=-1; b=1; for(n=0, 2548623, a=a+b; b=b+a; p=2*n+1; if(isprime(p)&&Mod(b, 112*p^3-36*p^2-12*p+1)==0, print1(p, ", "))); \\ Arkadiusz Wesolowski, Nov 16 2013
CROSSREFS
KEYWORD
less,nonn
AUTHOR
Arkadiusz Wesolowski, Aug 04 2012
STATUS
approved