n = 6 (slider from 1 to 20, step 1)
L1 = Sequence(2^(i), i, 1, n)
L3 = Sequence((k, (1 + 1 / Element[L1, k])^(Element[L1, k])), k, 1, n)
P = Element(L3, n)
Z = Element(L1, n)
yP: y(P)
Text1: "n = " + (LaTeX[Z]) + "\\


e \approx (1+\frac{1}{" + (LaTeX[Z]) + "})^" + (LaTeX[{Z}]) + "=" + (LaTeX[yP]) + ""
L2 = Sequence(Text[Element[L1, k], (k - k / 50, 0.02)], k, 1, n)