A179747 Numbers of the form p^8*q*r where p, q, and r are distinct primes.

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

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

Will Nicholes, Prime Signatures

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

Adjacent sequences: A179744 A179745 A179746 * A179748 A179749 A179750

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 25 2010

Status

approved