A022625 Expansion of Product_{m>=1} (1+q^m)^(-30).

1, -30, 435, -4090, 28305, -155586, 716910, -2884080, 10440930, -34752790, 107952705, -316326840, 881621260, -2352438330, 6041102175, -14993771926, 36092874960, -84513784620, 192981056950, -430636738770, 940848408276

Offset: 0

Author

N. J. A. Sloane

Keywords

• sign

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000

Programs

Mathematica

nmax = 50; CoefficientList[Series[Product[1/(1 + x^k)^30, {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Aug 27 2015 *)

Formula

a(n) ~ (-1)^n * 5^(1/4) * exp(Pi*sqrt(5*n)) / (2^(3/2) * n^(3/4)). - Vaclav Kotesovec, Aug 27 2015