%I #9 Jan 21 2014 12:30:21
%S 3,1,8,0,9,6,6,0,8,6,6,3,8,9,4,3,2,1,0,6,8,3,5,8,6,4,0,3,5,4,7,5,7,5,
%T 0,0,5,1,6,0,8,7,8,7,4,9,3,9,6,5,7,5,4,3,2,0,5,3,9,6,4,8,2,6,9,7,0,2,
%U 5,4,7,1,0,0,1,2,2,5,9,1,9,4,0,2,8,3,6,6,6,3,4,8,8,1,2,5,3,1,5
%N Decimal expansion of number c satisfying c*log(c)=1/2+c.
%D Michel Goemans and Jon Kleinberg, An improved approximation ratio for the minimum latency problem, Proc. 7th ACM-SIAM Symposium on Discrete Algorithms, 1996, pp. 152-158.
%F Equals exp(LambertW(1/(2e))+1).
%e 3.1809660866389432106835864035475750051608787493965754320539648...
%t RealDigits[ Exp[1 + ProductLog[1/(2*E)]], 10, 99] // First (* _Jean-François Alcover_, Feb 19 2013 *)
%Y Cf. A141251.
%K nonn,cons
%O 1,1
%A _David Applegate_ and _N. J. A. Sloane_, Sep 04 2008
|