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

Author

Robert G. Wilson v, Feb 12 2005

Keywords

• base
• nonn

Crossrefs

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

Programs

Mathematica

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