OFFSET
1,1
COMMENTS
Semiprimes with odd digits are more numerous than those with even digits, cf. A108636.
MATHEMATICA
Select[Range[1000], Plus@@Last/@FactorInteger[ # ]==2&&Union[OddQ/@IntegerDigits[ # ]]=={True}&]
PrimeFactorExponentsAdded[n_] := Plus @@ Flatten[ Table[ #[[2]], {1}] & /@ FactorInteger[n]]; Select[ Range[ 938], PrimeFactorExponentsAdded[ # ] == 2 && Union[ OddQ /@ IntegerDigits[ # ]] == {True} &] (* Robert G. Wilson v *)
Select[Range[1000], PrimeOmega[#]==2 && And@@OddQ[IntegerDigits[#]]&] (* Harvey P. Dale, Jul 12 2011 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Feb 22 2004
EXTENSIONS
Corrected and extended by Ray Chandler and Robert G. Wilson v, Feb 25 2004
Edited by N. J. A. Sloane, Apr 20 2007
STATUS
approved