login
A274201
Limiting reverse row of the array A274196.
3
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,5
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.
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]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 16 2016
STATUS
approved