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,8

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A214129 A280151 A094990 * A120179 A032739 A240868

Adjacent sequences: A120175 A120176 A120177 * A120179 A120180 A120181

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

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

Status

approved