Advertisement
MatsGranvik

Reciprocal of Riemann zeta and the Möbius sum plotted

Jan 18th, 2023
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. (*start*)
  2. sigma = 3/4
  3. Plot[Re[1/(1 -
  4. Sum[(-1)^(n + 1)*(Zeta[N[sigma] + I*t] - 1)^n, {n, 1,
  5. 100}])], {t, 0, 60}, PlotRange -> {-1, 4}]
  6. Plot[Re[1/Sum[MoebiusMu[n]/n^(N[sigma] + I*t), {n, 1, 1000}]], {t, 0,
  7. 60}, PlotRange -> {-1, 4}, PlotStyle -> Red]
  8. Show[%%, %]
  9. (*end*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement