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
KEYWORD
nonn,base
AUTHOR
Zak Seidov and Robert G. Wilson v, Feb 04 2006
STATUS
approved