%I #8 Jul 30 2015 22:17:54
%S 9,0,8,9,0,8,5,5,7,5,4,8,5,4,1,4,7,8,2,3,6,1,1,8,9,0,8,7,4,4,7,9,3,5,
%T 0,4,9,0,1,0,1,3,9,6,9,3,4,0,4,1,1,8,3,8,1,9,8,0,7,2,5,9,6,0,9,5,6,3,
%U 8,1,4,9,0,9,2,4,2,0,3,3,9,2,2,8,2,4,4,7,0,7,0,1,1,2,0,6,0,9,3,3,5,7
%N Decimal expansion of value of x such that K(x) = 2E(x).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/One-NinthConstant.html">One-Ninth Constant</a>
%e 0.90890...
%t RealDigits[ x /. FindRoot[ EllipticK[x^2/(x^2 - 1)] - 2*Sqrt[1 - x^2]*EllipticE[x^2], {x, 1/2}, WorkingPrecision -> 105]][[1]][[1 ;; 102]] (* _Jean-François Alcover_, Oct 29 2012 *)
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Jul 11 2003