deletions | additions       diff --git a/section_Describing_the_Generating_Functions__.tex b/section_Describing_the_Generating_Functions__.tex  index 4a42b7c..2241217 100644  --- a/section_Describing_the_Generating_Functions__.tex  +++ b/section_Describing_the_Generating_Functions__.tex 
...
\end{equation}  1,12,4,2,4,6,2,6,4  We can use the following Mathematica code to get the coefficients of this generating function \begin{equation}  \mathrm{FF=Select[Range[3000],GCD[#1,2310]==1&];}\\  \mathrm{H[x\_]=x*Sum[aa[k]*x^k,{k,0,480}]/(1-x-x^480+x^481);}\\  \mathrm{L={};}\\ \mathrm{FF=Select[Range[3000],GCD[\#1,2310]==1\&];}\\  \mathrm{H[x\_]=x*Sum[aa[k]*x^k,{k,0,480}]/(1-x-x^{480}+x^{481});}\\  \mathrm{L=\{\};}\\  \mathrm{For[n=1, n<241, n++,+}\\ n++,}\\  \; \mathrm{QQ[n\_]=Limit[D[H[x],{x,n}]/Factorial[n],x->0]==FF[[n]];}\\ \mathrm{QQ[n\_]=Limit[D[H[x],{x,n}]/Factorial[n],x\rightarrow0]==FF[[n]];}\\  \; \mathrm{AppendTo[L,QQ[n]]}\\  \mathrm{]}\\  \mathrm{Solve[L]}