A103700 Add 9 to each of the preceding digits, beginning with 0.

0, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9, 18, 10, 9, 10, 15, 10, 9, 18, 10, 17, 10, 9, 18, 10, 9, 10, 14, 10, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9, 18, 10, 17, 10, 9, 18, 10, 9, 10, 13, 10, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9, 18, 10, 9, 10, 15, 10, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9

Offset

0,2

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A302232 A069528 A109050 * A158623 A046125 A040072

Adjacent sequences: A103697 A103698 A103699 * A103701 A103702 A103703

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 12 2005

Status

approved