OFFSET
1,1
PROG
(PARI) isok(k) = my(f=factor(k)); frac(sum(i=1, #f~, primepi(f[i, 1]))/bigomega(f)) == 1/2; \\ Michel Marcus, Oct 13 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Ctibor O. Zizka, Oct 12 2025
STATUS
approved
