A274201 Limiting reverse row of the array A274196.

1, 1, 1, 1, 2, 2, 2, 3, 4, 4, 5, 7, 8, 9, 12, 15, 17, 21, 27, 32, 37, 47, 58, 68, 82, 103, 124, 147, 181, 223, 266, 321, 396, 480, 575, 701, 858, 1033, 1248, 1525, 1852, 2232, 2712, 3305, 3998, 4836, 5886, 7148, 8644, 10487, 12752, 15453, 18713, 22731, 27596

Offset: 1

Author

Clark Kimberling, Jun 16 2016

Keywords

• nonn
• easy

Comments

The triangular array (g(n,k)) in A274196 is defined as follows: 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,4) for n > 0, k > 1.

Crossrefs

Cf. A274196, A274199, A274200.

Programs

Mathematica

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]];
z = 300; w = Reverse[Table[g[z, k], {k, 0, z}]];
Take[w, z/3]