A190316 Numbers with prime factorization pqrstuv^3.

2042040, 2282280, 2762760, 2984520, 3483480, 3527160, 3612840, 3723720, 4037880, 4269720, 4444440, 4555320, 4594590, 4772040, 4869480, 4924920, 5091240, 5135130, 5165160, 5383560, 5442360, 5542680, 5645640, 5754840, 5811960, 6016920, 6163080, 6216210

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, May 10 2011

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A190390, A190391.

Programs

Mathematica

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

PARI

isA190316(n)=vecsort(factor(n)[,2])==[1, 1, 1, 1, 1, 1, 3]~ \\ Charles R Greathouse IV, May 10 2011

Extensions

Extended by T. D. Noe, May 10 2011