The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Dec 05 2013 19:54:51
%S 0,1,2,3,4,5,6,7,8,9,109,209,309,409,509,609,709,809,909,10909,20909,
%T 30909,40909,50909,60909,70909,80909,90909,1090909,2090909,3090909,
%U 4090909,5090909,6090909,7090909,8090909,9090909,109090909,209090909
%N Smallest number m such that first digit - second digit + third digit - fourth digit ... (of m) = n.
%e a(14) = 509 as 5-0+9 =14 and it is the smallest such number.
%t 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} ]
%Y Subsequence of A032945.
%Y Cf. A225693, A008593, A060978-A060980, A060982, A061470-A061478, A061870-A061882.
%K nonn,base
%O 0,3
%A _Amarnath Murthy_, May 05 2001
%E More terms from _Robert G. Wilson v_, May 10 2001