[go: up one dir, main page]

login
A102654
Add 7 to each of the preceding digits, beginning with 0.
9
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
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 *)
KEYWORD
base,easy,nonn
AUTHOR
Alexandre Wajnberg, Feb 02 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 04 2005
STATUS
approved