This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A330187 #13 Feb 13 2020 11:54:33
%S A330187 2,1,8,0,6,0,7,1,2,4,0,3,5,1,2,5,9,0,4,4,9,7,8,3,5,9,2,6,9,9,2,0,4,9,
%T A330187 0,9,0,6,3,0,5,6,0,6,7,4,4,4,2,9,8,8,7,2,6,7,1,2,3,3,4,9,8,0,4,1,3,8,
%U A330187 4,8,7,3,1,0,5,5,4,2,8,2,0,0,6,3,7,4
%N A330187 Decimal expansion of the real zero (negated) of the 5th Maclaurin polynomial of e^x.
%e A330187 Real zero = -2.18060712403512590449783592699204909063056067444298872671...
%t A330187 z = 150; p[n_, x_] := Normal[Series[E^x, {x, 0, n}]];
%t A330187 t = x /. NSolve[p[5, x] == 0, x, z][[1]]
%t A330187 RealDigits[t][[1]]
%t A330187 Plot[Evaluate[p[5, x]], {x, -3, 1}]
%Y A330187 Cf. A117605.
%K A330187 nonn,cons,easy
%O A330187 1,1
%A A330187 _Clark Kimberling_, Feb 11 2020