A321877 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)^sigma_k(j).

1, 1, 1, 1, 1, 2, 1, 1, 3, 4, 1, 1, 5, 7, 6, 1, 1, 9, 15, 14, 10, 1, 1, 17, 37, 41, 28, 17, 1, 1, 33, 99, 137, 107, 58, 25, 1, 1, 65, 277, 491, 487, 286, 106, 38, 1, 1, 129, 795, 1829, 2429, 1749, 700, 201, 59, 1, 1, 257, 2317, 6971, 12763, 12056, 5901, 1735, 372, 86

Offset

0,6

Links

Seiichi Manyama, Antidiagonals n = 0..139, flattened

Formula

G.f. of column k: Product_{i>=1, j>=1} (1 + x^(i*j))^(j^k).

G.f. of column k: exp(Sum_{j>=1} sigma_(k+1)(j)*x^j/(j*(1 - x^(2*j)))).

Example

Square array begins:
   1,   1,    1,    1,     1,      1,  ...
   1,   1,    1,    1,     1,      1,  ...
   2,   3,    5,    9,    17,     33,  ...
   4,   7,   15,   37,    99,    277,  ...
   6,  14,   41,  137,   491,   1829,  ...
  10,  28,  107,  487,  2429,  12763,  ...

Mathematica

Table[Function[k, SeriesCoefficient[Product[(1 + x^j)^DivisorSigma[k, j], {j, 1, n}], {x, 0, n}]][i - n], {i, 0, 10}, {n, 0, i}] // Flatten
Table[Function[k, SeriesCoefficient[Exp[Sum[DivisorSigma[k + 1, j] x^j/(j (1 - x^(2 j))), {j, 1, n}]], {x, 0, n}]][i - n], {i, 0, 10}, {n, 0, i}] // Flatten

Crossrefs

Columns k=0..9 give A107742, A192065, A288414, A288415, A301548, A301549, A301550, A301551, A301552, A301553.

Main diagonal gives A321042.

Cf. A321876.

Sequence in context: A093541 A336187 A171881 * A320251 A210341 A160449

Adjacent sequences: A321874 A321875 A321876 * A321878 A321879 A321880

Keyword

nonn,tabl

Author

Ilya Gutkovskiy, Nov 20 2018

Status

approved