The first decimals of the first Riemann zeta zero

Mathematica 8

Clear[a, b, c, d, e, f];
a = 2^N[1/2 + I*Im[ZetaZero[1]]/2, 50]*Cos[2*Pi*1/2];
b = 2^N[ZetaZero[2], 50]*Cos[2*Pi*2/2];
c = a + b;
d = 2^N[ZetaZero[1], 50]*Cos[2*Pi*1/2];
e = 2^N[ZetaZero[2], 50]*Cos[2*Pi*2/2];
f = d + e;
g = Re[c + f]
N[Im[ZetaZero[1]], 50]

Which outputs:
-0.134729308890067286283770094746871131437286485045
14.134725141734693790457251983562470270784257115699

Calculation in Wolfram Alpha

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.