deletions | additions       diff --git a/section_Describing_the_Generating_Functions__.tex b/section_Describing_the_Generating_Functions__.tex  index ae2812a..4a42b7c 100644  --- a/section_Describing_the_Generating_Functions__.tex  +++ b/section_Describing_the_Generating_Functions__.tex 
...
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{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->0]==FF[[n]];}\\  \; \mathrm{AppendTo[L,QQ[n]]}  \mathrm{]} \mathrm{AppendTo[L,QQ[n]]}\\  \mathrm{]}\\  \mathrm{Solve[L]}  \end{equation}