|
%I #12 May 08 2019 15:46:11
%S 5,9,3,2,3,7,2,9,7,7,6,9,7,2,8,4,6,4,5,5,2,0,6,0,1,9,7,9,4,7,0,8,1,7,
%T 0,0,4,2,3,8,8,3,8,8,2,3,6,2,1,6,5,7,7,7,4,5,7,6,7,1,2,8,6,0,9,6,9,9,
%U 5,0,5,8,7,1,0,6,7,8,5,7,9,1,5,2,9,0,7,1,4,3,3,3,5,3,7,9,4,8,8,4,9,4,3,2,5,4,3,5,1
%N Decimal expansion of the minimum value of the function f(x) = x^x^x^x.
%C The minimum value of the function x^x^x^x which is obtained for x equal to A306579.
%e 0.5932372977697284645520601979470817...
%t n = 500;
%t (FindMinimum[x^x^x^x, {x, 0.34}, WorkingPrecision -> 3 n][[1]] // RealDigits)[[1]][[;; n]]
%o (PARI) my(y = solve(x=0.1, 1, 1 + x^x*log(x)*(1 + x*log(x)*(1 + log(x))))); y^y^y^y \\ _Michel Marcus_, Mar 27 2019
%Y Cf. A306579.
%K nonn,cons
%O 0,1
%A _Philipp O. Tsvetkov_, Mar 15 2019
|
