OFFSET
0,6
COMMENTS
In general, column k > 0 is asymptotic to (Gamma(k+2)*Zeta(k+2))^((1-2*Zeta(-k)) /(2*k+4)) * exp((k+2)/(k+1) * (Gamma(k+2)*Zeta(k+2))^(1/(k+2)) * n^((k+1)/(k+2)) + Zeta'(-k)) / (sqrt(2*Pi*(k+2)) * n^((k+3-2*Zeta(-k))/(2*k+4))). - Vaclav Kotesovec, Mar 01 2015
LINKS
Alois P. Heinz, Antidiagonals = 0..99, flattened
Vaclav Kotesovec, A method of finding the asymptotics of q-series based on the convolution of generating functions, arXiv:1509.08708 [math.CO], Sep 30 2015, p. 21.
N. J. A. Sloane, Transforms
FORMULA
G.f. of column k: Product_{j>=1} 1/(1-x^j)^(j^k).
EXAMPLE
Square array begins:
1, 1, 1, 1, 1, 1, ...
1, 1, 1, 1, 1, 1, ...
2, 3, 5, 9, 17, 33, ...
3, 6, 14, 36, 98, 276, ...
5, 13, 40, 136, 490, 1828, ...
7, 24, 101, 477, 2411, 12729, ...
MAPLE
with(numtheory): etr:= proc(p) local b; b:= proc(n) option remember; `if`(n=0, 1, add(add(d*p(d), d=divisors(j)) *b(n-j), j=1..n)/n) end end: A:= (n, k)-> etr(j->j^k)(n); seq(seq(A(n, d-n), n=0..d), d=0..13);
MATHEMATICA
etr[p_] := Module[{ b}, b[n_] := b[n] = If[n == 0, 1, Sum[Sum[d*p[d], {d, Divisors[j]}]*b[n - j], {j, 1, n}]/n]; b]; A[n_, k_] := etr[Function[j, j^k]][n]; Table[Table[A[n, d - n], {n, 0, d}], {d, 0, 13}] // Flatten (* Jean-François Alcover, Dec 27 2013, translated from Maple *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Alois P. Heinz, Sep 08 2008
STATUS
approved