login
A120178
a(n)=ceiling( sum_{i=1..n-1} a(i)/6), a(1)=1.
9
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
MATHEMATICA
f[s_] := Append[s, Ceiling[Plus @@ s/5]]; Nest[f, {1}, 61] (* Robert G. Wilson v *)
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jul 07 2006
STATUS
approved