%I #5 Jan 03 2020 20:19:55
%S 1,5,2,9,8,0,8,3,8,2,7,5,9,0,8,4,3,6,2,2,1,5,7,6,0,7,5,7,6,9,9,0,0,9,
%T 5,1,1,6,8,9,4,4,1,7,8,0,8,6,0,0,6,3,0,5,3,2,4,9,2,7,9,2,9,1,0,4,0,6,
%U 7,7,4,9,2,5,7,3,3,6,8,9,2,2,5,4,2,4
%N Decimal expansion of the solution of 1/x + 1/2^x = 1.
%F x + 2^x = x * 2^x.
%e x = 1.5298083827590843622157607576990...
%t r = x /. FindRoot[1/x + 1/2^x == 1, {x, 1, 10}, WorkingPrecision -> 210]
%t RealDigits[r][[1]] (* A329986 *)
%t Plot[1/x + 1/2^x - 1, {x, 1, 2}]
%Y Cf. A329987, A329988.
%K nonn,cons,easy
%O 1,2
%A _Clark Kimberling_, Jan 02 2020
|