%I #8 May 23 2013 09:48:08
%S 211,431,853,1021,1087,1201,1223,1289,1447,1627,2011,2213,2617,2671,
%T 2819,2837,3041,3221,3467,4013,4637,4673,4691,5443,5623,5689,5869,
%U 6217,6271,6473,6491,7283,7621,7643,7687,7823,7867,8017,8053,8219,8237,8273
%N Primes p such that sum of even digits of p equals sum of odd digits of p.
%C Numbers n such that sum of even digits equals sum of odd digits in A036301.
%e 2671 is OK because 2+6=7+1.
%t soeQ[n_]:=2*Total[Select[(x=IntegerDigits[n]),OddQ[#]&]]==Total[x]; Select[Prime[Range[1050]],soeQ[#]&] (* _Jayanta Basu_, May 23 2013 *)
%Y Cf. A036301.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Nov 01 2002
