OFFSET
1,2
LINKS
Patrick C. Schneider, Table of n, a(n) for n = 1..10000
EXAMPLE
1.5819790225351794653791459960674390425384...
MATHEMATICA
RealDigits[x /. FindRoot[x^x - x^(-x) == x, {x, 1}, WorkingPrecision -> 100]][[1]] (* Vaclav Kotesovec, Jul 06 2018 *)
PROG
(PARI) solve(x=1, 2, x^x-x^-x-x)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Patrick C. Schneider, Jun 27 2018
STATUS
approved