A022739 Expansion of Product (1-m*q^m)^-15; m=1..infinity.

1, 15, 150, 1175, 7875, 46953, 255745, 1293825, 6154530, 27772930, 119720802, 495673410, 1979777985, 7656005115, 28752006375, 105129718102, 375082371420, 1308260532180, 4468338006465

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):
S15:= series(S^(-15), q, N+1):
seq(coeff(S15, q, i), i=0..N); # Robert Israel, Dec 22 2019

Mathematica

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

Crossrefs

Cf. A006906, A022610, A022643, A023013.

Column k=15 of A297328.

Sequence in context: A119511 A023069 A121035 * A085375 A081135 A084902

Adjacent sequences: A022736 A022737 A022738 * A022740 A022741 A022742

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved