login
Add 9 to each of the preceding digits, beginning with 0.
11

%I #3 Mar 30 2012 17:31:12

%S 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,

%T 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,

%U 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

%N Add 9 to each of the preceding digits, beginning with 0.

%t Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 9]], {0}, 9]]

%Y Cf. A102654, A103693, A103694, A103695, A103696, A103697, A103698, A103699.

%K base,nonn

%O 0,2

%A _Robert G. Wilson v_, Feb 12 2005