A316295 - OEIS

%I #8 Jul 23 2018 05:37:46

%S 1,4,9,1,7,7,9,7,0,9,3,3,2,8,4,9,8,4,1,2,5,2,3,2,8,3,3,8,7,4,6,5,8,9,

%T 7,7,3,5,3,5,5,9,5,3,0,2,7,2,5,6,8,8,2,0,8,2,5,8,1,5,5,4,3,7,6,7,7,9,

%U 7,7,6,4,8,2,2,8,3,9,0,0,2,0,4,4,8,9,0,4,1,6,8,8,0,3,4,5,8,4,6,9,7,6,1,6,7

%N Decimal expansion of x such that x^(x+2) = x^x + x^2.

%e 1.4917797093328498412523283387465897735355953027256882082581554376779776...

%t RealDigits[ NSolve[x^(x + 2) == x^x + x^2, x, Reals, WorkingPrecision -> 128][[1, 1, 2]], 10][[1]] (* _Robert G. Wilson v_, Jul 21 2018 *)

%o (PARI) solve(x=1, 2, x^(x+2)-x^x-x^2)

%Y Cf. A008788 (x^(x+2)).

%K nonn,cons

%O 1,2

%A _Patrick C. Schneider_, Jun 29 2018