|
|
A179694
|
|
Numbers of the form p^6*q^3 where p and q are distinct primes.
|
|
6
|
|
|
1728, 5832, 8000, 21952, 85184, 91125, 125000, 140608, 250047, 314432, 421875, 438976, 778688, 941192, 970299, 1560896, 1601613, 1906624, 3176523, 3241792, 3581577, 4410944, 5000211, 5088448, 5359375, 6644672
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={3, 6}; Select[Range[10^6], f]
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t); forprime(p=2, (lim\8)^(1/6), t=p^6; forprime(q=2, (lim\t)^(1/3), if(p==q, next); listput(v, t*q^3))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 24 2011
|
|
CROSSREFS
|
Cf. A006881, A007304, A065036, A085986, A085987, A092759, A178739, A179642, A179643, A179644, A179645, A179646, A179664, A179665, A179666, A179667, A179668, A179669, A179670, A179671, A179672, A179688, A179689, A179690, A179691, A179692, A179693.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|