A316229 Decimal expansion of x such that x^x - x^-x = x.

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

Adjacent sequences: A316226 A316227 A316228 * A316230 A316231 A316232

Keyword

nonn,cons

Author

Patrick C. Schneider, Jun 27 2018

Status

approved