OFFSET
1,1
EXAMPLE
Real zero = -2.75900270996227185658254092306754168983437...
MATHEMATICA
z = 150; p[n_, x_] := Normal[Series[E^x, {x, 0, n}]];
t = x /. NSolve[p[7, x] == 0, x, z][[1]]
RealDigits[t][[1]]
Plot[Evaluate[p[7, x]], {x, -4, 1}]
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Feb 11 2020
STATUS
approved