OFFSET
1,1
MATHEMATICA
Select[Range[200], PrimeOmega[Total[IntegerDigits[#]]]==2&] (* Harvey P. Dale, Sep 15 2023 *)
PROG
(PARI) isok(k)=bigomega(sumdigits(k))==2 \\ Andrew Howroyd, Sep 18 2024
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 24 2003
EXTENSIONS
Offset changed by Andrew Howroyd, Sep 18 2024
STATUS
approved