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