New in Wolfram Mathematica 7: Integer Sequence Analysis  previous | next 
Obtain the General Formula for Power Series Coefficients
Obtain a general formula for a power series coefficient based on a truncated series.
In[1]:=

Click for copyable input
CoefficientList[Series[Exp[x^3 + x + 1/(x + 1)], {x, 0, 20}], x]
Out[1]=



In[2]:=

Click for copyable input
CoefficientList[Series[Exp[x^3 + x + 1/(x + 1)], {x, 0, 20}], x];

FindSequenceFunction[%, n]
Out[2]=



In[3]:=

Click for copyable input
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}]
Out[3]=