|
%I #17 Sep 07 2018 17:34:00
%S 4,5,5,5,5,7,0,3,6,7,0,1,9,5,8,4,2,9,0,0,4,9,5,0,0,0,4,7,0,4,0,7,0,5,
%T 7,7,0,4,9,0,3,9,3,3,9,6,9,1,2,1,7,1,7,0,6,0,7,3,0,2,3,6,0,9,6,7,6,4,
%U 2,5,3,0,9,7,2,2,4,7,6,2,2,4,4,8,9,0,0,2,5,0,1,4,0,1,0,5,0,7,7,6,8,5,3,7,8,6
%N Decimal expansion of the positive root of x^(x^x) = gamma.
%H G. C. Greubel, <a href="/A264936/b264936.txt">Table of n, a(n) for n = 0..10000</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Euler%E2%80%93Mascheroni_constant">Euler-Mascheroni constant</a>
%e 0.4555570367019584290049500047040705770490...
%t Take[RealDigits[x /. FindRoot[x^x^x == EulerGamma, {x, 1}, WorkingPrecision -> 120]][[1]], 100] (* _G. C. Greubel_, Sep 07 2018 *)
%o (PARI) default(realprecision,2000); solve(x=0.4,0.5,x^(x^x)-Euler)
%Y Cf. A001620.
%K nonn,cons
%O 0,1
%A _Anders Hellström_, Nov 28 2015
%E More digits from _Jon E. Schoenfield_, Mar 15 2018
|
