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

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, 113, 129, 148, 169, 193, 221, 252, 288, 329, 376, 430, 491, 562, 642, 734, 838, 958, 1095, 1251, 1430, 1634, 1868, 2135, 2440, 2788, 3187, 3642, 4162, 4757, 5436, 6213

Offset: 1

Author

Graeme McRae, Jun 10 2006

Keywords

• nonn

Crossrefs

Cf. A073941, A112088, A072493.

Programs

Mathematica

a[n_]:=Module[{s=k=4}, For[i=1, iStefano Spezia, Jul 21 2024 *)

Extensions

a(41)-a(56) from Stefano Spezia, Jul 21 2024