A120137 -id:A120137 - cp's OEIS frontend

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

7, 10, 15, 23, 34, 51, 77, 115, 173, 259, 389, 583, 875, 1312, 1968, 2952, 4428, 6642, 9963, 14945, 22417, 33626, 50439, 75658, 113487, 170231, 255346, 383019, 574529, 861793, 1292690, 1939035, 2908552, 4362828, 6544242, 9816363, 14724545

Offset: 1

Graeme McRae, Jun 10 2006

nonn

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

Cf. A073941, A072493, A112088, A120134, A120135, A120137 - A120209.

nxt[{t_,a_}] := Module[{c=7+Floor[t/2]},{t+c,c}];
NestList[nxt,{7,7},40][[All,2]] (* Harvey P. Dale, Jan 13 2017 *)

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

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

Original entry on oeis.org

10, 15, 22, 33, 50, 75, 112, 168, 252, 378, 567, 851, 1276, 1914, 2871, 4307, 6460, 9690, 14535, 21803, 32704, 49056, 73584, 110376, 165564, 248346, 372519, 558779, 838168, 1257252, 1885878, 2828817, 4243226, 6364839, 9547258, 14320887

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

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

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

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

SageMath