A216417 Numbers of the form p^2*q^3 where p, q are (not necessarily distinct) primes.
32, 72, 108, 200, 243, 392, 500, 675, 968, 1125, 1323, 1352, 1372, 2312, 2888, 3087, 3125, 3267, 4232, 4563, 5324, 6125, 6728, 7688, 7803, 8575, 8788, 9747, 10952, 11979, 13448, 14283, 14792, 15125, 16807, 17672, 19652, 19773, 21125, 22472, 22707, 25947, 27436, 27848, 29768
Offset: 1
Keywords
Programs
-
Mathematica
With[{nn=50},Take[Union[First[#]^2 Last[#]^3&/@ Tuples[ Prime[ Range[ nn]],2]], nn]] (* Harvey P. Dale, Jan 17 2014 *)