A120178 a(n)=ceiling( sum_{i=1..n-1} a(i)/6), a(1)=1.

1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 20, 23, 27, 32, 37, 43, 50, 59, 69, 80, 93, 109, 127, 148, 173, 202, 235, 275, 320, 374, 436, 509, 594, 693, 808, 943, 1100, 1283, 1497, 1747, 2038, 2377, 2774, 3236, 3775, 4404, 5138, 5995, 6994

Offset: 1

Author

Graeme McRae, Jun 10 2006

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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

Extensions

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