|
%I #10 May 13 2013 01:49:35
%S 12960,18144,19440,27216,28512,33696,42768,44064,49248,50544,59616,
%T 60000,66096,73872,75168,80352,89424,95904,106272,111456,112752,
%U 120528,121824,137376,140000,143856,150000,152928,158112,159408,167184,173664
%N Numbers with prime factorization pq^4r^5.
%H T. D. Noe, <a href="/A190468/b190468.txt">Table of n, a(n) for n = 1..1000</a>
%H Will Nicholes, <a href="http://willnicholes.com/math/primesiglist.htm">Prime Signatures</a>
%t f[n_]:=Sort[Last/@FactorInteger[n]]=={1,4,5}; Select[Range[300000],f]
%o (PARI) list(lim)=my(v=List(),t1,t2);forprime(p=2, (lim\48)^(1/5), t1=p^5;forprime(q=2, (lim\t1)^(1/4), if(p==q, next);t2=t1*q^4;forprime(r=2, lim\t2, if(p==r||q==r, next);listput(v,t2*r)))); vecsort(Vec(v)) \\ _Charles R Greathouse IV_, Jul 20 2011
%Y Cf. A190466, A190467.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 10 2011
|
