A179704 Numbers of the form p^5*q*r*s where p, q, r, and s are distinct primes.

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

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Will Nicholes, Prime Signatures

Index to sequences related to prime signature

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

Adjacent sequences: A179701 A179702 A179703 * A179705 A179706 A179707

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 24 2010

Status

approved