OFFSET
0,1
COMMENTS
Very slow convergence!
MAPLE
P:=proc(n) local a, i; a:=0; for i from 1 by 1 to n do a:=evalf(a+(-1)^(i-1)/((i!)^(1/i)), 50); print(a); od; end: P(100000);
MATHEMATICA
digits = 105; NSum[-(-1)^k/k!^(1/k), {k, 1, Infinity}, Method -> "AlternatingSigns", WorkingPrecision -> digits+10] // RealDigits[#, 10, digits]& // First (* Jean-François Alcover, Feb 18 2014 *)
PROG
(PARI) {a(n) = if( n<0, 0, n++; default( realprecision, n+2); floor( sumalt( k=1, -(-1)^k / k!^(1/k)) * 10^n) % 10)} /* Michael Somos, Jan 17 2012 */
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Feb 14 2008
EXTENSIONS
Definition corrected by Michael Somos, Mar 01 2008
STATUS
approved