|
%I #10 Mar 17 2024 18:00:32
%S 2,2,2,3,3,3,4,4,5,6,7,8,9,10,11,13,15,17,19,22,25,29,33,38,43,49,56,
%T 64,73,84,96,110,125,143,164,187,214,244,279,319,365,417,476,544,622,
%U 711,812,928,1061,1213,1386,1584,1810,2069,2364,2702,3088,3529,4033,4609
%N a(1)=2; a(n) = floor((15 + Sum_{j=1..n-1} a(j))/7).
%t f[s_] := Append[s, Floor[(15 + Plus @@ s)/7]]; Nest[f, {2}, 59] (* _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
|
