%I #8 Jul 22 2024 09:16:11
%S 4,5,5,6,7,8,9,10,12,13,15,17,20,23,26,30,34,39,44,51,58,66,76,87,99,
%T 113,129,148,169,193,221,252,288,329,376,430,491,562,642,734,838,958,
%U 1095,1251,1430,1634,1868,2135,2440,2788,3187,3642,4162,4757,5436,6213
%N a(1)=4; a(n) = floor((31+Sum_{i=1..n-1} a(i))/7).
%t a[n_]:=Module[{s=k=4}, For[i=1, i<n, i++, k=Floor[(31+s)/7]; s+=k]; k]; Array[a,56] (* _Stefano Spezia_, Jul 21 2024 *)
%Y Cf. A073941, A112088, A072493.
%K nonn
%O 1,1
%A _Graeme McRae_, Jun 10 2006
%E a(41)-a(56) from _Stefano Spezia_, Jul 21 2024