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

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

%S 0,6,12,7,8,13,14,7,9,7,10,13,15,13,7,6,7,9,7,11,7,9,13,12,13,15,13,7,

%T 7,13,15,7,9,7,8,7,9,7,11,7,9,13,13,7,9,7,11,13,15,13,14,13,15,13,7,7,

%U 13,15,7,9,7,9,13,15,13,7,7,7,9,7,11,7,9,7,10,7,9,7,11,7,9,13,13,7,9,7,11

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

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

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

%K base,nonn

%O 0,2

%A _Robert G. Wilson v_, Feb 12 2005