|
%I #5 Jun 16 2016 21:43:41
%S 1,1,1,2,2,3,4,5,7,9,12,16,20,27,35,45,60,77,101,132,170,223,289,375,
%T 490,634,826,1074,1392,1813,2352,3055,3973,5154,6700,8702,11296,14681,
%U 19058,24754,32156,41747,54232,70425,91451,118786,154241,200319,260157
%N Limiting reverse row of the array A274193.
%C The triangular array (g(n,k)) at A274193 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,3) for n > 0, k > 1.
%e Row g(9,k): 1,4,4,4,3,2,2,1,1,1; the reversal is
%e 1,1,1,2,2,3,4,4,4,1,..., which agrees with A274200 up to the first 7 terms.
%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, 3 k]];
%t z = 300; w = Reverse[Table[g[z, k], {k, 0, z}]];
%t Take[w, z/3]
%Y Cf. A274193, A274199, A274201.
%K nonn,easy
%O 1,4
%A _Clark Kimberling_, Jun 16 2016
|
