%I A100106
%S A100106 5,9,7,5,4,2,6,1,7,5,2,6,9,3,3,8,7,4,7,6,8,6,3,2,6,0,1,9,6,8,8,2,8,9,7,
%T A100106 7,5,8,7,4,3,3,1,9,9,3,1,8,9,8,0,4,9,3,1,7,5,7,7,0,9,2,6,2,4,1,2,7,5,9,
%U A100106 1,8,8,5,1,0,8,3,6,4,1,2,7,8,7,4,4,9,8,8,4,9,2,9,6,6,5,8,9,6,5,2,6,5,3
%N A100106 Decimal expansion of Sum_{k>0} -(-1)^k / k!^(1/k).
%C A100106 Very slow convergence!
%p A100106 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);
%o A100106 (PARI) {a(n) = if( n<0, 0, n++; floor(sumalt(k=1, -(-1)^k/k!^(1/k)) * 
               10^n) % 10)} /* Michael Somos Mar 01 2008 */
%Y A100106 Sequence in context: A021630 A079459 A118309 this_sequence A125650 A140724 
               A086055
%Y A100106 Adjacent sequences: A100103 A100104 A100105 this_sequence A100107 A100108 
               A100109
%K A100106 cons,nonn
%O A100106 0,1
%A A100106 Paolo P. Lava & Giorgio Balzarotti (ppl(AT)spl.at), Feb 14 2008
%E A100106 Definition corrected by Michael Somos, Mar 01 2008