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