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