Rohit,

Thank you very much! The notebook is very nice.

Outside of Mr. Peabody and his boy Sherman I didn’t know there was a Wayback Machine.

It would be great if the Math World code were updated so it could run on the newer versions of Mathematica.

Regards, Dan

I have a few more questions about this series of notebooks. In addition to the function GramPoint[] they use << UtilitiesPlot and PlotRoots[], neither of which are Mathematica 13.1.

PlotRoots[] seems to have some nice features. I could not find it in the documentation.

Is there a version available in Mathematica 13.1?

Hi Dan,

In the documentation for ZetaZero there is a definition for the Gram point function

gp[k_] := 
 Block[{t}, 
  t /. FindRoot[RiemannSiegelTheta[t] - Pi k, {t, (1/4 + 2 k) Pi/ProductLog[(1/8 + k)/E]}]]

Using that definition, the results in GramPoint.nb and GramsLaw.nb can be reproduced.