login
A114442
Least prime whose absolute difference between the sum of its even decimal digits and the sum of its odd decimal digits is n.
0
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, ....
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
Sequence in context: A068297 A196887 A028677 * A037272 A013530 A020365
KEYWORD
nonn,base
AUTHOR
STATUS
approved