MatsGranvik

Probably trivial ratio of alternating sums 1/((a/b)^Log[c2/c1])^b

Dec 15th, 2021 (edited)
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. (*start*)
  2. Clear[k]
  3. c1 = 2;
  4. c2 = 3;
  5. a = 1/5;
  6. b = 7;
  7. $MaxExtraPrecision = 10000
  8. Sum[(-1)^(k - 1)*(a/b)^(Log[c1*k]*b), {k, 1, 10000}];
  9. N[%, 30]
  10. Sum[(-1)^(k - 1)*(a/b)^(Log[c2*k]*b), {k, 1, 10000}];
  11. N[%, 30]
  12. %%%/%
  13. N[1/((a/b)^Log[c2/c1])^b, 30]
  14. (*end*)
Add Comment
Please, Sign In to add comment