|
|
A190467
|
|
Numbers with prime factorization pq^3r^6.
|
|
4
|
|
|
8640, 12096, 19008, 22464, 24000, 29160, 29376, 32832, 39744, 40824, 50112, 53568, 56000, 63936, 64152, 65856, 70848, 74304, 75816, 81216, 88000, 91584, 99144, 101952, 104000, 105408, 109760, 110808, 115776, 122688, 126144, 134136, 136000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 3, 6}; Select[Range[200000], f]
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\24)^(1/6), t1=p^6; forprime(q=2, (lim\t1)^(1/3), if(p==q, next); t2=t1*q^3; 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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|