New in Wolfram Mathematica 7: Integer Sequence Analysis ◄ previous | next ►
Discover a Formula for Fourier Series Coefficients
Discover a general formula for Fourier coefficients based on an initial list.
In[1]:=

Click for copyable input
Table[FourierCoefficient[SquareWave[x/(2 Pi)], x, n], {n, 1, 10}]
Out[1]=



In[2]:=

Click for copyable input
Table[FourierCoefficient[SquareWave[x/(2 Pi)], x, n], {n, 1, 10}];

FindSequenceFunction[%, n]
Out[2]=



In[3]:=

Click for copyable input
Table[FourierCoefficient[SquareWave[x/(2 Pi)], x, n], {n, 1, 10}];

FindSequenceFunction[%, n];

Table[FourierCoefficient[SquareWave[x/(2 Pi)], x, n] - %, {n, 20}]
Out[3]=