cp's OEIS Frontend

A103708 a(n+1) = d(n)+9 where d(n) is the n-th decimal digit in the concatenation of the digits in the sequence, starting with a(1)=1.

%I A103708 #10 Jul 08 2020 13:05:22
%S A103708 1,10,10,9,10,9,18,10,9,18,10,17,10,9,18,10,17,10,9,10,16,10,9,18,10,
%T A103708 17,10,9,10,16,10,9,18,10,9,10,15,10,9,18,10,17,10,9,10,16,10,9,18,10,
%U A103708 9,10,15,10,9,18,10,17,10,9,18,10,9,10,14,10,9,18,10,17,10,9,10,16,10,9,18,10
%N A103708 a(n+1) = d(n)+9 where d(n) is the n-th decimal digit in the concatenation of the digits in the sequence, starting with a(1)=1.
%H A103708 Robert Israel, <a href="/A103708/b103708.txt">Table of n, a(n) for n = 1..10000</a>
%p A103708 with(queue):
%p A103708 Q:= new(1): R:= 1:
%p A103708 for iter from 1 to 100 do
%p A103708   v:= dequeue(Q)+9;
%p A103708   R:= R, v;
%p A103708   L:= convert(v,base,10);
%p A103708   for i from 1 to nops(L) do enqueue(Q,L[-i]) od;
%p A103708 od:
%p A103708 R; # _Robert Israel_, Jul 06 2020
%t A103708 Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 9]], {1}, 8]]
%Y A103708 Cf. A103700, A103701, A103702, A103703, A103704, A103705, A103706, A103707.
%K A103708 base,nonn
%O A103708 1,2
%A A103708 _Robert G. Wilson v_, Feb 12 2005
%E A103708 Edited and corrected by _Robert Israel_, Jul 06 2020