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

25, 37, 56, 84, 126, 189, 283, 425, 637, 956, 1434, 2151, 3226, 4839, 7259, 10888, 16332, 24498, 36747, 55121, 82681, 124022, 186033, 279049, 418574, 627861, 941791, 1412687, 2119030, 3178545, 4767818, 7151727, 10727590, 16091385

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

nxt[{t_, a_}]:=Module[{c=25+Floor[t/2]}, {t+c, c}]; NestList[nxt, {25, 25}, 40][[;; , 2]] (* Harvey P. Dale, May 17 2023 *)

Prog

(SageMath)
@CachedFunction
def A120148(n): return 25 + sum(A120148(k) for k in range(1, n))//2
[A120148(n) for n in range(1, 61)] # G. C. Greubel, May 31 2023

Crossrefs

Cf. A072493, A073941, A112088.

Sequence in context: A253025 A127022 A253018 * A038516 A080386 A070758

Adjacent sequences: A120145 A120146 A120147 * A120149 A120150 A120151

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Status

approved