%I #14 Sep 30 2013 04:02:14
%S 4,9,2,1,5,5,3,6,3,4,5,6,7,5,0,5,0,9,2,4,5,6,7,6,2,3,1,1,7,5,4,4,7,8,
%T 7,4,1,5,9,4,4,2,7,6,1,7,3,4,9,9,0,8,3,4,1,5,9,2,3,9,5,5,9,4,5,7,7,3,
%U 2,2,2,8,4,7,9,8,0,9,7,9,7,7,6,4,0,8,3
%N Decimal expansion of the unique solution > 1 of the equation x*log(x)=2(x-1).
%D Steven R. Finch, Mathematical Constants (2.23 Diophantine approximation constants), Cambridge University Press, 2003, p. 177.
%H Vincenzo Librandi, <a href="/A229553/b229553.txt">Table of n, a(n) for n = 1..1000</a>
%F exp(W(-2/e^2)+2) where W is the Lambert/ProductLog function.
%e 4.921553634567505092456762311754478741594427617349908341592395594577322284798...
%t Exp[ProductLog[-2/E^2] + 2] // RealDigits[#, 10, 100]& // First
%K nonn,cons
%O 1,1
%A _Jean-François Alcover_, Sep 30 2013