%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