OFFSET
1,2
COMMENTS
Also, point where e^-(x/2 - 1)^2 + e^-(x/2 + 1)^2 has its maximum.
EXAMPLE
1.91500804815453748135300306100481565...
MATHEMATICA
RealDigits[x /. FindRoot[Tanh[x] == x/2, {x, 2}, WorkingPrecision -> 110], 10, 105][[1]] (* Amiram Eldar, Jan 13 2023 *)
PROG
(PARI) localprec(199); digits(solve(x=1, 2, tanh(x)-x/2)\.1^150)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
M. F. Hasler, Jan 13 2023
STATUS
approved