New answers tagged

3

Please see the explanation in this question. Plot[ Sum[ ExpIntegralEi[ZetaZero[k]*Log[x]] + ExpIntegralEi[(1 - ZetaZero[k])*Log[x]], {k, 1, 2}], {x, 1, 5}, Frame -> True] The corresponding plot matches the one you showed from the "simplified equation".


Top 50 recent answers are included