A120187 a(1)=2; a(n) = floor((15 + Sum_{j=1..n-1} a(j))/7).

2, 2, 2, 3, 3, 3, 4, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 22, 25, 29, 33, 38, 43, 49, 56, 64, 73, 84, 96, 110, 125, 143, 164, 187, 214, 244, 279, 319, 365, 417, 476, 544, 622, 711, 812, 928, 1061, 1213, 1386, 1584, 1810, 2069, 2364, 2702, 3088, 3529, 4033, 4609

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A073941, A112088, A072493.

Sequence in context: A053265 A035452 A199575 * A029062 A219502 A219704

Adjacent sequences: A120184 A120185 A120186 * A120188 A120189 A120190

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

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

Status

approved