OFFSET
0,1
EXAMPLE
u = 0.7383304358144666586839682881995607989744250...
MATHEMATICA
x = x /. FindRoot[Sqrt[2] EllipticE[x, 1/2] == 1, {x, 0}, WorkingPrecision -> 200]
RealDigits[x][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Jul 04 2020
STATUS
approved