|
%I
%S 2,3,7,41,1871,4599466948725481982057,153554501132879618787551305057
%N Primes of the form 1 + some Golden Rectangle Number.
%C Primes of the form 1+A001654(k) for some k, as actually generated by k=1, 2, 3, 5, 9, 53, 71,....
%t q=0;lst={};Do[f=Fibonacci[n];If[PrimeQ[f*q+1],AppendTo[lst,f*q+1]];q=f, {n,3*6!}];lst
%Y Cf. A001654, A000045, A163154, A163155, A163156
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 21 2009
%E Slightly edited by _R. J. Mathar_, Jul 25 2009
|
