%I #13 Nov 02 2019 13:43:24
%S 2,5,6,5,0,2,3,4,1,0,3,2,1,8,6,2,4,2,0,7,4,9,5,5,6,8,9,7,1,8,3,6,3,9,
%T 9,4,6,8,9,9,8,5,3,1,7,2,0,3,4,0,7,8,9,6,0,3,6,0,2,0,6,6,7,4,6,1,2,0,
%U 4,6,9,0,4,1,8,5,4,9,5,3,3,8,5,0,3,2,3,2,6,6,5,8,6,6,9,9,7,3,1,2,6,7
%N Decimal expansion of Integral_{x>=0} exp(-x^2)*erf(x)^3/x dx.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HypercubeLinePicking.html">Hypercube Line Picking</a>
%e 0.256502341...
%t Clear[f]; f[n_] := f[n] = RealDigits[ NIntegrate[ Exp[-x^2]*Erf[x]^3/x, {x, 0, n}, WorkingPrecision -> 110], 10, 102] // First; f[10]; f[n = 20]; While[f[n] != f[n-10], n = n+10]; f[n] (* _Jean-François Alcover_, Feb 07 2013 *)
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Feb 24 2005
|