OFFSET
1,3
EXAMPLE
x = 1.145506428410874570183107352890549124282333449076566322759300026...
MATHEMATICA
RealDigits[ FindRoot[x^(13^x) == 13, {x, 1}, WorkingPrecision -> 2^7] [[1, 2]]][[1]] (* Robert G. Wilson v, Mar 26 2005 *)
PROG
(PARI) solve(x=1, 2, x^13^x-13) \\ Charles R Greathouse IV, Apr 25 2016
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Zak Seidov, Mar 23 2005
EXTENSIONS
More terms from Robert G. Wilson v, Mar 26 2005
STATUS
approved