login
A179747
Numbers of the form p^8*q*r where p, q, and r are distinct primes.
4
3840, 5376, 8448, 8960, 9984, 13056, 14080, 14592, 16640, 17664, 19712, 21760, 22272, 23296, 23808, 24320, 28416, 29440, 30464, 31488, 33024, 34048, 36096, 36608, 37120, 39680, 40704, 41216, 45312, 46848, 47360, 47872, 51456, 51968, 52480, 53504, 54528
OFFSET
1,1
LINKS
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 1, 8}; Select[Range[60000], f]
PROG
(PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\6)^(1/8), t1=p^8; forprime(q=2, lim\t1, if(p==q, next); t2=t1*q; forprime(r=q+1, lim\t2, if(p==r, next); listput(v, t2*r)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 24 2011
CROSSREFS
Sequence in context: A212228 A231416 A151564 * A237371 A061404 A234827
KEYWORD
nonn
AUTHOR
STATUS
approved