OFFSET
0,1
LINKS
Eric Weisstein's World of Mathematics, Hypercube Line Picking
EXAMPLE
0.256502341...
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Eric W. Weisstein, Feb 24 2005
STATUS
approved