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