A120179 a(1)=2; a(n)=floor((13+sum(a(1) to a(n-1)))/6).

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

Links

Table of n, a(n) for n=1..58.

Mathematica

f[s_] := Append[s, Floor[(13 + Plus @@ s)/6]]; Nest[f, {2}, 57] (* Robert G. Wilson v, Jul 08 2006 *)

Crossrefs

Cf. A073941, A112088, A072493.

Sequence in context: A280151 A094990 A120178 * A032739 A240868 A029149

Adjacent sequences: A120176 A120177 A120178 * A120180 A120181 A120182

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

More terms from Robert G. Wilson v, Jul 08 2006

Status

approved