|
MATHEMATICA
|
nn = 10; q = 3; \[Nu] = Table[1/n Sum[MoebiusMu[n/d] q^d, {d, Divisors[n]}], {n, 1, nn}]; Table[Product[q^n - q^i, {i, 0, n - 1}], {n, 0, nn}] CoefficientList[Series[Product[Product[1/(1 - u^d/q^(r d)), {r, 1, \[Infinity]}]^\[Nu][[d]], {d, 2, nn}], {u, 0, nn}], u]
|