A120203 - OEIS

%I #11 Feb 19 2019 12:31:28

%S 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 32,36,40,44,49,54,60,67,74,83,92,102,113,126,140,156,173,192,213,237,

%U 263,293,325,361,401,446,496,551,612

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

%p A120203 := proc(n)

%p     option remember;

%p     if n = 1 then

%p         2;

%p     else

%p         floor( (19+ add(procname(i),i=1..n-1))/9) ;

%p     end if;

%p end proc: # _R. J. Mathar_, Jul 12 2012

%t f[s_] := Append[s, Floor[(19 + Plus @@ s)/9]]; Nest[f, {2}, 60] (* _Robert G. Wilson v_, Jul 08 2006 *)

%Y Cf. A073941, A112088, A072493.

%K nonn

%O 1,1

%A _Graeme McRae_, Jun 10 2006