|
Search: id:A060982
|
|
|
| A060982 |
|
Smallest nontrivial number m such that |first digit - second digit + third digit - fourth digit ...| = n. |
|
+0
27
|
|
| 11, 10, 13, 14, 15, 16, 17, 18, 19, 90, 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
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
MATHEMATICA
|
m = 2; 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
|
Cf. A008593, A060978-A060980, A060982, A061470-A061479, A061870-A061882.
Sequence in context: A106421 A019329 A086919 this_sequence A082122 A061882 A120005
Adjacent sequences: A060979 A060980 A060981 this_sequence A060983 A060984 A060985
|
|
KEYWORD
|
base,nonn,easy
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 10 2001
|
|
|
Search completed in 0.002 seconds
|
