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

22, 33, 49, 74, 111, 166, 249, 374, 561, 841, 1262, 1893, 2839, 4259, 6388, 9582, 14373, 21560, 32340, 48510, 72765, 109147, 163721, 245581, 368372, 552558, 828837, 1243255, 1864883, 2797324, 4195986, 6293979, 9440969, 14161453

Offset: 1

Author

Graeme McRae, Jun 10 2006

Keywords

• nonn

Links

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

Crossrefs

Cf. A073941, A112088, A072493.

Programs

Mathematica

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

SageMath

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