|
%I #17 Jun 25 2023 01:55:56
%S 1,6,5,0,1,7,9,7,5,0,7,6,8,8,4,8,3,5,9,7,4,4,6,8,3,1,1,9,9,2,0,4,7,6,
%T 3,7,2,6,1,8,6,8,9,1,2,5,3,4,2,1,4,8,2,4,3,2,0,8,0,8,0,6,8,1,2,8,8,4,
%U 6,1,4,3,0,7,0,7,4,1,2,7
%N Decimal expansion of the positive root of x^(x^x) = Pi.
%e 1.65017975076884835974468311992047637261868912534214824320808068128846...
%t RealDigits[x /. FindRoot[x^(x^x) == Pi, {x, 1}, WorkingPrecision -> 105]][[1]] (* _Amiram Eldar_, Jun 25 2023 *)
%o (PARI) default(realprecision,2000);solve(x=0.01, 2, x^(x^x)-Pi)
%Y Cf. A000796, A264808.
%K nonn,cons
%O 1,2
%A _Anders Hellström_, Nov 25 2015
|
