CoefficientList[Series[Exp[x^3 + x + 1/(x + 1)], {x, 0, 20}], x]
CoefficientList[Series[Exp[x^3 + x + 1/(x + 1)], {x, 0, 20}], x]; FindSequenceFunction[%, n]
CoefficientList[Series[Exp[x^3 + x + 1/(x + 1)], {x, 0, 20}], x]; FindSequenceFunction[%, n]; CoefficientList[Series[Exp[x^3 + x + 1/(x + 1)], {x, 0, 50}], x] - Table[%, {n, 51}]