login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A179703 Numbers of the form p^6*q^2*r where p, q, and r are distinct primes. 3
2880, 4032, 4800, 6336, 7488, 9408, 9792, 10944, 11200, 13248, 14580, 15680, 16704, 17600, 17856, 20412, 20800, 21312, 23232, 23616, 24768, 27072, 27200, 30400, 30528, 32076, 32448, 33984, 34496, 35136, 36450, 36800, 37908, 38592, 38720 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Will Nicholes, Prime Signatures
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 2, 6}; Select[Range[40000], f]
PROG
(PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\12)^(1/6), t1=p^6; forprime(q=2, sqrt(lim\t1), if(p==q, next); t2=t1*q^2; forprime(r=2, lim\t2, if(p==r||q==r, next); listput(v, t2*r)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 24 2011
CROSSREFS
Sequence in context: A101999 A066174 A175750 * A260369 A134856 A066407
KEYWORD
nonn
AUTHOR
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 07:20 EDT 2024. Contains 371235 sequences. (Running on oeis4.)