New answers tagged

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