a_n =

F(n) = 1 / n
k = Limit(F, Infinity)
f = Textfield(F)
lista1 = Sequence((n, F(n)), n, 1, 1000)
g = Function(F, 1, Infinity)
kt = If(Defined[k], k, round(F(1000000000) * 100) / 100)
tabla2 = TableText({{"n", "a(n)=" * F}, {"1", F(1)}, {"10", F(10)}, {"10²", F(100)}, {"10³", F(1000)}, {"10⁴", F(10000)}, {"10⁵", F(100000)}}, "c|_")
texto1: "\scalebox{1.5}{\lim_{ n \to ∞ }" + (LaTeX[F]) + "=" + (LaTeX[kt]) + "}"