%I #3 Mar 30 2012 17:31:12
%S 0,8,16,9,14,17,9,12,9,15,17,9,10,17,9,13,9,15,17,9,8,9,15,17,9,11,17,
%T 9,13,9,15,17,16,17,9,13,9,15,17,9,9,9,15,17,9,11,17,9,13,9,15,9,14,9,
%U 15,17,9,11,17,9,13,9,15,17,17,17,9,13,9,15,17,9,9,9,15,17,9,11,17,9,13,17
%N Add 8 to each of the preceding digits, beginning with 0.
%t Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 8]], {0}, 9]]
%Y Cf. A102654, A103693, A103694, A103695, A103696, A103697, A103698, A103700.
%K base,nonn
%O 0,2
%A _Robert G. Wilson v_, Feb 12 2005