A215498 - OEIS

%I #5 Aug 14 2012 13:10:04

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

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

%U 9,0,9,5,1,7,5,6,6,5,8,3,1,9,7,5,1,8,5

%N Decimal expansion of root of tanh(x) = log(x).

%e 2.6936383668797037...

%p Digits:=120:fsolve(tanh(x)-log(x) =0, x, 1..5);

%t RealDigits[ FindRoot[Tanh[x] == Log[x], {x, {1,4} }, WorkingPrecision -> 120] [[1, 4] ]] [[2]]

%K nonn,cons

%O 1,1

%A _Michel Lagneau_, Aug 13 2012