Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A103700
Add 9 to each of the preceding digits, beginning with 0.
11
0, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9, 18, 10, 9, 10, 15, 10, 9, 18, 10, 17, 10, 9, 18, 10, 9, 10, 14, 10, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9, 18, 10, 17, 10, 9, 18, 10, 9, 10, 13, 10, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9, 18, 10, 9, 10, 15, 10, 9, 18, 10, 17, 10, 9, 10, 16, 10, 9
OFFSET
0,2
MATHEMATICA
Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 9]], {0}, 9]]
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Feb 12 2005
STATUS
approved