MatsGranvik

Towards lacunar zero free regions.

Feb 14th, 2022 (edited)
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. (*start*)Clear[s, nn, n, k];
  2. nn = 500;
  3. s = 1;
  4. a = %;
  5. lower = N[
  6. s - Sum[Sum[(-1)^n*
  7. Binomial[n - 1,
  8. k - 1]*(-((2^(-k + n) 3^(-1 + k))^-s/
  9. Log[2^(-k + n) 3^(-1 + k)])), {k, 1, n}], {n, 2, nn}]]
  10. s = 2;
  11. b = %;
  12. upper = N[
  13. s - Sum[Sum[(-1)^n*
  14. Binomial[n - 1,
  15. k - 1]*(-((2^(-k + n) 3^(-1 + k))^-s/
  16. Log[2^(-k + n) 3^(-1 + k)])), {k, 1, n}], {n, 2, nn}]]
  17.  
  18. upper - lower
  19.  
  20. NIntegrate[1/(1 + 1/2^s + 1/3^s), {s, a, b}]
  21. (*end*)
  22.  
  23. (* Mick *)
  24. https://math.stackexchange.com/q/612879/8530
Add Comment
Please, Sign In to add comment