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

1, 64, 2144, 49920, 905840, 13627264, 176638592, 2025205248, 20930373880, 197788352320, 1728062919232, 14083242424576, 107837287452608, 780481475916160, 5366307146732800, 35202669371599360, 221142159585764508, 1334633003840266624, 7760187771579170400

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. 64th column of A144064.

Programs

Maple

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

Mathematica

a[n_] := a[n] = If[n == 0, 1, Sum[DivisorSigma[1, j]*a[n-j], {j, 1, n}]*64/n]; Table[a[n], {n, 0, 25}] (* Jean-François Alcover, Jan 13 2025, after Alois P. Heinz *)