login
a(1)=4; a(n) = floor((31+Sum_{i=1..n-1} a(i))/7).
0

%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