login
A190316
Numbers with prime factorization pqrstuv^3.
2
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,1
LINKS
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 1, 1, 1, 1, 1, 3}; Select[Range[3000000], f]
PROG
(PARI) isA190316(n)=vecsort(factor(n)[, 2])==[1, 1, 1, 1, 1, 1, 3]~ \\ Charles R Greathouse IV, May 10 2011
CROSSREFS
Sequence in context: A163682 A045871 A272598 * A034639 A206667 A251512
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended by T. D. Noe, May 10 2011
STATUS
approved