A330114 - OEIS

%I #5 Jan 05 2020 08:12:04

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

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

%U 5,3,6,0,8,8,0,1,0,0,8,0,8,4,6,0,6,5

%N Decimal expansion of the solution of 1/e^x + csch(x) = 1.

%e x = 1.167615746927587571595982...

%t r = x /. FindRoot[1/E^x + Csch[x] == 1, {x, 1, 2}, WorkingPrecision -> 200]

%t RealDigits[r] (* A330115 *)

%t Plot[1/E^x + Csch[x] - 1, {x, -2, 2}]

%Y Cf. A330115, A330116.

%K nonn,cons,easy

%O 1,3

%A _Clark Kimberling_, Jan 04 2020