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

10, 15, 22, 33, 50, 75, 112, 168, 252, 378, 567, 851, 1276, 1914, 2871, 4307, 6460, 9690, 14535, 21803, 32704, 49056, 73584, 110376, 165564, 248346, 372519, 558779, 838168, 1257252, 1885878, 2828817, 4243226, 6364839, 9547258, 14320887

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A073941, A072493, A112088, A120134 - A120137, A120139 - A120209.

Sequence in context: A337610 A109373 A267329 * A050200 A034961 A207637

Adjacent sequences: A120135 A120136 A120137 * A120139 A120140 A120141

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Status

approved