A120143 -id:A120143 - cp's OEIS frontend

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

16, 24, 36, 54, 81, 121, 182, 273, 409, 614, 921, 1381, 2072, 3108, 4662, 6993, 10489, 15734, 23601, 35401, 53102, 79653, 119479, 179219, 268828, 403242, 604863, 907295, 1360942, 2041413, 3062120, 4593180, 6889770, 10334655, 15501982

Offset: 1

Graeme McRae, Jun 10 2006

nonn

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

Cf. A073941, A072493, A112088, A120134 - A120141, A120143 - A120209.

Nest[Append[#,16+Floor[Total[#]/2]]&,{16},40]  (* Harvey P. Dale, Apr 20 2011 *)

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

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

Original entry on oeis.org

19, 28, 42, 63, 95, 142, 213, 320, 480, 720, 1080, 1620, 2430, 3645, 5467, 8201, 12301, 18452, 27678, 41517, 62275, 93413, 140119, 210179, 315268, 472902, 709353, 1064030, 1596045, 2394067, 3591101, 5386651, 8079977, 12119965, 18179948

Offset: 1

Graeme McRae, Jun 10 2006

nonn

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

Cf. A073941, A072493, A112088, A120134 - A120143, A120145 - A120209.

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

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

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

SageMath