%I #6 Apr 16 2014 09:01:25

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

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

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

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

%e 2.054365070344097971293….

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

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

%o (PARI) solve(x=2,3,x^sinh(x)-sinh(x)^x) \\ _Charles R Greathouse IV_, Apr 16 2014

%K nonn,cons

%O 1,1

%A _Michel Lagneau_, Aug 12 2012