A082557 G.f.: Product_{m>=1} 1/(1-x^m)^32.

1, 32, 560, 7040, 70840, 604352, 4528832, 30529280, 188313180, 1076484640, 5759310304, 29064224896, 139226153920, 636391492800, 2787844780160, 11748015743232, 47774241056710, 187997792512640, 717605948122000, 2662641484567680, 9621587501598688, 33916687860860288

Offset: 0

Author

N. J. A. Sloane, May 04 2003

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..1000
• Index entries for expansions of Product_{k >= 1} (1-x^k)^m

Crossrefs

Cf. 32nd column of A144064.

Programs

Maple

a:= proc(n) option remember; `if`(n=0, 1, add(
      numtheory[sigma](j)*a(n-j), j=1..n)*32/n)
    end:
seq(a(n), n=0..25);  # Alois P. Heinz, Mar 12 2015

Mathematica

With[{nn=30},CoefficientList[Series[Product[1/(1-x^m)^32,{m,nn}],{x,0,nn}],x]] (* Harvey P. Dale, Sep 04 2020 *)