Return to Revisions

4 of 4

Reinstated the original content of this answer

edited Oct 20 at 8:47

As suggested in a comment, here are some plots:

Plot[NIntegrate[Log[Abs[Zeta[a+I t]]],{a,1/2,1}],{t,1,50}]

ParametricPlot[ReIm[NIntegrate[Log[Zeta[a+I t]],{a,1/2,1}]],{t,1,50},PlotPoints->150]

answered Apr 24, 2021 at 14:23