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,1

Links

Table of n, a(n) for n=1..56.

Mathematica

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 *)

Crossrefs

Cf. A073941, A112088, A072493.

Sequence in context: A114458 A205842 A061508 * A157727 A374830 A028276

Adjacent sequences: A120186 A120187 A120188 * A120190 A120191 A120192

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

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

Status

approved