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

Author

Alexandre Wajnberg, Feb 02 2005

Keywords

• base
• easy
• nonn

Examples

			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.
		

Crossrefs

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

Programs

Mathematica

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

Extensions

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