A022740 Expansion of Product (1-m*q^m)^-16; m=1..inf.

1, 16, 168, 1376, 9604, 59488, 335904, 1758816, 8646986, 40281296, 179065184, 763837600, 3140732344, 12494160288, 48236274976, 181203877248, 663837626163, 2376282980272, 8325497904672

Offset

0,2

Links

Robert Israel, Table of n, a(n) for n = 0..3000

Maple

N:= 30: # for a(0)..a(N)
P:= mul(1-m*q^m, m=1..N):
S:= series(P, q, N+1):
S16:= series(S^(-16), q, N+1):
seq(coeff(S16, q, i), i=0..N); # Robert Israel, Dec 22 2019

Mathematica

nmax = 20; CoefficientList[Series[Product[1/(1 - k*x^k)^16, {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Dec 23 2019 *)

Crossrefs

Cf. A006906, A022611, A022644, A023014.

Column k=16 of A297328.

Sequence in context: A265598 A021744 A025445 * A205247 A067713 A017210

Adjacent sequences: A022737 A022738 A022739 * A022741 A022742 A022743

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved