|
%I #5 Aug 14 2012 13:09:31
%S 3,4,5,8,7,9,8,3,0,3,4,0,0,5,1,4,4,5,9,1,9,9,3,9,6,3,5,2,7,6,8,7,6,4,
%T 1,6,7,9,8,5,8,0,6,1,7,8,6,5,6,1,1,5,6,2,8,6,2,5,4,4,3,4,8,9,4,0,1,0,
%U 3,2,7,8,1,2,0,4,7,9,8,3,2,5,8,0,9,5,3
%N Decimal expansion of root of cosh(x)^log(x) = log(x)^cosh(x).
%e 3.458798303400514459...
%p Digits:=120:fsolve(cosh(x)^log(x)-(log(x)^cosh(x)) =0, x, 1..5);
%t RealDigits[ FindRoot[Cosh[x]^Log[x] == Log[x]^Cos[x], {x, {1,4} }, WorkingPrecision -> 120] [[1, 4] ]] [[2]]
%K nonn,cons
%O 1,1
%A _Michel Lagneau_, Aug 13 2012
|
