|
%I #8 Nov 21 2013 12:49:33
%S 0,1,9,10,12,20,21,22,34,36,38,45,54,56,58,63,65,74,76,78,85,87,90,91,
%T 92,99,100,102,110,111,112,119,120,121,122,129,134,136,138,143,145,
%U 147,154,156,158,165,174,176,178,183,185,187,190,192,200,201,202,209,210
%N Nonprimes with the same number of even digits and prime digits.
%C Even digits are 2, 4, 6 or 8. Prime digits are 2, 3, 5 or 7.
%e 0(number=0), 1(number=0), 9(number=0), 10(number=0), 12(number=1), 20(number=1), 21(number=1), 22(number=2), 34(number=1), etc.
%t okQ[n_]:=Module[{idn=IntegerDigits[n]},!PrimeQ[n] && Count[idn, _?PrimeQ] == Count[idn,_?EvenQ]-Count[idn,0]]; Select[Range[0,250],okQ] (* _Harvey P. Dale_, Jan 12 2012 *)
%Y Cf. A141468.
%K nonn,base,less
%O 1,3
%A _Juri-Stepan Gerasimov_, Feb 08 2009
%E Removed 69, inserted 99 and 209 . _R. J. Mathar_, Feb 13 2009
|
