A120195 a(1)=2; a(n) = floor((17 + Sum_{j=1..n-1} a(j))/8).

2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 25, 28, 32, 36, 40, 45, 51, 57, 64, 72, 81, 92, 103, 116, 130, 147, 165, 186, 209, 235, 264, 297, 335, 376, 423, 476, 536, 603, 678, 763, 858, 966, 1086, 1222, 1375, 1547, 1740, 1958, 2202

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A073941, A112088, A072493.

Sequence in context: A091946 A094996 A120194 * A121279 A123577 A005854

Adjacent sequences: A120192 A120193 A120194 * A120196 A120197 A120198

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

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

Status

approved