A103708 - OEIS

%I #10 Jul 08 2020 13:05:22

%S 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 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 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 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 Robert Israel, <a href="/A103708/b103708.txt">Table of n, a(n) for n = 1..10000</a>

%p with(queue):

%p Q:= new(1): R:= 1:

%p for iter from 1 to 100 do

%p   v:= dequeue(Q)+9;

%p   R:= R, v;

%p   L:= convert(v,base,10);

%p   for i from 1 to nops(L) do enqueue(Q,L[-i]) od;

%p od:

%p R; # _Robert Israel_, Jul 06 2020

%t Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 9]], {1}, 8]]

%Y Cf. A103700, A103701, A103702, A103703, A103704, A103705, A103706, A103707.

%K base,nonn

%O 1,2

%A _Robert G. Wilson v_, Feb 12 2005

%E Edited and corrected by _Robert Israel_, Jul 06 2020