A264936 Decimal expansion of the positive root of x^(x^x) = gamma.

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, 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, 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

Offset: 0

Author

Anders Hellström, Nov 28 2015

Keywords

• nonn
• cons

Examples

			0.4555570367019584290049500047040705770490...
		

Links

• G. C. Greubel, Table of n, a(n) for n = 0..10000
• Wikipedia, Euler-Mascheroni constant

Crossrefs

Cf. A001620.

Programs

Mathematica

Take[RealDigits[x /. FindRoot[x^x^x == EulerGamma, {x, 1}, WorkingPrecision -> 120]][[1]], 100] (* G. C. Greubel, Sep 07 2018 *)

PARI

default(realprecision,2000); solve(x=0.4,0.5,x^(x^x)-Euler)

Extensions

More digits from Jon E. Schoenfield, Mar 15 2018