OFFSET
0,1
LINKS
Eric Weisstein's World of Mathematics, Zolotarev-Schur Constant
EXAMPLE
0.91550205538967639630...
MATHEMATICA
c0 = c /. FindRoot[ EllipticE[c^2]^3 - 3*EllipticK[c^2]*EllipticE[c^2]^2 + (c^2 + 3*EllipticK[c^2]^2 + 1)* EllipticE[c^2] + EllipticK[c^2]*(c^2 - EllipticK[c^2]^2 - 1) == 0, {c, 9/10}, WorkingPrecision -> 110]; RealDigits[c0, 10, 105] // First (* Jean-François Alcover, Feb 07 2013, after Eric W. Weisstein *)
PROG
(PARI) solve(x=.9, .92, my(e=ellE(x), k=ellK(x)); e^3 - 3*k*e^2 + (x^2 + 3*k^2 + 1)*e + (x^2 - k^2 - 1)*k) \\ Charles R Greathouse IV, Feb 04 2025
CROSSREFS
KEYWORD
AUTHOR
Eric W. Weisstein, Aug 05 2008
STATUS
approved