OFFSET
1,1
EXAMPLE
2.6936383668797037...
MAPLE
Digits:=120:fsolve(tanh(x)-log(x) =0, x, 1..5);
MATHEMATICA
RealDigits[ FindRoot[Tanh[x] == Log[x], {x, {1, 4} }, WorkingPrecision -> 120] [[1, 4] ]] [[2]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Michel Lagneau, Aug 13 2012
STATUS
approved