|
%I #32 Nov 28 2023 14:27:36
%S 1,1,1,1,1,1,1,1,2,1,1,1,3,3,1,1,1,4,6,5,1,1,1,5,10,13,7,1,1,1,6,15,
%T 26,24,11,1,1,1,7,21,45,59,48,15,1,1,1,8,28,71,120,141,86,22,1,1,1,9,
%U 36,105,216,331,310,160,30,1,1,1,10,45,148,357,672,855,692,282,42,1,1,1,11,55,201,554,1232,1982,2214,1483,500,56,1
%N Square array A(n,k), n >= 0, k >= 0, read by antidiagonals, where column k is the expansion of exp(Sum_{j>=1} x^j/(j*(1 - x^j)^k)).
%C A(n,k) is the Euler transform of j -> binomial(j+k-2,k-1) evaluated at n.
%H Alois P. Heinz, <a href="/A293551/b293551.txt">Antidiagonals n = 0..140, flattened</a>
%H S. Balakrishnan, S. Govindarajan, and N. S. Prabhakar, <a href="http://arxiv.org/abs/1105.6231">On the asymptotics of higher-dimensional partitions</a>, arXiv:1105.6231 [cond-mat.stat-mech], 2011.
%H M. Bernstein and N. J. A. Sloane, <a href="/A003633/a003633_1.pdf">Some canonical sequences of integers</a>, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
%H M. Bernstein and N. J. A. Sloane, <a href="https://arxiv.org/abs/math/0205301">Some canonical sequences of integers</a>, arXiv:math/0205301 [math.CO], 2002; Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F G.f. of column k: exp(Sum_{j>=1} x^j/(j*(1 - x^j)^k)).
%F For asymptotics of column k see comment from _Vaclav Kotesovec_ in A255965.
%e Square array begins:
%e 1, 1, 1, 1, 1, 1, ...
%e 1, 1, 1, 1, 1, 1, ...
%e 1, 2, 3, 4, 5, 6, ...
%e 1, 3, 6, 10, 15, 21, ...
%e 1, 5, 13, 26, 45, 71, ...
%e 1, 7, 24, 59, 120, 216, ...
%p with(numtheory):
%p A:= proc(n, k) option remember; `if`(n=0, 1, add(add(d*
%p binomial(d+k-2, k-1), d=divisors(j))*A(n-j, k), j=1..n)/n)
%p end:
%p seq(seq(A(n, d-n), n=0..d), d=0..14); # _Alois P. Heinz_, Oct 17 2017
%t Table[Function[k, SeriesCoefficient[E^(Sum[x^i/(i (1 - x^i)^k), {i, 1, n}]), {x, 0, n}]][j - n], {j, 0, 12}, {n, 0, j}] // Flatten
%Y Columns k=0..8 give A000012, A000041, A000219, A000294, A000335, A000391, A000417, A000428, A255965.
%Y Main diagonal gives A293554.
%Y Cf. A007318, A096751 (a similar but different sequence).
%K nonn,tabl
%O 0,9
%A _Ilya Gutkovskiy_, Oct 11 2017
|
