A350372 Numbers with exactly 5 semiprime divisors.
180, 252, 300, 360, 396, 450, 468, 504, 540, 588, 600, 612, 684, 700, 720, 756, 792, 828, 882, 936, 980, 1008, 1044, 1080, 1100, 1116, 1176, 1188, 1200, 1224, 1300, 1332, 1350, 1368, 1400, 1404, 1440, 1452, 1476, 1500, 1512, 1548, 1575, 1584, 1620, 1656, 1692, 1700
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
q[n_] := DivisorSum[n, 1 &, PrimeOmega[#] == 2 &] == 5; Select[Range[1700], q] (* Amiram Eldar, Dec 28 2021 *)
-
PARI
isok(k) = sumdiv(k, d, bigomega(d)==2) == 5; \\ Michel Marcus, Dec 28 2021
Comments