login
Decimal expansion of the solution of 1/sqrt(x-1) + 1/sqrt(x+1) = 1.
3

%I #4 Jan 04 2020 12:56:15

%S 4,1,8,1,1,2,5,4,4,5,2,9,2,6,7,4,3,0,0,5,4,4,5,8,2,5,6,0,2,1,1,8,9,8,

%T 0,8,0,6,0,8,5,6,6,3,6,3,0,8,9,7,2,1,1,5,2,5,6,7,8,2,0,7,6,9,6,6,9,9,

%U 7,5,2,6,2,4,4,2,6,9,6,2,6,1,3,8,4,9

%N Decimal expansion of the solution of 1/sqrt(x-1) + 1/sqrt(x+1) = 1.

%F x^4 - 4 x^3 - 2 x^2 + 4 x + 5 = 0.

%e x = 4.1811254452926743005445825602118...

%t r = x /. FindRoot[1/Sqrt[x - 1] + 1/Sqrt[x + 1] == 1, {x, 2, 10}, WorkingPrecision -> 210]

%t RealDigits[r][[1]] (* A329998 *)

%t Plot[1/Sqrt[x - 1] + 1/Sqrt[x + 1] - 1, {x, 1, 6}]

%Y Cf. A329999, A330000.

%K nonn,cons,easy

%O 1,1

%A _Clark Kimberling_, Jan 03 2020