New answers tagged inverse
0
You are computing way too many series terms with eta[]. Here is my slightly modified code:
eta[k_] := q^(k/24) Product[1-q^n, {n,k,101,k}];
f = eta[3]eta[33]/(eta[1]eta[11]) + O[q]^101;
F = 1/((-11 + (1 + 3*f)^2*(1/f + 1 + 3*f)));
InverseSeries[F]
It should have much better performance than yours.
Top 50 recent answers are included
