OFFSET
1,1
EXAMPLE
2.07196922908231...
MAPLE
Digits := 120: x := 2.071 : for i from 1 to 30 do xxx := x^(x^x) : n := xxx-27 : d := xxx*(x^x*log(x)*(1+log(x))+x^(x-1)) ; x := evalf(x-n/d) ; print(x) ; od: # R. J. Mathar, Aug 08 2008
MATHEMATICA
digits = 105; x0 = x /. FindRoot[x^(x^x) == 27, {x, 2}, WorkingPrecision -> digits+1]; RealDigits[x0, 10, digits][[1]] (* Jean-François Alcover, Jan 28 2014 *)
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Joshua Taylor, Jul 11 2008
EXTENSIONS
Extended beyond 15 digits by R. J. Mathar, Aug 08 2008
STATUS
approved