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
CROSSREFS
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