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

23, 35, 52, 78, 117, 176, 264, 396, 594, 891, 1336, 2004, 3006, 4509, 6764, 10146, 15219, 22828, 34242, 51363, 77045, 115567, 173351, 260026, 390039, 585059, 877588, 1316382, 1974573, 2961860, 4442790, 6664185, 9996277, 14994416

Offset

1,1

Links

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

Mathematica

nxt[{t_, a_}]:=Module[{k=Floor[(47+t)/2]}, {t+k, k}]; NestList[nxt, {23, 23}, 40][[All, 2]] (* Harvey P. Dale, Oct 29 2020 *)

Prog

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

Crossrefs

Cf. A072493, A073941, A112088.

Sequence in context: A049851 A353087 A223606 * A166499 A045533 A329179

Adjacent sequences: A120144 A120145 A120146 * A120148 A120149 A120150

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Status

approved