|
%I #10 Feb 19 2019 11:48:25
%S 1,1,1,1,1,1,1,1,2,2,2,2,3,3,4,4,5,5,6,7,8,9,10,12,14,16,18,20,23,27,
%T 30,35,40,45,52,59,68,77,88,101,115,132,151,172,197,225,257,294,336,
%U 384,439,501,573,655,748,855,977,1117,1277,1459,1667,1906,2178,2489,2845
%N a(n) = ceiling( Sum_{i=1..n-1} a(i)/7 ), a(1) = 1.
%t f[s_] := Append[s, Ceiling[Plus @@ s/7]]; Nest[f, {1}, 64] (* _Robert G. Wilson v_, Jul 07 2006 *)
%Y Cf. A112088, A072493, A011782, A073941, A072493, A120160, A120170, A120178, A120186, A120194, A120202.
%K nonn
%O 1,9
%A _Graeme McRae_, Jun 10 2006
%E Edited and extended by _Robert G. Wilson v_, Jul 07 2006
|
