OFFSET
0,2
COMMENTS
FORMULA
G.f. for column k: 1 = Sum_{j>=0} T(k+j, k)*x^j*(1-x)^(3 + (k+j)*(k+j-1)/2 - k*(k-1)/2).
EXAMPLE
G.f. for column 0:
1 = T(0,0)*(1-x)^3 + T(1,0)*x*(1-x)^3 + T(2,0)*x^2*(1-x)^4 + T(3,0)*x^3*(1-x)^6 + T(4,0)*x^4*(1-x)^9 + T(5,0)*x^5*(1-x)^13 + ...
= 1*(1-x)^3 + 3*x*(1-x)^3 + 6*x^2*(1-x)^4 + 16*x^3*(1-x)^6 + 63*x^4*(1-x)^9 + 351*x^5*(1-x)^13 + ...
G.f. for column 1:
1 = T(1,1)*(1-x)^3 + T(2,1)*x*(1-x)^4 + T(3,1)*x^2*(1-x)^6 + T(4,1)*x^3*(1-x)^9 + T(5,1)*x^4*(1-x)^13 + T(6,1)*x^5*(1-x)^18 + ...
= 1*(1-x)^3 + 3*x*(1-x)^4 + 9*x^2*(1-x)^6 + 37*x^3*(1-x)^9 + 210*x^4*(1-x)^13 + 1575*x^5*(1-x)^18 + ...
Triangle begins:
1;
3, 1;
6, 3, 1;
16, 9, 3, 1;
63, 37, 12, 3, 1;
351, 210, 67, 15, 3, 1;
2609, 1575, 498, 106, 18, 3, 1;
24636, 14943, 4701, 975, 154, 21, 3, 1;
284631, 173109, 54298, 11100, 1689, 211, 24, 3, 1;
...
MATHEMATICA
max = 10;
A107862 = Table[Binomial[If[n < k, 0, n*(n-1)/2-k*(k-1)/2 + n - k], n - k], {n, 0, max}, {k, 0, max}];
A107867 = Table[Binomial[If[n < k, 0, n*(n-1)/2-k*(k-1)/2 + n-k+1], n - k], {n, 0, max}, {k, 0, max}];
Table[T[[n+1, k+1]], {n, 0, max}, {k, 0, n}] // Flatten (* Jean-François Alcover, May 31 2024 *)
PROG
(PARI) {T(n, k)=polcoeff(1-sum(j=0, n-k-1, T(j+k, k)*x^j*(1-x+x*O(x^n))^(3+(k+j)*(k+j-1)/2-k*(k-1)/2)), n-k)}
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Paul D. Hanna, Jun 04 2005
STATUS
approved