OFFSET
0,5
FORMULA
E.g.f. of column k: (1/x) * Series_Reversion( H_k(x) ), where H_k(x) is the k-th iterate of U(x)*exp(-4*U(x)) and U(x) = -LambertW(-2*x)/2.
A(n,k) = Sum_{0 = x_0 <= x_1 <= ... <= x_{k-1} <= x_k = n} Product_{j=0..k-1} 2 * (x_j + 1) * (4*x_{j+1} - 2*x_j + 2)^(x_{j+1} - x_j - 1) * binomial(x_{j+1},x_j).
A(n,0) = 0^n; A(n,k) = 2 * Sum_{j=0..n} (j+1) * (4*n-2*j+2)^(n-j-1) * binomial(n,j) * A(j,k-1) for k > 0.
EXAMPLE
Square array begins:
1, 1, 1, 1, 1, 1, ...
0, 2, 4, 6, 8, 10, ...
0, 20, 56, 108, 176, 260, ...
0, 392, 1432, 3408, 6608, 11320, ...
0, 11664, 54144, 156240, 355968, 700560, ...
0, 468512, 2730784, 9468096, 25170368, 56596960, ...
...
PROG
(PARI)
a(n, k, p=4, s=2, r=2) = {
my(T=matrix(n+1, n+1, row, col, my(xr=row-1, xc=col-1); if(xc<xr, 0, (s*xr+r)*(p*xc-(p-s)*xr+r)^(xc-xr-1)*binomial(xc, xr))));
my(TK=T^k);
TK[1, n+1];
};
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Seiichi Manyama, May 28 2026
STATUS
approved
