login
Primes which are 3 less than some Golden Rectangle Number.
1

%I #4 Mar 31 2012 12:38:25

%S 3,37,101,1867,193864603,2084036199823432507,

%T 268428621074094202095020661268919214060276183552992107,

%U 491408029979212079502411930639737155545416825790885412525976325862355865559627380323835985032165419224284422111

%N Primes which are 3 less than some Golden Rectangle Number.

%C Primes of the form A001654(k)-3 for any k (actually k= 3, 5, 6, 9, 21, 45, 129, 266, 329, 330, 366, 429, 549, 570, 725, 882, 945,...)

%t q=0;lst={};Do[f=Fibonacci[n];If[PrimeQ[f*q-3],AppendTo[lst,f*q-3]];q=f,{n,6!}];lst

%Y Cf. A001654, A163154, A163155

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jul 21 2009