The largest zeta zero built into Mathematica 8 and apparently also in Wolfram Alpha as of 13.7.2021 is:
ZetaZero[10^7]
N[%]
0.5 + 4.99238*10^6 I
If one is happy with one significant decimal digit then this root function:
(*Mathematica start*)
Clear[f, s, n];
nn = 15;(*10^15 zeta zero*)f[x_] := Zeta[x];
(*The Franca-LeClair approximation of the zeta zeros:*)
s = 1/2 +
I*Table[2*Pi*Exp[1]*Exp[ProductLog[(10^n - N[11/8])/Exp[1]]], {n,
nn, nn}];
n = 6;(*increase "n" for better precision*)(*Root function for almost \
any function:*)Monitor[
z = Table[
s[[j]] +
1/(1 - Sum[((-1)^(k - 1)*Binomial[n - 1, k - 1])/
f[k/n + s[[j]] - 1/n], {k, 1, n}]/
Sum[((-1)^(k - 1)*Binomial[n - 1, k - 1])/f[k/n + s[[j]]], {k,
1, n}]), {j, 1, 1}], j]
Zeta[z]
(*end*)
can compute double that in order of magnitude ($10^{15}$), before the built in Riemann zeta function stops evaluating.
ZetaZero[10^15]
is approximately:
{0.580063 + 2.08514*10^14 I}
The formula is based on a conjectured formula where $s$ is the value from the Franca LeClair approximation for the $j$-th Riemann zeta zero made exact by the limit:
$$s+\lim_{n \rightarrow \infty}\left(\left(1-\frac{\sum _{k=1}^n \frac{(-1)^{k-1} \binom{n-1}{k-1}}{\zeta \left(\frac{k}{n}+s-\frac{1}{n}\right)}}{\sum _{k=1}^n \frac{(-1)^{k-1} \binom{n-1}{k-1}}{\zeta \left(\frac{k}{n}+s\right)}}\right)^{-1}\right)$$