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

Author

Patrick C. Schneider, Jun 27 2018

Keywords

• nonn
• cons

Examples

			1.5819790225351794653791459960674390425384...
		

Links

• Patrick C. Schneider, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000312 (x^x).

Programs

Mathematica

RealDigits[x /. FindRoot[x^x - x^(-x) == x, {x, 1}, WorkingPrecision -> 100]][[1]] (* Vaclav Kotesovec, Jul 06 2018 *)

PARI

solve(x=1, 2, x^x-x^-x-x)