OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[500], PrimeOmega[#]==PrimeOmega[Total[IntegerDigits[#]^2]] == 2&] (* Harvey P. Dale, Oct 03 2012 *)
PROG
(PARI) isok(k)={bigomega(k)==2 && bigomega(norml2(digits(k)))==2} \\ Andrew Howroyd, Sep 18 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 24 2003
EXTENSIONS
Offset changed by Andrew Howroyd, Sep 18 2024
STATUS
approved