OFFSET
1,1
COMMENTS
Generated by k= 7, 8, 11, 13, 14, 16, 29, 37, 53, 86, 101, 182, 187, 221,...
MATHEMATICA
Clear[lst, a, f, n, p]; a=10; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[p=f-a]&&p> 1, AppendTo[lst, p]], {n, 3*6!}]; lst
Select[Fibonacci[Range[7, 200]]-10, PrimeQ] (* Harvey P. Dale, Feb 17 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 05 2009
EXTENSIONS
Definition rephrased by R. J. Mathar, Aug 12 2009
STATUS
approved