login
Decimal expansion of root of sinh(x)^cosh(x) = cosh(x)^sinh(x).
0

%I #4 Aug 12 2012 19:03:53

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

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

%U 2,0,1,1,9,8,0,3,8,4,6,5,2,8,1,2,1,1,4

%N Decimal expansion of root of sinh(x)^cosh(x) = cosh(x)^sinh(x).

%e 1.694098084229848978828…

%p Digits:=105:fsolve(cosh(x)^sinh(x)-(sinh(x)^cosh(x)) =0, x, 0..5);

%t RealDigits[ FindRoot[Sinh[x]^Cosh[x] == Cosh[x]^Sinh[x], {x, {0, 2} }, WorkingPrecision -> 120] [[0, 2] ]] [[2]]

%K nonn,cons

%O 1,2

%A _Michel Lagneau_, Aug 12 2012