A330065 - OEIS

%I #5 Jan 04 2020 12:57:37

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

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

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

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

%e x = 1.6561355607239954233017362...

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

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

%t Plot[1/x + 1/Sinh[x] - 1, {x, 1, 2}]

%Y Cf. A330066, A330067.

%K nonn,cons,easy

%O 1,2

%A _Clark Kimberling_, Jan 04 2020