A103705 Add 6 to each of the preceding digits, beginning with 1.

1, 7, 13, 7, 9, 13, 15, 7, 9, 7, 11, 13, 15, 13, 7, 7, 7, 9, 7, 11, 7, 9, 13, 13, 13, 15, 13, 7, 7, 13, 15, 7, 9, 7, 9, 7, 9, 7, 11, 7, 9, 13, 13, 7, 9, 7, 11, 13, 15, 13, 15, 13, 15, 13, 7, 7, 13, 15, 7, 9, 7, 9, 13, 15, 13, 7, 7, 7, 9, 7, 11, 7, 9, 7, 11, 7, 9, 7, 11, 7, 9, 13, 13, 7, 9, 7, 11

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A103698, A103701, A103702, A103703, A103704, A103706, A103707, A103708.

Sequence in context: A225516 A134039 A125741 * A157517 A164929 A357127

Adjacent sequences: A103702 A103703 A103704 * A103706 A103707 A103708

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 12 2005

Status

approved