Advertisement
MatsGranvik

Inverse of Exp[-ZetaZero[z]/Im[ZetaZero[z]]*Pi*2]

Jul 5th, 2022
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. z = Range[15];
  2. x = N[Exp[-ZetaZero[z]/Im[ZetaZero[z]]*Pi*2], 20];
  3. -Log[Sum[(-1)^k*x^(Log[k]*Im[ZetaZero[z]]/Pi), {k, 1, Infinity}]]*
  4. Re[ZetaZero[z]]/Pi*I
  5. Arg[%]
  6.  
  7. z = Range[15];
  8. x = N[Exp[-ZetaZero[z]/Im[ZetaZero[z]]*Pi*2], 20];
  9. -Log[Sum[(-1)^k*x^(Log[k]*Im[ZetaZero[z]]/Pi), {k, 1, Infinity}]]*
  10. Im[ZetaZero[z]]/Pi
  11. Arg[%]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement