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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A190470 Numbers with prime factorization p^2q^3r^5. 4
 21600, 36000, 42336, 48600, 95256, 98784, 104544, 121500, 146016, 196000, 225000, 235224, 249696, 274400, 311904, 328536, 333396, 337500, 383328, 457056, 484000, 561816, 632736, 676000, 701784, 726624, 830304, 1028376, 1064800, 1156000 (list; graph; refs; listen; history; text; internal format)
 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]]=={2, 3, 5}; Select[Range[2500000], f] (*and*) lst={}; Do[If[k!=n && k!=m && n!=m, AppendTo[lst, Prime[k]^2*Prime[n]^3*Prime[m]^5]], {n, 20}, {m, 20}, {k, 20}]; Take[Union@lst, 60] PROG (PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\72)^(1/5), t1=p^5; forprime(q=2, (lim\t1)^(1/3), if(p==q, next); t2=t1*q^3; forprime(r=2, sqrt(lim\t2), if(p==r||q==r, next); listput(v, t2*r^2)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 24 2011 CROSSREFS Cf. A190467, A190468, A190469. Sequence in context: A252393 A211236 A221002 * A113620 A074812 A037160 Adjacent sequences: A190467 A190468 A190469 * A190471 A190472 A190473 KEYWORD nonn AUTHOR Vladimir Joseph Stephan Orlovsky, May 10 2011 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.

Last modified November 28 08:03 EST 2023. Contains 367394 sequences. (Running on oeis4.)