login
A316229
Decimal expansion of x such that x^x - x^-x = x.
1
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, 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
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
Cf. A000312 (x^x).
Sequence in context: A098881 A185393 A073333 * A235936 A260781 A306068
KEYWORD
nonn,cons
AUTHOR
STATUS
approved