|
%I #16 Mar 29 2019 15:51:20
%S 1,1,0,1,2,0,1,4,4,0,1,6,12,8,0,1,8,24,32,14,0,1,10,40,80,76,24,0,1,
%T 12,60,160,234,168,40,0,1,14,84,280,552,624,352,64,0,1,16,112,448,
%U 1110,1712,1552,704,100,0,1,18,144,672,2004,3912,4896,3648,1356,154,0,1,20,180,960,3346,7896,12600,13120,8184,2532,232,0
%N Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of Product_{j>=1} ((1 + x^j)/(1 - x^j))^k.
%H Seiichi Manyama, <a href="/A288515/b288515.txt">Antidiagonals n = 0..139, flattened</a>
%H <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%F G.f. of column k: Product_{j>=1} ((1 + x^j)/(1 - x^j))^k.
%F G.f. of column k: 1/theta_4(x)^k, where theta_4() is the Jacobi theta function.
%F For asymptotics of column k see comment from _Vaclav Kotesovec_ in A001934.
%e Square array begins:
%e 1, 1, 1, 1, 1, 1, ...
%e 0, 2, 4, 6, 8, 10, ...
%e 0, 4, 12, 24, 40, 60, ...
%e 0, 8, 32, 80, 160, 280, ...
%e 0, 14, 76, 234, 552, 1110, ...
%e 0, 24, 168, 624, 1712, 3913, ...
%t Table[Function[k, SeriesCoefficient[Product[((1 + x^i)/(1 - x^i))^k, {i, 1, n}], {x, 0, n}]][j - n], {j, 0, 11}, {n, 0, j}] // Flatten
%t Table[Function[k, SeriesCoefficient[1/EllipticTheta[4, 0, x]^k, {x, 0, n}]][j - n], {j, 0, 11}, {n, 0, j}] // Flatten
%o (Julia) # JacobiTheta4 is defined in A002448.
%o A288515Column(k, len) = JacobiTheta4(len, -k)
%o for k in 0:8 A288515Column(k, 8) |> println end # _Peter Luschny_, Mar 12 2018
%Y Columns k=0-24 give: A000007, A015128, A001934, A004404 (alternating values), A284286, A004406-A004425 (alternating values).
%Y Rows n=0-2 give: A000012, A005843, A046092.
%Y Main diagonal gives A270919.
%Y Antidiagonal sums give A299108.
%Y Cf. A122141, A286815.
%K nonn,tabl
%O 0,5
%A _Ilya Gutkovskiy_, Jun 10 2017
|
