login
A120179
a(1)=2; a(n)=floor((13+sum(a(1) to a(n-1)))/6).
0
2, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 20, 24, 28, 32, 38, 44, 51, 60, 70, 81, 95, 111, 129, 151, 176, 205, 239, 279, 326, 380, 443, 517, 603, 704, 821, 958, 1118, 1304, 1521, 1775, 2071, 2416, 2819, 3288, 3836, 4476, 5222, 6092, 7107, 8292, 9674, 11286
OFFSET
1,1
MATHEMATICA
f[s_] := Append[s, Floor[(13 + Plus @@ s)/6]]; Nest[f, {2}, 57] (* Robert G. Wilson v, Jul 08 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jul 08 2006
STATUS
approved