|
%I #32 Jan 29 2019 11:45:04
%S 1,1,1,1,3,1,1,6,6,1,1,10,19,10,1,1,15,45,45,15,1,1,21,90,141,90,21,1,
%T 1,28,161,357,357,161,28,1,1,36,266,784,1107,784,266,36,1,1,45,414,
%U 1554,2907,2907,1554,414,45,1,1,55,615,2850,6765,8953,6765,2850,615,55
%N Triangle T(n,k) = number of k-part order-consecutive partitions of n (1<=k<=n).
%C Forms the even-indexed trinomial coefficients (A027907). Matrix inverse is A104027. - _Paul D. Hanna_, Feb 26 2005
%C Subtriangle (for 1<=k<=n)of triangle defined by [0, 1, 0, 1, 0, 0, 0, 0, 0, ...] DELTA [1, 0, 1, 0, 0, 0, 0, 0, ...] where DELTA is the operator defined in A084938. - _Philippe Deléham_, Oct 29 2006
%H Paul Barry, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL19/Barry/barry321.html">Jacobsthal Decompositions of Pascal's Triangle, Ternary Trees, and Alternating Sign Matrices</a>, Journal of Integer Sequences, 19, 2016, #16.3.5.
%H F. K. Hwang and C. L. Mallows, <a href="http://dx.doi.org/10.1016/0097-3165(95)90097-7">Enumerating nested and consecutive partitions</a>, J. Combin. Theory Ser. A 70 (1995), no. 2, 323-333.
%F T(n, k) = Sum_{j=0..k-1} C(n-1, 2k-j-2)*C(2k-j-2, j).
%F G.f.: A(x, y) = (1 - x*(1+y))/(1 - 2*x*(1+y) + x^2*(1+y+y^2)) (offset=0). - _Paul D. Hanna_, Feb 26 2005
%F Sum_{k, 1<=k<=n}T(n,k)=A124302(n). Sum_{k, 1<=k<=n}(-1)^(n-k)*T(n,k)=A117569(n). - _Philippe Deléham_, Oct 29 2006
%F From _Paul Barry_, Sep 28 2010: (Start)
%F G.f.: 1/(1-x-xy-x^2y/(1-x-xy)).
%F E.g.f.: exp((1+y)x)*cosh(sqrt(y)*x).
%F T(n,k)=sum{j=0..n, C(n,j)*C(n-j,2(k-j)}. (End)
%F T(n,k) = 2*T(n-1,k) + 2*T(n-1,k-1) - T(n-2,k) - T(n-2,k-1) - T(n-2,k-2), T(1,1) = T(2,1) = T(2,2) = 1, T(n,k) = 0 if k<1 or if k>n. - _Philippe Deléham_, Mar 27 2014
%e 1; 1,1; 1,3,1; 1,6,6,1; 1,10,19,10,1; ...
%e Triangle (0, 1, 0, 1, 0, 0, 0...) DELTA (1, 0, 1, 0, 0, 0, ...) begins:
%e 1;
%e 0, 1;
%e 0, 1, 1;
%e 0, 1, 3, 1;
%e 0, 1, 6, 6, 1;
%e 0, 1, 10, 19, 10, 1;
%e 0, 1, 15, 45, 45, 15, 1;
%e 0, 1, 21, 90, 141, 90, 21, 1;... - _Philippe Deléham_, Mar 27 2014
%t t[n_, k_] := Sum[ Binomial[n, j]*Binomial[n-j, 2*(k-j)], {j, 0, n}]; Flatten[ Table[t[n, k], {n, 0, 10}, {k, 0, n}]] (* _Jean-François Alcover_, Oct 11 2011, after _Paul Barry_ *)
%o (PARI) T(n,k)=if(n<k || k<1,0,polcoeff((1+x+x^2)^(n-1)+O(x^(2*k)),2*k-2)) \\ _Paul D. Hanna_
%Y Columns are A000217, A005712, A005714, A005716.
%Y Cf. A027907, A104027.
%K nonn,tabl,easy,nice
%O 1,5
%A _Colin Mallows_, Aug 23 2000
%E More terms from _James A. Sellers_, Aug 25 2000
%E More terms from _Paul D. Hanna_, Feb 26 2005
|
