%I #5 Jan 05 2020 08:11:44
%S 1,0,1,8,5,9,1,8,1,9,7,7,7,9,0,6,5,9,0,3,5,4,2,2,4,6,7,3,6,8,1,1,6,4,
%T 9,1,5,9,9,4,5,2,0,6,4,0,6,9,6,1,4,3,2,4,3,6,9,9,8,4,5,8,8,0,2,5,2,4,
%U 8,7,1,8,5,6,1,4,0,4,7,0,9,8,1,3,5,7
%N Decimal expansion of the solution of 1/e^x + sech(x) = 1.
%e x = 1.01859181977790659035422467368...
%t r = x /. FindRoot[1/E^x + Sech[x] == 1, {x, 0, 2}, WorkingPrecision -> 200]
%t RealDigits[r] (* A330111 *)
%t Plot[1/E^x + Sech[x] - 1, {x, -3, 4}]
%Y Cf. A330112, A330113.
%K nonn,cons,easy
%O 1,4
%A _Clark Kimberling_, Jan 04 2020