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,1

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, ....

Links

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

Example

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

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

Crossrefs

Cf. A067180, A111309.

Sequence in context: A068297 A196887 A028677 * A037272 A013530 A020365

Adjacent sequences: A114439 A114440 A114441 * A114443 A114444 A114445

Keyword

nonn,base

Author

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

Status

approved