The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #10 Feb 13 2020 11:54:25
%S 3,3,3,3,5,5,1,4,8,5,2,6,9,0,4,8,8,0,3,2,9,4,2,7,3,9,1,6,3,3,4,5,0,5,
%T 4,6,3,2,6,3,6,1,4,6,3,8,7,4,1,7,2,2,1,7,3,1,2,8,2,5,8,7,3,6,6,9,5,9,
%U 7,0,0,8,3,1,3,7,2,4,3,2,3,0,9,3,0,7
%N Decimal expansion of the real zero (negated) of the 9th Maclaurin polynomial of e^x.
%e -3.33355148526904880329427391633450546326361463874...
%t z = 150; p[n_, x_] := Normal[Series[E^x, {x, 0, n}]];
%t t = x /. NSolve[p[9, x] == 0, x, z][[1]]
%t RealDigits[t][[1]]
%t Plot[Evaluate[p[9, x]], {x, -4, 1}]
%Y Cf. A117605.
%K nonn,cons,easy
%O 1,1
%A _Clark Kimberling_, Feb 11 2020