A163855 Primes p such that p+6 is a Fibonacci number.

2, 7, 83, 227, 24157811, 2971215067, 53316291167, 5527939700884751, 99194853094755491, 420196140727489667, 4660046610375530303, 83621143489848422971, 1066340417491710595814572163

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Aug 05 2009

Keywords

• nonn

Crossrefs

Cf. A000045, A163851, A163852, A163853, A163854

Programs

Mathematica

Clear[lst,a,f,n,p]; a=6;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst
Select[Fibonacci[Range[5,200]]-6,PrimeQ] (* Harvey P. Dale, Jun 01 2024 *)