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

%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