%I #10 Mar 29 2013 14:44:25
%S 2,11,19,29,43,47,67,83,103,107,163,167,191,199,211,229,263,283,349,
%T 389,431,439,479,509,541,569,613,617,631,659,701,709,761,769,823,827,
%U 839,859,907,911,919,929,947,967,983,991,1013,1031,1039,1051,1093,1097,1103
%N Primes with the same number of even decimal digits and prime digits.
%H Harvey P. Dale, <a href="/A154765/b154765.txt">Table of n, a(n) for n = 1..1000</a>
%t edpQ[n_]:=Module[{idn=IntegerDigits[n]},Count[idn,_?EvenQ]== Count[ idn,_?PrimeQ]]; Select[Prime[Range[200]],edpQ] (* _Harvey P. Dale_, Mar 29 2013 *)
%K nonn,base,less
%O 1,1
%A _Juri-Stepan Gerasimov_, Jan 15 2009
%E 19 added, 101 removed, 103 and 107 added, 109 removed, 509 added etc. by _R. J. Mathar_, Oct 22 2009
|