%I #2 Mar 30 2012 17:31:12
%S 1,5,9,13,5,7,9,11,13,5,5,5,7,9,9,9,11,13,13,13,5,5,5,7,5,7,5,7,9,9,9,
%T 11,9,11,9,11,13,13,13,5,5,13,5,5,13,5,5,5,7,5,7,5,7,9,9,5,7,9,9,5,7,
%U 9,9,9,11,9,11,9,11,13,13,9,11,13,13,9,11,13,13,13,5,5,13,5,5,13,5,5,5,7
%N Add 4 to each of the preceding digits, beginning with 1.
%t Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 4]], {1}, 22]]
%Y Cf. A103696, A103701, A103702, A103704, A103705, A103706, A103707, A103708.
%K base,nonn
%O 1,2
%A _Robert G. Wilson v_, Feb 12 2005
|