login
Decimal expansion of the real zero (negated) of the 7th Maclaurin polynomial of e^x.
0

%I #13 Feb 13 2020 11:54:29

%S 2,7,5,9,0,0,2,7,0,9,9,6,2,2,7,1,8,5,6,5,8,2,5,4,0,9,2,3,0,6,7,5,4,1,

%T 6,8,9,8,3,4,3,7,7,2,6,9,6,4,9,9,0,8,3,7,4,3,9,1,3,6,4,8,3,6,5,4,7,4,

%U 2,9,8,5,9,7,3,4,9,2,3,5,0,6,3,2,5,1

%N Decimal expansion of the real zero (negated) of the 7th Maclaurin polynomial of e^x.

%e Real zero = -2.75900270996227185658254092306754168983437...

%t z = 150; p[n_, x_] := Normal[Series[E^x, {x, 0, n}]];

%t t = x /. NSolve[p[7, x] == 0, x, z][[1]]

%t RealDigits[t][[1]]

%t Plot[Evaluate[p[7, x]], {x, -4, 1}]

%Y Cf. A117605.

%K nonn,cons,easy

%O 1,1

%A _Clark Kimberling_, Feb 11 2020