OFFSET
1,1
MAPLE
A120203 := proc(n)
option remember;
if n = 1 then
2;
else
floor( (19+ add(procname(i), i=1..n-1))/9) ;
end if;
end proc: # R. J. Mathar, Jul 12 2012
MATHEMATICA
f[s_] := Append[s, Floor[(19 + Plus @@ s)/9]]; Nest[f, {2}, 60] (* Robert G. Wilson v, Jul 08 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
STATUS
approved