|
|
A189987
|
|
Numbers with prime factorization pq^6.
|
|
11
|
|
|
192, 320, 448, 704, 832, 1088, 1216, 1458, 1472, 1856, 1984, 2368, 2624, 2752, 3008, 3392, 3645, 3776, 3904, 4288, 4544, 4672, 5056, 5103, 5312, 5696, 6208, 6464, 6592, 6848, 6976, 7232, 8019, 8128, 8384, 8768, 8896, 9477, 9536, 9664, 10048, 10432, 10688
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 6}; Select[Range[30000], f]
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t); forprime(p=2, (lim\2)^(1/6), t=p^6; forprime(q=2, lim\t, if(p==q, next); listput(v, t*q))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 20 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|