|
%I #5 Jul 05 2020 00:00:00
%S 7,3,8,3,3,0,4,3,5,8,1,4,4,6,6,6,5,8,6,8,3,9,6,8,2,8,8,1,9,9,5,6,0,7,
%T 9,8,9,7,4,4,2,5,0,7,5,7,7,2,1,4,0,7,7,6,6,4,1,1,8,2,1,0,6,7,9,2,0,4,
%U 6,1,9,4,2,4,4,2,4,0,6,7,8,5,7,1,7,4
%N Decimal expansion of the number u such that the arclength on y = sin(x) from (0,0) to (u, sin u) is 1.
%e u = 0.7383304358144666586839682881995607989744250...
%t x = x /. FindRoot[Sqrt[2] EllipticE[x, 1/2] == 1, {x, 0}, WorkingPrecision -> 200]
%t RealDigits[x][[1]]
%Y Cf. A335995.
%K nonn,cons
%O 0,1
%A _Clark Kimberling_, Jul 04 2020
|
