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