OFFSET
0,5
COMMENTS
Row sums give A131236.
REFERENCES
R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see Problem 5.65(a).
FORMULA
G.f. column 2: (-1-x-6*x^2+x^3+x^4)/(x-1)^5. - R. J. Mathar, Mar 20 2018
T(n,2) = (4+8*n+5*n^2+6*n^3+n^4)/4. - R. J. Mathar, Mar 20 2018
G.f. column 3: -(1+3*x+30*x^2+73*x^3+24*x^4-48*x^5+7*x^6)/(x-1)^7 . - R. J. Mathar, Mar 20 2018
T(n,3) = (8+58*n^2+3*n^3+n^4+9*n^5+n^6)/8. - R. J. Mathar, Mar 20 2018
EXAMPLE
1;
1,1;
1,3,1;
1,6,6,1;
1,10,26,10,1;
1,15,79,79,15,1;
1,21,189,451,189,21,1;
...
or as a symmetric array
1 1 1 1 1 1 1 ...
1 3 6 10 15 21 ...
1 6 26 79 189 ..
1 10 79 451 ..
1 15 189 ..
1 21 ..
MAPLE
A131235 := proc(m, n)
exp((x*y*(3-x*y)+(x+y)*(2-x*y))/2/(1-x*y))/sqrt(1-x*y) ;
coeftayl(%, y=0, n)*n!;
coeftayl(%, x=0, m)*m! ;
end proc: # R. J. Mathar, Mar 20 2018
MATHEMATICA
T[n_, k_] := Module[{ex}, ex = Exp[(x*y*(3 - x*y) + (x + y)*(2 - x*y))/2/(1 - x*y)]/Sqrt[1 - x*y]; SeriesCoefficient[ex, {y, 0, k}]*k! // SeriesCoefficient[#, {x, 0, n}]*n!&];
Table[T[n - k, k], {n, 0, 10}, {k, 0, n}] // Flatten (* Jean-François Alcover, Sep 14 2023, after R. J. Mathar *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Vladeta Jovovic, Jun 20 2007
STATUS
approved