A350375 Numbers with exactly 8 semiprime divisors.
1260, 1980, 2100, 2340, 2520, 2772, 2940, 3060, 3150, 3276, 3300, 3420, 3780, 3900, 3960, 4140, 4200, 4284, 4410, 4680, 4788, 4950, 5040, 5100, 5148, 5220, 5544, 5580, 5700, 5796, 5850, 5880, 5940, 6120, 6468, 6552, 6600, 6660, 6732, 6840, 6900, 7020, 7260, 7308
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
q[n_] := DivisorSum[n, 1 &, PrimeOmega[#] == 2 &] == 8; Select[Range[7500], q] (* Amiram Eldar, Dec 28 2021 *)
-
PARI
isok(k) = sumdiv(k, d, bigomega(d)==2) == 8; \\ Michel Marcus, Dec 28 2021