%I A103707
%S A103707 1,9,17,9,15,17,9,13,9,15,17,9,11,17,9,13,9,15,17,9,9,9,15,17,9,11,17,
               9,
%T A103707 13,9,15,17,17,17,9,13,9,15,17,9,9,9,15,17,9,11,17,9,13,9,15,9,15,9,15,
%U A103707 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 A103707 Add 8 to each of the preceding digits, beginning with 1.
%t A103707 Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 8]], {1}, 
               9]]
%Y A103707 Cf. A103699, A103701, A103702, A103703, A103704, A103705, A103706, A103708.
%Y A103707 Sequence in context: A053911 A050802 A136313 this_sequence A004751 A134104 
               A124966
%Y A103707 Adjacent sequences: A103704 A103705 A103706 this_sequence A103708 A103709 
               A103710
%K A103707 base,nonn
%O A103707 1,2
%A A103707 Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 12 2005