OFFSET
1,2
COMMENTS
MATHEMATICA
Do[f=Fibonacci[n+3]+2; If[PrimeQ[f], Print[n]], {n, 1, 3000}]
Select[Range[10000], PrimeQ[Fibonacci[#+3]+2]&] (* Harvey P. Dale, Jul 01 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 09 2006
EXTENSIONS
More terms from Harvey P. Dale, Jul 01 2019
STATUS
approved