A103706 Add 7 to each of the preceding digits, beginning with 1.

1, 8, 15, 8, 12, 15, 8, 9, 8, 12, 15, 16, 15, 8, 9, 8, 12, 8, 13, 8, 12, 15, 16, 15, 8, 9, 15, 8, 10, 15, 8, 9, 8, 12, 8, 13, 8, 12, 15, 16, 8, 12, 15, 8, 7, 8, 12, 15, 16, 15, 8, 9, 15, 8, 10, 15, 8, 9, 8, 12, 8, 13, 15, 8, 9, 8, 12, 15, 14, 15, 8, 9, 8, 12, 8, 13, 8, 12, 15, 16, 8, 12, 15

Offset

1,2

Links

Table of n, a(n) for n=1..83.

Mathematica

Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 7]], {1}, 10]]

Crossrefs

Cf. A102654, A103701, A103702, A103703, A103704, A103705, A103707, A103708.

Sequence in context: A331814 A082170 A136377 * A134990 A126852 A248389

Adjacent sequences: A103703 A103704 A103705 * A103707 A103708 A103709

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 12 2005

Status

approved