|
MATHEMATICA
|
Table[SeriesCoefficient[1/(1 - Sum[k^n x^k/(1 - x^k), {k, 1, n}]), {x, 0, n}], {n, 0, 15}]
Table[SeriesCoefficient[1/(1 - Sum[DivisorSigma[n, k] x^k, {k, 1, n}]), {x, 0, n}], {n, 0, 15}]
Table[SeriesCoefficient[1/(1 - Sum[Sum[j^n x^(i j), {j, 1, n}], {i, 1, n}]), {x, 0, n}], {n, 0, 15}]
|