OFFSET
1,1
MATHEMATICA
q[n_] := DivisorSum[n, 1 &, PrimeOmega[#] == 2 &] == 4; Select[Range[600], q] (* Amiram Eldar, Dec 28 2021 *)
spd4Q[n_]:=Count[Divisors[n], _?(PrimeOmega[#]==2&)]==4; Select[Range[600], spd4Q] (* Harvey P. Dale, Apr 30 2023 *)
PROG
(PARI) isok(k) = sumdiv(k, d, bigomega(d)==2) == 4; \\ Michel Marcus, Dec 28 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 27 2021
STATUS
approved