login
A163155
Primes of the form A001654(k) - 2.
2
13, 271, 28284463, 12610431355437389859745050577282818321295774208230808159, 421002806942919116087256468214897259565893934905313644799059599
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
STATUS
approved