cp's OEIS Frontend

A103695 Add 3 to each of the preceding digits, beginning with 0.

%I A103695 #6 Dec 14 2017 21:17:31
%S A103695 0,3,6,9,12,4,5,7,8,10,11,4,3,4,4,7,6,7,7,10,9,10,10,4,3,12,4,3,4,3,7,
%T A103695 6,4,5,7,6,7,6,10,9,7,8,10,9,10,9,4,3,12,10,11,4,3,12,4,3,12,7,6,4,5,
%U A103695 4,3,4,4,7,6,4,5,7,6,4,5,10,9,7,8,7,6,7,7,10,9,7,8,10,9,7,8,4,3,12,10,11,10
%N A103695 Add 3 to each of the preceding digits, beginning with 0.
%H A103695 Robert Israel, <a href="/A103695/b103695.txt">Table of n, a(n) for n = 0..10000</a>
%p A103695 A[0]:= 0: Agenda:= [0];
%p A103695 for n from 1 to 100 do
%p A103695   t:= Agenda[1] + 3;
%p A103695   if t <= 9 then Agenda:= [op(Agenda[2..-1]),t]
%p A103695   else Agenda:= [op(Agenda[2..-1]),1,t-10]
%p A103695   fi;
%p A103695   A[n]:= t;
%p A103695 od:
%p A103695 seq(A[i],i=0..100); # _Robert Israel_, Dec 14 2017
%t A103695 Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 3]], {0}, 17]]
%Y A103695 Cf. A102654, A103693, A103694, A103696, A103697, A103698, A103699, A103700.
%K A103695 base,nonn
%O A103695 0,2
%A A103695 _Robert G. Wilson v_, Feb 12 2005