OFFSET
1,1
COMMENTS
Generated at the indices k= 4, 7, 19, 133, 151, 205, 385, 475, 991, 1153 etc. of the golden rectangle numbers.
MATHEMATICA
q=0; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[f*q-2], AppendTo[lst, f*q-2]]; q=f, {n, 6!}]; lst
Select[#-2&/@(Times@@@Partition[Fibonacci[Range[3, 300]], 2, 1]), PrimeQ] (* Harvey P. Dale, Aug 18 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
STATUS
approved