%I #15 Sep 26 2015 18:39:28

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

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

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

%N Decimal expansion of root of x^(x-1) = (x-1)^x.

%H Vincenzo Librandi, <a href="/A169862/b169862.txt">Table of n, a(n) for n = 1..5000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FoiasConstant.html">Foias Constant</a>

%e 3.2931662874118610315080282912508058643722572903271212485377103961...

%t RealDigits[x/.FindRoot[x^(x-1)==(x-1)^x,{x,3}, WorkingPrecision->150]] [[1]] (* _Harvey P. Dale_, Nov 09 2011 *)

%o (PARI) solve(x=3,4,x^(x-1)-(x-1)^x) \\ _Charles R Greathouse IV_, Apr 14 2014

%Y Equals A085846 + 1. Cf. A021002.

%K nonn,cons

%O 1,1

%A _N. J. A. Sloane_, Jun 18 2010, based on a suggestion from Daniel Forgues.