login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A190468
Numbers with prime factorization pq^4r^5.
4
12960, 18144, 19440, 27216, 28512, 33696, 42768, 44064, 49248, 50544, 59616, 60000, 66096, 73872, 75168, 80352, 89424, 95904, 106272, 111456, 112752, 120528, 121824, 137376, 140000, 143856, 150000, 152928, 158112, 159408, 167184, 173664
OFFSET
1,1
LINKS
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 4, 5}; Select[Range[300000], f]
PROG
(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
CROSSREFS
Sequence in context: A090887 A246890 A145333 * A028385 A335742 A238142
KEYWORD
nonn
AUTHOR
STATUS
approved