OFFSET
4,1
COMMENTS
Solution to RiemannSiegelTheta(x) = Pi*x.
LINKS
Eric Weisstein's World of Mathematics, Gram Point
EXAMPLE
9146.6981931714...
MATHEMATICA
x0 = x /. FindRoot[ RiemannSiegelTheta[x] == Pi*x, {x, 9000}, WorkingPrecision -> 105]; RealDigits[x0][[1]][[1 ;; 102]] (* Jean-François Alcover, Oct 26 2012 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Eric W. Weisstein, Jan 05 2006
STATUS
approved