|
%I #8 Apr 19 2014 01:43:18
%S 4,4,8,2,1,4,8,4,0,8,9,1,0,7,8,2,8,6,1,0,4,0,2,9,1,4,4,6,4,6,4,2,7,1,
%T 2,2,0,9,0,9,9,4,4,3,0,7,5,9,6,2,8,0,4,1,4,0,5,6,9,6,1,9,7,6,2,2,6,1,
%U 1,7,9,1,9,6,9,0,7,2,5,1,8,2,9,1,4,9,5,2,3,0,3,1,0,9,7,0,4,1,9,8,9,5,0,7,4
%N Decimal expansion of zero of f(x)=e^(W(x^2)/x)/log x + Ei(-log(W(x^2)/x)).
%e 0.44821484089107828610402914464642712209099443075962804140569619762261179196907... - _Robert G. Wilson v_, Oct 21 2010
%t f[x_] := E^(ProductLog[x^2]/x)/Log[x] + ExpIntegralEi[ -Log[ ProductLog[x^2]/x]]; RealDigits[ FindRoot[ f@x, {x, 0.5}, WorkingPrecision -> 128][[1, 2]], 10, 128][[1]] (* _Robert G. Wilson v_, Oct 21 2010 *)
%K nonn,cons
%O 0,1
%A _Geoffrey Caveney_, Oct 16 2010
%E More terms from _Robert G. Wilson v_, Oct 21 2010
|
