A163852 Primes of the form Fibonacci(k)-3.
2, 5, 31, 607, 628580612875886694881648328579603114508131388106874704297602636435532791990880832689119, 7531436383873795315009506236096188648036856522778750817396763797198414070984881727501992372613765176393353441439
Offset: 1
Keywords
Crossrefs
Cf. A163851.
Programs
-
Mathematica
Clear[lst,a,f,n,p]; a=3;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst
Extensions
Indices into Fibonacci and prime sequences added by R. J. Mathar, Aug 18 2009
Comments