SeriesCoefficient[Exp[-2 x^3 + 7 x^2], {x, 0, n}, Assumptions -> n > 0]
SeriesCoefficient[Exp[-2 x^3 + 7 x^2], {x, 0, n}, Assumptions -> n > 0]; DiscretePlot[%, {n, 50}]