cp's OEIS Frontend

A120203 a(1) = 2; a(n) = floor( (19 + Sum_{i=1..n-1} a(i)) /9).

%I A120203 #11 Feb 19 2019 12:31:28
%S A120203 2,2,2,2,3,3,3,4,4,4,5,5,6,7,7,8,9,10,11,12,14,15,17,19,21,23,26,29,
%T A120203 32,36,40,44,49,54,60,67,74,83,92,102,113,126,140,156,173,192,213,237,
%U A120203 263,293,325,361,401,446,496,551,612
%N A120203 a(1) = 2; a(n) = floor( (19 + Sum_{i=1..n-1} a(i)) /9).
%p A120203 A120203 := proc(n)
%p A120203     option remember;
%p A120203     if n = 1 then
%p A120203         2;
%p A120203     else
%p A120203         floor( (19+ add(procname(i),i=1..n-1))/9) ;
%p A120203     end if;
%p A120203 end proc: # _R. J. Mathar_, Jul 12 2012
%t A120203 f[s_] := Append[s, Floor[(19 + Plus @@ s)/9]]; Nest[f, {2}, 60] (* _Robert G. Wilson v_, Jul 08 2006 *)
%Y A120203 Cf. A073941, A112088, A072493.
%K A120203 nonn
%O A120203 1,1
%A A120203 _Graeme McRae_, Jun 10 2006