A120141 -id:A120141 - cp's OEIS frontend

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

13, 19, 29, 43, 65, 97, 146, 219, 328, 492, 738, 1107, 1661, 2491, 3737, 5605, 8408, 12612, 18918, 28377, 42565, 63848, 95772, 143658, 215487, 323230, 484845, 727268, 1090902, 1636353, 2454529, 3681794, 5522691, 8284036, 12426054, 18639081

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 - A120139, A120141 - A120209.

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

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

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

Original entry on oeis.org

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

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

SageMath