A103693 Add 1 to each of the preceding digits, beginning with 0.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 1, 3, 2, 4, 3, 5, 4, 6, 5, 7, 6, 8, 7, 9, 8, 10, 9, 2, 1, 10, 3, 2, 2, 1, 4, 3, 3, 2, 5, 4, 4, 3, 6, 5, 5, 4, 7, 6, 6, 5, 8, 7, 7, 6, 9, 8, 8, 7, 10, 9, 9, 8, 2, 1, 10, 10, 9, 3, 2, 2, 1, 2, 1, 10, 4, 3, 3, 2, 3, 2, 2, 1, 5, 4, 4, 3, 4, 3, 3, 2, 6, 5, 5, 4, 5, 4, 4, 3, 7, 6, 6

Offset

0,3

Links

Table of n, a(n) for n=0..102.

Mathematica

Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 1]], {0}, 34]]

Crossrefs

Cf. A102654, A103694, A103695, A103696, A103697, A103698, A103699, A103700.

Sequence in context: A056960 A227362 A297236 * A117230 A093882 A138953

Adjacent sequences: A103690 A103691 A103692 * A103694 A103695 A103696

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 12 2005

Status

approved