A120139 a(n) = 11 + floor( (1 + Sum_{j=1..n-1} a(j)) / 2).

11, 17, 25, 38, 57, 85, 128, 192, 288, 432, 648, 972, 1458, 2187, 3280, 4920, 7380, 11070, 16605, 24908, 37362, 56043, 84064, 126096, 189144, 283716, 425574, 638361, 957542, 1436313, 2154469, 3231704, 4847556, 7271334, 10907001, 16360501

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Mathematica

a[n_]:= a[n]= 11 +Quotient[1 + Sum[a[k], {k, n-1}], 2];
Table[a[n], {n, 60}] (* G. C. Greubel, May 08 2023 *)

Prog

(SageMath)
@CachedFunction
def A120139(n): return 11 +(1 +sum(A120139(k) for k in range(1, n)))//2
[A120139(n) for n in range(1, 60)]  # G. C. Greubel, May 08 2023

Crossrefs

Cf. A073941, A072493, A112088, A120134 - A120138, A120140 - A120209.

Sequence in context: A126609 A359443 A079367 * A191061 A110055 A240095

Adjacent sequences: A120136 A120137 A120138 * A120140 A120141 A120142

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Status

approved