A375073 Numbers whose prime factorization exponents include at least one 2, at least one 3 and no other exponents.
72, 108, 200, 392, 500, 675, 968, 1125, 1323, 1352, 1372, 1800, 2312, 2700, 2888, 3087, 3267, 3528, 4232, 4500, 4563, 5292, 5324, 5400, 6125, 6728, 7688, 7803, 8575, 8712, 8788, 9000, 9747, 9800, 10584, 10952, 11979, 12168, 12348, 13068, 13448, 13500, 14283, 14792
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Select[Range[15000], Union[FactorInteger[#][[;; , 2]]] == {2, 3} &]
-
PARI
is(k) = Set(factor(k)[,2]) == [2, 3];
Comments