login
A163853
Primes 4 less than some Fibonacci number.
3
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,...
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
Some indices to Fibonacci and prime sequences added by R. J. Mathar, Sep 17 2009
STATUS
approved