|
%I #9 Aug 15 2015 10:01:15
%S 9,1,5,5,0,2,0,5,5,3,8,9,6,7,6,3,9,6,3,0,5,5,2,4,0,3,6,4,0,1,6,6,2,2,
%T 8,9,6,5,4,3,1,2,9,4,2,2,8,8,4,6,0,7,6,6,7,5,0,1,7,7,6,3,4,0,0,3,9,7,
%U 8,8,0,2,7,5,4,6,1,2,2,1,6,7,9,7,9,2,3,7,7,4,4,8,3,0,9,6,9,2,8,1,8,8,5,8,0
%N Decimal expansion of the transcendental root c used to compute the Zolotarev-Schur constant.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Zolotarev-SchurConstant.html">Zolotarev-Schur Constant</a>
%e 0.91550205538967639630...
%t 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_ *)
%Y Cf. A143295.
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Aug 05 2008
|
