login
A179703
Numbers of the form p^6*q^2*r where p, q, and r are distinct primes.
3
2880, 4032, 4800, 6336, 7488, 9408, 9792, 10944, 11200, 13248, 14580, 15680, 16704, 17600, 17856, 20412, 20800, 21312, 23232, 23616, 24768, 27072, 27200, 30400, 30528, 32076, 32448, 33984, 34496, 35136, 36450, 36800, 37908, 38592, 38720
OFFSET
1,1
LINKS
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 2, 6}; Select[Range[40000], f]
PROG
(PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\12)^(1/6), t1=p^6; 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
Sequence in context: A101999 A066174 A175750 * A260369 A134856 A066407
KEYWORD
nonn
AUTHOR
STATUS
approved