A102654 Add 7 to each of the preceding digits, beginning with 0.

0, 7, 14, 8, 11, 15, 8, 8, 8, 12, 15, 15, 15, 8, 9, 8, 12, 8, 12, 8, 12, 15, 16, 15, 8, 9, 15, 8, 9, 15, 8, 9, 8, 12, 8, 13, 8, 12, 15, 16, 8, 12, 15, 16, 8, 12, 15, 16, 15, 8, 9, 15, 8, 10, 15, 8, 9, 8, 12, 8, 13, 15, 8, 9, 8, 12, 8, 13, 15, 8, 9, 8, 12, 8, 13, 8, 12, 15, 16, 8, 12, 15, 8, 7

Offset

0,2

Links

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

Example

Add 7 to the first "7" gives 14
Add 7 to the "1" of this 14 gives 8; and adding 7 to the "4" of this 14 gives 11.

Mathematica

Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 7]], {0}, 10]] (* Robert G. Wilson v, Feb 04 2005 *)

Crossrefs

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

Sequence in context: A160534 A022699 A362586 * A048727 A295123 A196178

Adjacent sequences: A102651 A102652 A102653 * A102655 A102656 A102657

Keyword

base,easy,nonn

Author

Alexandre Wajnberg, Feb 02 2005

Extensions

More terms from Robert G. Wilson v, Feb 04 2005

Status

approved