|
%I #6 Jun 16 2016 21:45:03
%S 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,
%T 147,181,223,266,321,396,480,575,701,858,1033,1248,1525,1852,2232,
%U 2712,3305,3998,4836,5886,7148,8644,10487,12752,15453,18713,22731,27596
%N Limiting reverse row of the array A274196.
%C 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.
%t g[n_, 0] = g[n, 0] = 1;
%t g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 4 k]];
%t z = 300; w = Reverse[Table[g[z, k], {k, 0, z}]];
%t Take[w, z/3]
%Y Cf. A274196, A274199, A274200.
%K nonn,easy
%O 1,5
%A _Clark Kimberling_, Jun 16 2016
|
