A114442 Least prime whose absolute difference between the sum of its even decimal digits and the sum of its odd decimal digits is n.

211, 23, 2, 3, 13, 5, 127, 7, 17, 281, 19, 137, 277, 139, 59, 881, 79, 179, 11299, 199, 1559, 2797, 1399, 599, 12799, 997, 1979, 86861, 1999, 13799, 25999, 13999, 49999, 172999, 70999, 19979, 1199929, 39799, 137999, 277999, 139999, 59999, 1299979

Offset: 0

Author

Zak Seidov and Robert G. Wilson v, Feb 04 2006

Keywords

• nonn
• base

Comments

When a(n) is not A067180(n) and n!=0 (mod 3): 1, 11, 13, 17, 20, 22, 26, 29, 31, 32, 34, 35, 37, 38, 40, 44, 47, 49, 53, 55, 56, 58, 59, 61, 62, 65, 67, 70, 71, 73, 74, 76, 77, 80, 82, 83, ....

Examples

			a(0)=211 since 211 is the least prime which meets the criterion; i.e., |2 - (1+1)| = 0.
		

Crossrefs

Cf. A067180, A111309.

Programs

Mathematica

f[n_] := Block[{id = IntegerDigits@Prime@n}, Abs[(Plus @@ id) - 2Plus @@ Select[id, OddQ]]]; t = Table[0, {50}]; Do[ a = f[n]; If[ t[[a + 1]] == 0, t[[a + 1]] = n], {n, 100020}]; t