|
%I #7 Apr 21 2021 15:36:27
%S 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,
%T 22,25,28,32,36,40,45,51,57,64,72,81,91,103,116,130,146,165,185,208,
%U 234,264,297,334,376,423,475,535,602,677,762,857,964,1084,1220,1372,1544
%N a(n) = ceiling( Sum_{i=1..n-1} a(i)/8 ), a(1)=1.
%t f[s_] := Append[s, Ceiling[Plus @@ s/8]]; Nest[f, {1}, 67] (* _Robert G. Wilson v_ *)
%Y Cf. A112088, A011782, A073941, A072493, A120160, A120170, A120178, A120186, A120194, A120202.
%K nonn
%O 1,10
%A _Graeme McRae_, Jun 10 2006
%E Edited and extended by _Robert G. Wilson v_, Jul 07 2006
|
