OFFSET
1,1
COMMENTS
MATHEMATICA
Clear[lst, a, f, n, p]; a=3; 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
Indices into Fibonacci and prime sequences added by R. J. Mathar, Aug 18 2009
STATUS
approved