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

3, 4, 6, 8, 10, 14, 18, 24, 32, 43, 57, 76, 102, 136, 181, 241, 322, 429, 572, 763, 1017, 1356, 1808, 2411, 3214, 4286, 5714, 7619, 10159, 13545, 18060, 24080, 32107, 42809, 57079, 76105, 101473, 135298, 180397, 240529

Offset

1,1

Links

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

Mathematica

A120150[n_]:= A120150[n]= 3 +Quotient[2 +Sum[A120150[k], {k, n-1}], 3];
Table[A120150[n], {n, 60}] (* G. C. Greubel, Jun 04 2023 *)

Prog

(SageMath)
@CachedFunction
def A120150(n): return 3 + (2+sum(A120150(k) for k in range(1, n)))//3
[A120150(n) for n in range(1, 61)] # G. C. Greubel, Jun 04 2023

Crossrefs

Cf. A072493, A073941, A112088.

Sequence in context: A173339 A064269 A260485 * A262892 A109441 A343883

Adjacent sequences: A120147 A120148 A120149 * A120151 A120152 A120153

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Status

approved