%I #21 Dec 26 2023 07:52:38
%S 1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,3,3,3,4,4,5,5,6,6,7,8,9,10,11,12,13,15,
%T 16,18,20,22,25,28,31,34,38,42,47,52,58,64,71,79,88,98,109,121,134,
%U 149,166,184,205,227,253,281,312,347,385,428,476,528,587,652,725,805,895
%N a(n) = ceiling( Sum_{i=1..n-1} a(i)/9), a(1)=1.
%H Robert Israel, <a href="/A120202/b120202.txt">Table of n, a(n) for n = 1..10000</a>
%p N:= 100: # to get a(1) to a(N)
%p S:= 0: A[1]:= 1:
%p for n from 2 to N do
%p S:= S + A[n-1];
%p A[n]:= ceil(S/9);
%p od:
%p seq(A[n],n=1..N); # _Robert Israel_, Jul 14 2014
%t a[s_] := Append[s, Ceiling[Plus @@ s/9]]; Nest[a, {1}, 70] (* _Robert G. Wilson v_, Jul 07 2006 *)
%Y Cf. A112088, A011782, A073941, A072493, A120160, A120170, A120178, A120186, A120194.
%K nonn
%O 1,11
%A _Graeme McRae_, Jun 10 2006
%E Edited and extended by _Robert G. Wilson v_, Jul 07 2006
%E Typo in name corrected by _Tom Edgar_, Jul 14 2014