cp's OEIS Frontend

A120202 a(n) = ceiling( Sum_{i=1..n-1} a(i)/9), a(1)=1.

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