login
A120194
a(n) = ceiling( Sum_{i=1..n-1} a(i)/8 ), a(1)=1.
10
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
MATHEMATICA
f[s_] := Append[s, Ceiling[Plus @@ s/8]]; Nest[f, {1}, 67] (* 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