|
|
A120203
|
|
a(1) = 2; a(n) = floor( (19 + Sum_{i=1..n-1} a(i)) /9).
|
|
1
|
|
|
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, 32, 36, 40, 44, 49, 54, 60, 67, 74, 83, 92, 102, 113, 126, 140, 156, 173, 192, 213, 237, 263, 293, 325, 361, 401, 446, 496, 551, 612
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
option remember;
if n = 1 then
2;
else
floor( (19+ add(procname(i), i=1..n-1))/9) ;
end if;
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|