|
%I #14 Jan 28 2014 09:03:49
%S 3,7,7,0,7,8,4,2,5,3,5,3,7,4,2,9,4,5,5,0,5,4,4,2,1,6,1,3,7,0,5,4,2,2,
%T 0,4,4,0,5,0,4,5,1,9,1,7,0,5,6,7,8,7,0,1,0,4,7,6,2,2,8,9,9,8,0,4,2,2,
%U 7,2,5,9,4,8,8,8,0,0,8,2,3,1,1,6,3,3,8,0,1,1,5,5,2,0,9,6,1,9,8,1,6,7,5,9,8
%N Decimal expansion of Sum_{k>=1} exp(-k^2)/k.
%e 0.3770784253537429455054421613705422044050451917056787010476228998042...
%p sum(exp(-k^2)/k, k=1..infinity); evalf(%, 120);
%t digits = 105; NSum[1/(E^(k^2)*k), {k, 1, Infinity}, WorkingPrecision -> digits+1] // RealDigits[#, 10, digits]& // First (* _Jean-François Alcover_, Jan 28 2014 *)
%o (PARI) suminf(k=1,exp(-k^2)/k) \\ _Charles R Greathouse IV_, Jul 07 2013
%K nonn,cons
%O 0,1
%A _Francesco Daddi_, Jul 07 2013
|
