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,1

Links

Table of n, a(n) for n=1..13.

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

Crossrefs

Cf. A000045, A163851, A163852, A163853, A163854

Sequence in context: A319144 A111822 A062764 * A268299 A041291 A209331

Adjacent sequences: A163852 A163853 A163854 * A163856 A163857 A163858

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 05 2009

Status

approved