OFFSET
1,1
COMMENTS
MATHEMATICA
spdQ[n_]:=Module[{idn=IntegerDigits[n]}, MemberQ[idn, 4] || MemberQ[ idn, 6] || MemberQ[ idn, 9]]; Select[Select[Range[350], PrimeOmega[#]==2&], spdQ] (* Harvey P. Dale, Jun 24 2013 *)
CROSSREFS
Cf. A107342 Semiprimes with semiprime digits (digits 4, 6, 9 only), A107665 Numbers with semiprime digits (digits 4, 6, 9 only), A107666 Primes with semiprime digits (digits 4, 6, 9 only), A111494, A111496, A111697, A108614 Semiprimes with non-semiprimes digits (no digits 4, 6, 9 in semiprimes), A179336.
KEYWORD
base,easy,nonn,less
AUTHOR
Jonathan Vos Post, Jul 15 2010
EXTENSIONS
Corrected (a(37) added) by Harvey P. Dale, Jun 24 2013
STATUS
approved