A163851 Primes of the form Fibonacci(k)-2.
3, 11, 19, 53, 6763, 354224848179261915073, 6356306993006846248181, 6549923758702735390139183573072808204317151158828986996794832713116199613609647330495585293499629115294769, 131000268055609921839337880403168874871518195097038587116150308718344497444830568622793920406537331453336153249817445002421
Offset: 1
Keywords
Programs
-
Mathematica
Clear[lst,a,f,n,p]; a=2;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst Select[Fibonacci[Range[4,1000]]-2,PrimeQ] (* Harvey P. Dale, Jan 12 2019 *)
Extensions
Indices into Fibonacci and prime sequences added by R. J. Mathar, Aug 18 2009
Comments