【Mathematica】 数列极限的观察

版本：Mathematica 12.1

---

题目

通过绘图，观察重要极限$\underset{n\to \infty }{\lim }{\left(1+\frac{1}{n}\right)}^n=e$。

代码

an = {
   (1 + 1/1)^1, (1 + 1/2)^2, (1 + 1/3)^3};
Do[an = Append[an, (1 + 1/i)^i];
 t = ListPlot[an, PlotRange -> {
   1.8,