|
%I #10 Mar 17 2024 18:00:23
%S 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,
%T 45,51,57,64,72,81,92,103,116,130,147,165,186,209,235,264,297,335,376,
%U 423,476,536,603,678,763,858,966,1086,1222,1375,1547,1740,1958,2202
%N a(1)=2; a(n) = floor((17 + Sum_{j=1..n-1} a(j))/8).
%t f[s_] := Append[s, Floor[(17 + Plus @@ s)/8]]; Nest[f, {2}, 60] (* _Robert G. Wilson v_, Jul 08 2006 *)
%Y Cf. A073941, A112088, A072493.
%K nonn
%O 1,1
%A _Graeme McRae_, Jun 10 2006
%E More terms from _Robert G. Wilson v_, Jul 08 2006
|
