A103696 Add 4 to each of the preceding digits, beginning with 0.

0, 4, 8, 12, 5, 6, 9, 10, 13, 5, 4, 5, 7, 9, 8, 9, 11, 13, 12, 13, 5, 5, 5, 7, 5, 6, 5, 7, 9, 9, 9, 11, 9, 10, 9, 11, 13, 13, 13, 5, 5, 13, 5, 4, 13, 5, 5, 5, 7, 5, 7, 5, 7, 9, 9, 5, 7, 9, 8, 5, 7, 9, 9, 9, 11, 9, 11, 9, 11, 13, 13, 9, 11, 13, 12, 9, 11, 13, 13, 13, 5, 5, 13, 5, 5, 13, 5, 5, 5, 7

Offset

0,2

Links

Table of n, a(n) for n=0..89.

Mathematica

Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 4]], {0}, 14]]

Crossrefs

Cf. A102654, A103693, A103694, A103695, A103697, A103698, A103699, A103700.

Sequence in context: A260249 A277616 A211016 * A196267 A004469 A308653

Adjacent sequences: A103693 A103694 A103695 * A103697 A103698 A103699

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 12 2005

Status

approved