OFFSET
1,1
MATHEMATICA
Do[ F=Fibonacci[n]; f=5*F^2-5*F+1; g=5*F^2+5*F+1; If[ PrimeQ[f], If[ PrimeQ[g], Print[ {n, f, g} ] ] ], {n, 1, 1000} ]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Alexander Adamchuk, Oct 18 2007
STATUS
approved