%I #14 Jul 09 2018 06:07:17
%S 1,5,8,1,9,7,9,0,2,2,5,3,5,1,7,9,4,6,5,3,7,9,1,4,5,9,9,6,0,6,7,4,3,9,
%T 0,4,2,5,3,8,4,5,9,4,0,3,2,2,0,3,8,2,4,8,7,1,7,5,3,1,0,1,7,5,0,8,5,4,6
%N Decimal expansion of x such that x^x - x^-x = x.
%H Patrick C. Schneider, <a href="/A316229/b316229.txt">Table of n, a(n) for n = 1..10000</a>
%e 1.5819790225351794653791459960674390425384...
%t RealDigits[x /. FindRoot[x^x - x^(-x) == x, {x, 1}, WorkingPrecision -> 100]][[1]] (* _Vaclav Kotesovec_, Jul 06 2018 *)
%o (PARI) solve(x=1, 2, x^x-x^-x-x)
%Y Cf. A000312 (x^x).
%K nonn,cons
%O 1,2
%A _Patrick C. Schneider_, Jun 27 2018
|