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

Author

Vladimir Joseph Stephan Orlovsky, Jul 25 2010

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000
• Will Nicholes, Prime Signatures

Programs

Mathematica

f[n_]:=Sort[Last/@FactorInteger[n]]=={1,1,8};Select[Range[60000], f]

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