OFFSET
1,1
COMMENTS
Complement of 108632 in the class of semiprimes.
MATHEMATICA
Select[Range[1000], PrimeOmega[#]==2&&ContainsOnly[IntegerDigits[#], {0, 1, 4, 6, 8, 9}]&] (* Harvey P. Dale, Aug 15 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 13 2005
STATUS
approved