A076167 Primes p such that sum of even digits of p equals sum of odd digits of p.

211, 431, 853, 1021, 1087, 1201, 1223, 1289, 1447, 1627, 2011, 2213, 2617, 2671, 2819, 2837, 3041, 3221, 3467, 4013, 4637, 4673, 4691, 5443, 5623, 5689, 5869, 6217, 6271, 6473, 6491, 7283, 7621, 7643, 7687, 7823, 7867, 8017, 8053, 8219, 8237, 8273

Offset

1,1

Comments

Numbers n such that sum of even digits equals sum of odd digits in A036301.

Links

Table of n, a(n) for n=1..42.

Example

2671 is OK because 2+6=7+1.

Mathematica

soeQ[n_]:=2*Total[Select[(x=IntegerDigits[n]), OddQ[#]&]]==Total[x]; Select[Prime[Range[1050]], soeQ[#]&] (* Jayanta Basu, May 23 2013 *)

Crossrefs

Cf. A036301.

Sequence in context: A140535 A258332 A073102 * A217620 A289993 A300334

Adjacent sequences: A076164 A076165 A076166 * A076168 A076169 A076170

Keyword

nonn,base

Author

Zak Seidov, Nov 01 2002

Status

approved