A375075 Numbers whose prime factorization exponents include at least one 1, at least one 2, at least one 3 and no other exponents.
360, 504, 540, 600, 756, 792, 936, 1176, 1188, 1224, 1350, 1368, 1400, 1404, 1500, 1656, 1836, 1960, 2052, 2088, 2200, 2232, 2250, 2484, 2520, 2600, 2646, 2664, 2904, 2952, 3096, 3132, 3348, 3384, 3400, 3500, 3780, 3800, 3816, 3960, 3996, 4056, 4116, 4200, 4248, 4312, 4392, 4428
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Select[Range[4500], Union[FactorInteger[#][[;; , 2]]] == {1, 2, 3} &]
-
PARI
is(k) = Set(factor(k)[,2]) == [1, 2, 3];
Comments