A350373 Numbers with exactly 6 semiprime divisors.
210, 330, 390, 462, 510, 546, 570, 690, 714, 770, 798, 858, 870, 900, 910, 930, 966, 1110, 1122, 1155, 1190, 1218, 1230, 1254, 1290, 1302, 1326, 1330, 1365, 1410, 1430, 1482, 1518, 1554, 1590, 1610, 1722, 1764, 1770, 1785, 1794, 1800, 1806, 1830, 1870, 1914, 1938, 1974, 1995
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
q[n_] := DivisorSum[n, 1 &, PrimeOmega[#] == 2 &] == 6; Select[Range[2000], q] (* Amiram Eldar, Dec 28 2021 *)
-
PARI
isok(k) = sumdiv(k, d, bigomega(d)==2) == 6; \\ Michel Marcus, Dec 28 2021