A103702 Add 3 to each of the preceding digits, beginning with 1.

1, 4, 7, 10, 4, 3, 7, 6, 10, 9, 4, 3, 12, 7, 6, 4, 5, 10, 9, 7, 8, 4, 3, 12, 10, 11, 7, 6, 4, 5, 4, 3, 4, 4, 10, 9, 7, 8, 7, 6, 7, 7, 4, 3, 12, 10, 11, 10, 9, 10, 10, 7, 6, 4, 5, 4, 3, 4, 4, 4, 3, 12, 4, 3, 4, 3, 10, 9, 7, 8, 7, 6, 7, 7, 7, 6, 4, 5, 7, 6, 7, 6, 4, 3, 12, 10, 11, 10, 9, 10, 10, 10, 9, 7

Offset

1,2

Links

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

Mathematica

Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 3]], {1}, 22]]

Crossrefs

Cf. A103695, A103701, A103703, A103704, A103705, A103706, A103707, A103708.

Sequence in context: A330695 A063798 A084035 * A118517 A282848 A093465

Adjacent sequences: A103699 A103700 A103701 * A103703 A103704 A103705

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 12 2005

Status

approved