editing

approved

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

approved

editing

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

Edited and extended by_Robert G. Wilson v(rgwv(at)rgwv.com),_,Jul 07 2006

_Graeme McRae(g_m(AT)mcraefamily.com),_,Jun 10 2006

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

nonn,new

nonn

Edited and extended byRGWvRobertG.Wilsonv(rgwv(at)rgwv.com), Jul 07 2006

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

1,10

f[s_]:= Append[s, Ceiling[Plus @@ s/8]]; Nest[f, {1}, 67] (* RGWv *)

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

nonn

Graeme McRae (g_m(AT)mcraefamily.com), Jun 10 2006

Edited and extended by RGWv (rgwv(at)rgwv.com), Jul 07 2006

approved