%I #6 Aug 15 2017 17:55:36
%S 4,6,9,10,14,46,49,69,86,91,94,106,111,118,119,141,146,161,166,169,
%T 194,411,446,466,469,481,489,611,614,649,669,681,689,694,698,699,818,
%U 841,849,866,869,886,889,898,899,901,914,949,961,989,998
%N Semiprimes with nonprime digits (no digits 2,3,5,7 in semiprimes).
%C Complement of 108632 in the class of semiprimes.
%t Select[Range[1000],PrimeOmega[#]==2&&ContainsOnly[IntegerDigits[#],{0,1,4,6,8,9}]&] (* _Harvey P. Dale_, Aug 15 2017 *)
%Y Cf. A108632.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Jun 13 2005
|