Advertisement
MatsGranvik

Geometric sum of a zeta zero equals analytic contination part Re^2 and Im^2

Jul 31st, 2022
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. (*start*)
  2. Clear[x, k, j];
  3. k = 10000;
  4. x = N[ZetaZero[1], 40];
  5. k*(Re[Sum[1/x^n, {n, 1, k}]]^2 + Im[Sum[1/x^n, {n, 1, k}]]^2)
  6. Re[k^(1 - x)/(x - 1)]^2 + Im[k^(1 - x)/(x - 1)]^2
  7. %% - %
  8. (*end*)
  9.  
  10. 49.9898883372313974154830224669178291603
  11.  
  12. 49.98988833723139741548302246691782916
  13.  
  14. 0.*10^-36
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement