A061479 Smallest number m such that first digit - second digit + third digit - fourth digit ... (of m) = n.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 109, 209, 309, 409, 509, 609, 709, 809, 909, 10909, 20909, 30909, 40909, 50909, 60909, 70909, 80909, 90909, 1090909, 2090909, 3090909, 4090909, 5090909, 6090909, 7090909, 8090909, 9090909, 109090909, 209090909
Offset: 0
Examples
a(14) = 509 as 5-0+9 =14 and it is the smallest such number.
Crossrefs
Programs
-
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} ]
Extensions
More terms from Robert G. Wilson v, May 10 2001
Comments