SeriesCoefficient[Exp[1/(x^2 + 1)], {x, 0, n}]
SeriesCoefficient[Exp[1/(x^2 + 1)], {x, 0, n}]; DiscretePlot[%, {n, 50}, PlotRange -> All]