OFFSET
1,1
MATHEMATICA
q[n_] := DivisorSum[n, 1 &, PrimeOmega[#] == 2 &] == 6; Select[Range[2000], q] (* Amiram Eldar, Dec 28 2021 *)
PROG
(PARI) isok(k) = sumdiv(k, d, bigomega(d)==2) == 6; \\ Michel Marcus, Dec 28 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 27 2021
STATUS
approved