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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A073941, A112088, A072493.

Sequence in context: A074054 A067287 A026044 * A138840 A257473 A116063

Adjacent sequences: A120143 A120144 A120145 * A120147 A120148 A120149

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Status

approved