login
A179704
Numbers of the form p^5*q*r*s where p, q, r, and s are distinct primes.
3
3360, 5280, 6240, 7392, 8160, 8736, 9120, 11040, 11424, 12320, 12768, 13728, 13920, 14560, 14880, 15456, 17010, 17760, 17952, 19040, 19488, 19680, 20064, 20640, 20832, 21216, 21280, 22560, 22880, 23712, 24288, 24864, 25440, 25760, 26730
OFFSET
1,1
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 1, 1, 5}; Select[Range[30000], f]
PROG
(PARI) list(lim)=my(v=List(), t1, t2, t3); forprime(p=2, sqrtnint(lim\30, 5), t1=p^5; forprime(q=2, lim\(6*t1), if(q==p, next); t2=q*t1; forprime(r=2, lim\(2*t2), if(r==p || r==q, next); t3=r*t2; forprime(s=2, lim\t3, if(s==p || s==q || s==r, next); listput(v, t3*s))))); Set(v) \\ Charles R Greathouse IV, Aug 25 2016
CROSSREFS
Sequence in context: A207055 A251831 A104938 * A222154 A159000 A032773
KEYWORD
nonn
AUTHOR
STATUS
approved