A163853 Primes 4 less than some Fibonacci number.

17, 229, 373, 983, 4177, 6761, 17707, 4052739537877, 190392490709131, 19740274219868223163, 354224848179261915071, 11825896447871834976429068423, 3807901929474025356630904134047

Offset

1,1

Comments

Primes of the form A000045(i)-4, generated by i= 8, 13, 14, 16, 19, 20, 22,...

representing prime(j) at j= 4, 7, 50, 74, 166, 574, 870, 2033,...

Links

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

Mathematica

Clear[lst, a, f, n, p]; a=4; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[p=f-a]&&p> 1, AppendTo[lst, p]], {n, 3*6!}]; lst

Crossrefs

Cf. A000045, A005478, A163851, A163852, A163854, A163855

Sequence in context: A187636 A152588 A152589 * A142547 A243229 A329015

Adjacent sequences: A163850 A163851 A163852 * A163854 A163855 A163856

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 05 2009

Extensions

Some indices to Fibonacci and prime sequences added by R. J. Mathar, Sep 17 2009

Status

approved