OFFSET
0,3
EXAMPLE
a(14) = 509 as 5-0+9 =14 and it is the smallest such number.
MATHEMATICA
m = 0; Do[ While[ a = IntegerDigits[ m ]; l = Length[ a ]; e = o = {}; Do[ o = Append[ o, a[ [ 2k - 1 ] ] ], {k, 1, l/2 + .5} ]; Do[ e = Append[ e, a[ [ 2k ] ] ], {k, 1, l/2} ]; Abs[ Apply[ Plus, o ] - Apply [ Plus, e ] ] != n, m++ ]; Print[ m ], {n, 1, 50} ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, May 05 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 10 2001
STATUS
approved