A103703 Add 4 to each of the preceding digits, beginning with 1.

1, 5, 9, 13, 5, 7, 9, 11, 13, 5, 5, 5, 7, 9, 9, 9, 11, 13, 13, 13, 5, 5, 5, 7, 5, 7, 5, 7, 9, 9, 9, 11, 9, 11, 9, 11, 13, 13, 13, 5, 5, 13, 5, 5, 13, 5, 5, 5, 7, 5, 7, 5, 7, 9, 9, 5, 7, 9, 9, 5, 7, 9, 9, 9, 11, 9, 11, 9, 11, 13, 13, 9, 11, 13, 13, 9, 11, 13, 13, 13, 5, 5, 13, 5, 5, 13, 5, 5, 5, 7

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A103696, A103701, A103702, A103704, A103705, A103706, A103707, A103708.

Sequence in context: A073853 A070370 A277617 * A143706 A079355 A080781

Adjacent sequences: A103700 A103701 A103702 * A103704 A103705 A103706

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 12 2005

Status

approved