|
|
A179691
|
|
Numbers p^5*q^2*r where p, q, r are 3 distinct primes.
|
|
7
|
|
|
1440, 2016, 2400, 3168, 3744, 4704, 4860, 4896, 5472, 5600, 6624, 6804, 7840, 8352, 8800, 8928, 10400, 10656, 10692, 11616, 11808, 12150, 12384, 12636, 13536, 13600, 15200, 15264, 16224, 16524, 16992, 17248, 17568, 18400, 18468, 19296, 19360
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 2, 5}; Select[Range[20000], f]
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\12)^(1/5), t1=p^5; forprime(q=2, sqrt(lim\t1), if(p==q, next); t2=t1*q^2; forprime(r=2, lim\t2, if(p==r||q==r, next); listput(v, t2*r)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 24 2011
|
|
CROSSREFS
|
Subsequence of A175746 (numbers with 36 divisors).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|