A120194 a(n) = ceiling( Sum_{i=1..n-1} a(i)/8 ), a(1)=1.

1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 91, 103, 116, 130, 146, 165, 185, 208, 234, 264, 297, 334, 376, 423, 475, 535, 602, 677, 762, 857, 964, 1084, 1220, 1372, 1544

Offset

1,10

Links

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

Mathematica

f[s_] := Append[s, Ceiling[Plus @@ s/8]]; Nest[f, {1}, 67] (* Robert G. Wilson v *)

Crossrefs

Cf. A112088, A011782, A073941, A072493, A120160, A120170, A120178, A120186, A120194, A120202.

Sequence in context: A364185 A091946 A094996 * A120195 A121279 A123577

Adjacent sequences: A120191 A120192 A120193 * A120195 A120196 A120197

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

Edited and extended by Robert G. Wilson v, Jul 07 2006

Status

approved