A274197 Row sums of the array A274196, defined by g(n,k) = 1 for n >= 0; g(n,k) = 0 if k > n; g(n,k) = g(n-1,k-1) + g(n-1,4k) for n > 0, k > 1.

1, 2, 3, 4, 5, 7, 9, 11, 13, 17, 21, 25, 30, 38, 46, 55, 67, 83, 100, 121, 148, 180, 217, 264, 321, 388, 470, 572, 693, 838, 1018, 1237, 1497, 1814, 2205, 2675, 3239, 3930, 4773, 5785, 7010, 8510, 10326, 12514, 15177, 18422, 22340, 27084, 32862, 39872, 483458

Offset: 0

Author

Clark Kimberling, Jun 16 2016

Keywords

• nonn
• easy

Comments

See A274198 for the limit of a(n)/a(n-1).

Examples

			(g(7,k)) = (1,2,2,2,1,1,1,1), so that a(7) = 11.
		

Crossrefs

Cf. A274196, A274198.

Programs

Mathematica

z = 150; g[n_, 0] = g[n, 0] = 1;
g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 4 k]];
t = Table[g[n, k], {n, 0, z}, {k, 0, n}]; w = Map[Total, t];