OFFSET
1,1
MATHEMATICA
Select[Select[Range[1000], PrimeOmega[#]==2&], PrimeOmega[Total[ IntegerDigits[ #]!]] == 2&] (* Harvey P. Dale, Jul 13 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 25 2003
STATUS
approved