m = 4 (slider from 1 to 10, step 1)
n = 0 (slider from 0 to 50, step 1)
terme = Min(n, m)
L = Sequence((1 / k! * x^(k)), k, 0, n)
p = Sum(L)
lastsign = If(IsInteger[n / 2], "+", "+")
last = If(n > terme, LaTeX[lastsign + (Element[L, n + 1])], "")
p_{t} = Sum(L, terme + 1)
f(x) = ℯ^(x)
ellipsis = Text(If[n - 1 > terme, "+...", ""])
Text1: "\textcolor{#3333FF}{" + (LaTeX[f]) + "}≈" + (LaTeX[p_{t}]) + "" + (LaTeX[ellipsis]) + "" + (LaTeX[last]) + ""