(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 361249, 10251] NotebookOptionsPosition[ 350498, 10068] NotebookOutlinePosition[ 351303, 10096] CellTagsIndexPosition[ 351260, 10093] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Scientific Programming 4", "Title", CellChangeTimes->{{3.724943992364118*^9, 3.724944007146431*^9}, 3.725524593957123*^9, 3.726336972840088*^9, {3.821347032422962*^9, 3.8213470388273163`*^9}, 3.821955106714554*^9},ExpressionUUID->"56e80fe5-ce6c-41d1-b66a-\ 0fb700393263"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", " ", RowBox[{"Background", " ", "\[Rule]", " ", "LightBlue"}], ",", RowBox[{"CellBracketOptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "Blue"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"20", ",", "20"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "3.5"}]}], "}"}]}], ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.8203427063672333`*^9, 3.820342710366617*^9}, { 3.820342935130333*^9, 3.820342954631484*^9}, {3.8203429969742928`*^9, 3.820343001387989*^9}, {3.820343450595797*^9, 3.8203434962099524`*^9}, { 3.82133799284402*^9, 3.821337995589003*^9}, 3.821338037042634*^9, { 3.821338104274653*^9, 3.821338118749104*^9}, 3.8213382124094257`*^9, { 3.821338261882592*^9, 3.821338269905648*^9}, 3.821338306335579*^9, { 3.821339170488145*^9, 3.821339195906999*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"0384960a-c6ab-40a1-90e8-ad7bb79f40a3"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ A project to do with the periods of a CY manifold \ \>", "Section", CellChangeTimes->{{3.726345646931246*^9, 3.726345711213389*^9}, { 3.726345755870985*^9, 3.7263457614660177`*^9}, {3.726419142154557*^9, 3.7264191428889513`*^9}, {3.822037936353581*^9, 3.82203794372958*^9}},ExpressionUUID->"6e46ced6-56e9-440b-8388-\ 01e8646e6d3a"], Cell["Consider the quantity", "Text", CellChangeTimes->{{3.821963068412293*^9, 3.821963075463902*^9}},ExpressionUUID->"2fb38390-0b8a-4e18-b582-\ 121d2ce0aec8"], Cell[BoxData[ RowBox[{ RowBox[{"Tpoly", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"x", "+", FractionBox["1", "x"], "+", "y", "+", FractionBox["1", "y"], "+", FractionBox["x", "y"], "+", FractionBox["y", "x"]}]}]], "Input", CellChangeTimes->{{3.683944767893219*^9, 3.683944837672598*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"d3cb2246-8d68-4808-bd40-7d82e6b51ec2"], Cell[TextData[{ "We want first to evaluate \n\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Alpha]", "n"], "=", " ", RowBox[{"[", " ", RowBox[{"(", RowBox[{"T", "[", RowBox[{"x", ",", "y"}], "]"}]}]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "20d71d4e-283b-45a3-995c-824dc20814b7"], " + ", Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"T", "[", RowBox[{"z", ",", "w"}], "]"}], ")"}], "n"], " ", "]"}], "0"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "f77cf84e-042b-44b0-9900-bfcd8c80f698"], "\n\nfor say n = 1,...,500, say. The notation means that we want to evaluate \ the constant term in ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"T", "[", RowBox[{"x", ",", "y"}], "]"}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "9211bde8-2c90-456f-8ffd-ee741ca5e581"], " + ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"T", "[", RowBox[{"z", ",", "w"}], "]"}], ")"}], "n"], " "}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "5c370cbd-553f-4749-9733-9da79b995bfe"], ". \nBrute force evaluation bogs down already for low values of n ." }], "Text", CellChangeTimes->{{3.8219630885704613`*^9, 3.8219633046203127`*^9}, { 3.82196334847265*^9, 3.821963354210698*^9}, {3.821963385798764*^9, 3.821963483805519*^9}},ExpressionUUID->"cae58321-d51b-42ec-8b41-\ d98a25d71d1e"], Cell[BoxData[ RowBox[{ SubscriptBox["T", "k_"], ":=", RowBox[{ SubscriptBox["T", "k"], "=", "\[IndentingNewLine]", RowBox[{"Coefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ SuperscriptBox[ RowBox[{"Tpoly", "[", RowBox[{"x", ",", "y"}], "]"}], "k"], ",", "x", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", " ", "y", ",", "0"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.683944842808281*^9, 3.6839448833338413`*^9}, { 3.6839450400461807`*^9, 3.6839450669542933`*^9}, {3.683945118979328*^9, 3.683945225419833*^9}, {3.683945266244997*^9, 3.6839452745863934`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"49716ab2-446a-4b9e-95ed-4c1b263ee0e3"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Alpha]", "n"], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], " ", SubscriptBox["T", "k"], " ", SubscriptBox["T", RowBox[{"n", "-", "k"}]]}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ".", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", "For"}], " ", "example", " ", SubscriptBox["\[Alpha]", "3"]}], "=", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["T", "0"], SubscriptBox["T", "3"]}], "+", RowBox[{"3", SubscriptBox["T", "1"], SubscriptBox["T", "2"]}], "+", RowBox[{"3", SubscriptBox["T", "2"], SubscriptBox["T", "1"]}], "+", RowBox[{ SubscriptBox["T", "3"], SubscriptBox["T", RowBox[{"0", " "}]]}]}], "=", " ", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["T", "0"], SubscriptBox["T", "3"]}], "+", RowBox[{"3", SubscriptBox["T", "1"], SubscriptBox["T", "2"]}]}], ")"}], " ", "and", " ", SubscriptBox["\[Alpha]", "4"]}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["T", "0"], SubscriptBox["T", "4"]}], "+", RowBox[{"4", SubscriptBox["T", "1"], SubscriptBox["T", "3"]}], "+", RowBox[{"6", SuperscriptBox[ SubscriptBox["T", "2"], "2"]}], "+", RowBox[{"4", SubscriptBox["T", "3"], SubscriptBox["T", RowBox[{"1", " "}]]}], "+", " ", RowBox[{ SubscriptBox["T", "4"], SubscriptBox["T", "0"]}]}], " ", "=", " ", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["T", "0"], SubscriptBox["T", "4"]}], "+", RowBox[{"4", SubscriptBox["T", "1"], SubscriptBox["T", "3"]}]}], ")"}]}], " ", "+", " ", RowBox[{"6", RowBox[{ SuperscriptBox[ SubscriptBox["T", "2"], "2"], " ", "."}]}]}]}]}]}]}]}]], "Text", CellChangeTimes->{{3.821963590179734*^9, 3.82196368222383*^9}, { 3.821963946409873*^9, 3.821964154115795*^9}, {3.821964254574559*^9, 3.821964411262682*^9}},ExpressionUUID->"3584ad38-ec12-4e70-a9c1-\ 90745a426493"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Alpha]", "n_"], ":=", " ", RowBox[{ SubscriptBox["\[Alpha]", "n"], "=", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"OddQ", "[", "n", "]"}], ",", RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], SubscriptBox["T", RowBox[{"n", "-", "k"}]], " ", SubscriptBox["T", "k"]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", FractionBox[ RowBox[{"n", "-", "1"}], "2"]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], SubscriptBox["T", RowBox[{"n", "-", "k"}]], " ", SubscriptBox["T", "k"]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{ FractionBox["n", "2"], "-", "1"}]}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", FractionBox["n", "2"]}], "]"}], " ", SuperscriptBox[ SubscriptBox["T", RowBox[{"n", "/", "2"}]], "2"]}]}]}], "\[IndentingNewLine]", " ", "]"}]}]}]], "Input", CellChangeTimes->{{3.683945297470026*^9, 3.683945338878929*^9}, { 3.683945388874042*^9, 3.6839456299161673`*^9}, {3.683945780334428*^9, 3.6839458138810062`*^9}, {3.683945853441077*^9, 3.6839458620003223`*^9}, { 3.6840232918544893`*^9, 3.684023292880287*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"f860c588-44ed-4f2c-9423-0b91ba36ef64"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[Alpha]", "n"], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6839456958259172`*^9, 3.68394572103228*^9}, 3.683945845946809*^9, {3.6839461615770082`*^9, 3.6839461950693903`*^9}, { 3.683946364055847*^9, 3.6839463790230017`*^9}, {3.683948638557597*^9, 3.68394863876378*^9}, {3.683969224028224*^9, 3.683969225137722*^9}, { 3.683969568681562*^9, 3.683969568831348*^9}, 3.684023304974506*^9}, CellLabel->"In[5]:=",ExpressionUUID->"e6af5fbc-8b77-4add-94ec-39757f88048e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "12", ",", "24", ",", "396", ",", "2160", ",", "23160", ",", "186480", ",", "1845900", ",", "17213280", ",", "171575712", ",", "1703560320", ",", "17365421304", ",", "178323713568", ",", "1856554560432", ",", "19487791106784", ",", "206411964321420", ",", "2201711191213248", ",", "23642813637773616", ",", "255355132936441824", ",", "2772650461148938656", ",", "30248675037382538880", ",", "331438542846964180992", ",", "3645985314663912489984", ",", "40253352687777620374776", ",", "445899348810135736176960", ",", "4954599887270237905852800", ",", "55210013720527863783880320", ",", "616845490089371010724497840", ",", "6908835039102833099223965760", ",", "77558935621320663634645169760", ",", "872555336075039351141820542400", ",", "9836256654406990510063112404620", ",", "111093683696857593088076506055040", ",", "1256964832153899565798063964625360", ",", "14245801154241460321451736436267680", ",", "161711184920698116201513043068894000", ",", "1838422802677352902944026880120269760", ",", "20929968050634158361809598843821082720", ",", "238604084297865887503634354739682226880", ",", "2723604302705399110711864482680203408800", ",", "31127182673212368692213826730815487238400", ",", "356155829380376900900913291081937387488000", ",", "4079634680295870734083713299360651118873600", ",", "46780149321943165896822459952777274423385600", ",", "536958394984483586022362225192235106645985280", ",", "6169348420937264128969792709201188166008089600", ",", "70947930272537334350509861861788754738180700160", ",", "816629740093680630102475274822880521200882128120", ",", "9407624323260315606435813085689677006965402097280", ",", "108464914912610947331756997308308146813500741423712"}], "}"}]], "Output", CellChangeTimes->{3.8220419092703953`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"309424fd-fd2c-41ab-9849-ac21fccadca9"] }, Open ]], Cell[BoxData[ RowBox[{ SubscriptBox["\[CurlyPi]", "0"], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "51"]}]}]], "Input", CellChangeTimes->{{3.683946014478756*^9, 3.6839460594574137`*^9}, { 3.683946404516212*^9, 3.683946405356264*^9}, {3.683946448248506*^9, 3.6839464958451233`*^9}, {3.683969879855895*^9, 3.683969885166272*^9}, 3.684023306560648*^9}, CellLabel->"In[6]:=",ExpressionUUID->"4faf33b1-415d-4ec2-8beb-95dcba48669e"], Cell["\[Theta] = \[CurlyPhi] \[PartialD]/\[PartialD]\[CurlyPhi]", "Text", CellChangeTimes->{{3.8220405869916487`*^9, 3.822040621380197*^9}},ExpressionUUID->"c4170ff2-7912-439e-8e6f-\ 3150ff6b3365"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "fn_", "]"}], ":=", RowBox[{"\[CurlyPhi]", " ", RowBox[{"D", "[", RowBox[{"fn", ",", "\[CurlyPhi]"}], "]"}]}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"fn_", ",", "m_"}], "]"}], ":=", RowBox[{"Nest", "[", RowBox[{"\[Theta]", ",", "fn", ",", "m"}], "]"}]}]}], "Input", CellChangeTimes->{{3.6839470691118402`*^9, 3.6839471104887047`*^9}, { 3.683969913332347*^9, 3.683969917910274*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"06ee786e-0713-49d7-90f6-9c94a8b70b5b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Theta]", "[", SuperscriptBox["\[CurlyPhi]", "n"], "]"}]], "Input", CellChangeTimes->{{3.68394718941846*^9, 3.683947204955717*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"cb582fb3-50c5-4e14-b814-e05c5454af84"], Cell[BoxData[ RowBox[{"n", " ", SuperscriptBox["\[CurlyPhi]", "n"]}]], "Output", CellChangeTimes->{3.822042117815134*^9}, CellLabel->"Out[9]=",ExpressionUUID->"ed1f86d8-db59-401c-af79-3e6320f9e2bb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Theta]", "[", RowBox[{ SuperscriptBox["\[CurlyPhi]", "n"], ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.68394718941846*^9, 3.683947217427064*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"26d47b1c-398f-4cb2-9b4c-ac8827c08f59"], Cell[BoxData[ RowBox[{ SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}]], "Output", CellChangeTimes->{3.822042143582666*^9}, CellLabel->"Out[10]=",ExpressionUUID->"b78d37de-bc92-4012-aae2-90bdfa7b6f0c"] }, Open ]], Cell[TextData[{ "Let us seek a differential equation that ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"0", " "}]], "solves", " "}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "58cc2489-4982-4048-896c-6fe4b13a990f"], "with operator \[ScriptCapitalL] = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Sum]", "j"], SubscriptBox["R", "j"]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "90906e93-2b5f-44f3-a8a2-e2ee1b665a09"], "(\[CurlyPhi]) ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Theta]", "j"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "14760211-0227-4ad1-8d8f-387ae7fc1c02"], " , with the ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["R", "j"], " ", "polynomials", " ", "in", " ", RowBox[{"\[CurlyPhi]", "."}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "f7e916b6-1eb3-4d8e-8f0e-4d6ff6402657"] }], "Text", CellChangeTimes->{{3.822040880049313*^9, 3.822041132674679*^9}},ExpressionUUID->"34719e68-7ff0-41e0-b5d5-\ 47c7d60e4dea"], Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"j_", ",", "kmax_"}]], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["r", RowBox[{"j", ",", "k"}]], " ", SuperscriptBox["\[CurlyPhi]", "k"]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "kmax"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.683947253296406*^9, 3.683947315388988*^9}, { 3.6839480386756287`*^9, 3.6839480489311934`*^9}, {3.683948264282259*^9, 3.68394829560565*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"43e1ea14-948b-444c-9e8a-d5bab643911a"], Cell[BoxData[ RowBox[{ RowBox[{"L", "[", RowBox[{"fn_", ",", "kmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["R", RowBox[{"j", ",", "kmax"}]], RowBox[{"\[Theta]", "[", RowBox[{"fn", ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6839473288295193`*^9, 3.683947427758787*^9}, { 3.683948306616243*^9, 3.683948321303928*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"68c4ebb4-377a-40ed-aee5-58234f64b48b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"kmax", "=", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"L", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "0"], ",", "kmax"}], "]"}], "]"}], ",", "\[CurlyPhi]"}], "]"}]}], " ", "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.683947512308634*^9, 3.683947687365563*^9}, { 3.683947755306613*^9, 3.6839477953785057`*^9}, {3.683947832666246*^9, 3.683947840895804*^9}, {3.683948360088979*^9, 3.683948391231901*^9}, { 3.726407895445284*^9, 3.726407899241578*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"dfe98028-f3d4-4d2a-9fea-2cf110fc226d"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "0"}]], ",", SubscriptBox["r", RowBox[{"0", ",", "1"}]], ",", RowBox[{ RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", SubscriptBox["r", RowBox[{"0", ",", "2"}]], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}]}], ",", RowBox[{ RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", SubscriptBox["r", RowBox[{"0", ",", "3"}]], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}]}], ",", RowBox[{ RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}]}], ",", RowBox[{ RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"816629740093680630102475274822880521200882128120", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"39198227524496670244918813191498265017642342149760", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1881514921175840171756103033191916720846832423188480", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"90312716216440328244292945593212002600647956313047040", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"4335010378389135755726061388474176124831101903026257920", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"9407624323260315606435813085689677006965402097280", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"816629740093680630102475274822880521200882128120", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"460973591839755464715354841198794173341304702766720", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"39198227524496670244918813191498265017642342149760", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"22587706000148017771052387218740914493723930435569280", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1881514921175840171756103033191916720846832423188480", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1106797594007252870781566973718304810192472591342894720", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"90312716216440328244292945593212002600647956313047040", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"54233082106355390668296781712196935699431156975801841280", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"4335010378389135755726061388474176124831101903026257920", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"108464914912610947331756997308308146813500741423712", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"9407624323260315606435813085689677006965402097280", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"816629740093680630102475274822880521200882128120", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"5423245745630547366587849865415407340675037071185600", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"460973591839755464715354841198794173341304702766720", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"39198227524496670244918813191498265017642342149760", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"271162287281527368329392493270770367033751853559280000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"22587706000148017771052387218740914493723930435569280", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1881514921175840171756103033191916720846832423188480", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"13558114364076368416469624663538518351687592677964000000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1106797594007252870781566973718304810192472591342894720", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"90312716216440328244292945593212002600647956313047040", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{ "677905718203818420823481233176925917584379633898200000000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"54233082106355390668296781712196935699431156975801841280", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"4335010378389135755726061388474176124831101903026257920", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}]}], "}"}]], "Output", CellChangeTimes->{3.822042440887739*^9}, CellLabel->"Out[13]=",ExpressionUUID->"b59c4ee6-4ae0-4402-bfe6-221a14c00a14"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.6839485182942953`*^9, 3.6839485226446867`*^9}, { 3.683948587544921*^9, 3.683948588238224*^9}, 3.683970032842928*^9}, CellLabel->"In[14]:=",ExpressionUUID->"d473df8b-8324-4388-a0c3-91e3bc431778"], Cell[BoxData["51"], "Output", CellChangeTimes->{3.8220425529725113`*^9}, CellLabel->"Out[14]=",ExpressionUUID->"89d52c67-2311-4619-9325-b38f1c081276"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{"%%", "\[Equal]", "0"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.683948534704454*^9, 3.683948545338254*^9}, { 3.683970061279182*^9, 3.683970083061301*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"3325f33a-36f8-4462-a9fc-d4f65f2cd3b0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "3"}]], "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{3.8220425616427*^9}, CellLabel->"Out[15]=",ExpressionUUID->"8b942bec-9b40-4388-986c-e98ccd80bcbb"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Rlist", ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"kmax", "=", "3"}], ",", "Rsoln", ",", RowBox[{"tempRlist", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"tempRlist", "==", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"kmax", "++"}], ";", "\[IndentingNewLine]", RowBox[{"Rsoln", "=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Solve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"L", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "0"], ",", "kmax"}], "]"}], "]"}], ",", "\[CurlyPhi]"}], "]"}], " ", "\[Equal]", "0"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tempRlist", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["R", RowBox[{"j", ",", "kmax"}]], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}], "/.", "Rsoln"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", "tempRlist"}]}], " ", "]"}]}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{" "}]}], "Input", CellChangeTimes->{{3.683970154865281*^9, 3.683970201961486*^9}, { 3.683970255161056*^9, 3.683970260435525*^9}, 3.683970343262549*^9, { 3.6839703995239277`*^9, 3.68397054112187*^9}, 3.683970593613941*^9, { 3.683970678391863*^9, 3.683970717119225*^9}, {3.683970756968211*^9, 3.683970851668535*^9}, {3.683970923476739*^9, 3.683971152588388*^9}, { 3.6839711941754417`*^9, 3.683971200125175*^9}, {3.683971252662312*^9, 3.683971317945737*^9}, 3.683971453000162*^9, {3.683971501400317*^9, 3.6839715123912992`*^9}, {3.6839715835303087`*^9, 3.683971601975441*^9}, { 3.683971782964346*^9, 3.683971793416066*^9}, 3.6839718512927513`*^9, { 3.683971923746788*^9, 3.683971945695725*^9}, 3.6839719844857407`*^9, 3.683972086145269*^9, {3.68397212459927*^9, 3.6839721763592377`*^9}, { 3.6839723587043543`*^9, 3.6839723601655293`*^9}, {3.683972398201645*^9, 3.6839724309431143`*^9}, {3.683972488622014*^9, 3.68397251160833*^9}, { 3.683972667099731*^9, 3.683972710536978*^9}, {3.726408117324984*^9, 3.72640812716158*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"b5f05f17-cb20-403f-afd7-115eb720e3ed"], Cell[CellGroupData[{ Cell[BoxData["Rlist"], "Input", CellChangeTimes->{{3.683971216170064*^9, 3.683971217997251*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"84a930be-10ea-48da-8bf7-7942c69d2681"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "36"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{"36", "+", RowBox[{"9", " ", "\[CurlyPhi]"}], "-", RowBox[{"6182", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "+", RowBox[{"284", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"132120", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"130464", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"34560", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], ",", FractionBox[ RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"5532", " ", "\[CurlyPhi]"}], "-", RowBox[{"1584", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"679952", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"166288", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"12372480", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"12745728", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"3456000", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "1728"], ",", FractionBox[ RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"39", "+", RowBox[{"6917", " ", "\[CurlyPhi]"}], "-", RowBox[{"5250", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"552220", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"274360", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"7771104", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"8581248", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"2419200", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "1728"], ",", RowBox[{ FractionBox["1", "432"], " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"15", "+", RowBox[{"1025", " ", "\[CurlyPhi]"}], "-", RowBox[{"1170", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"47572", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"36464", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"473904", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"577152", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"172800", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}], "+", RowBox[{"115", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"10", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "-", RowBox[{"2664", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"864", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"17280", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "1728"]}], "}"}]], "Output", CellChangeTimes->{3.822042803073504*^9}, CellLabel->"Out[17]=",ExpressionUUID->"06cf8893-6471-47d5-a73e-3a2b2f275d2e"] }, Open ]], Cell[BoxData[ RowBox[{ SubscriptBox["R", "j_"], ":=", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Rlist", "\[LeftDoubleBracket]", RowBox[{"j", "+", "1"}], "\[RightDoubleBracket]"}], "/.", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "2"}]], "\[Rule]", " ", "1728"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.68397679641573*^9, 3.683976882521953*^9}, { 3.789911677640089*^9, 3.78991170091905*^9}, {3.8220429966029053`*^9, 3.8220429995512238`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"574365ac-cc10-4728-8e76-bd5e82136e81"], Cell[CellGroupData[{ Cell[BoxData[ SubscriptBox["R", "4"]], "Input", CellChangeTimes->{{3.6839768947602377`*^9, 3.683976898744624*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"701f9fcc-747b-4eba-b6ed-813679c5dfce"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "\[CurlyPhi]"}]}], ")"}]}]], "Output", CellChangeTimes->{3.8220430067351303`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"091b09e2-9006-40f0-a9fb-a7bfbdfeb835"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], RowBox[{"Integrate", "[", RowBox[{ FractionBox[ SubscriptBox["R", "3"], RowBox[{"\[CurlyPhi]", " ", SubscriptBox["R", "4"]}]], ",", "\[CurlyPhi]"}], "]"}]}], "]"}], "//", "Factor"}]], "Input", CellChangeTimes->{{3.683977024429388*^9, 3.683977213347521*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"ea221cbd-01d5-4e7d-ae43-7d1947ecc1e5"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "\[CurlyPhi]"}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "\[CurlyPhi]"}]}], ")"}]}]]], "Output", CellChangeTimes->{3.822043076588739*^9}, CellLabel->"Out[21]=",ExpressionUUID->"b39327eb-9d22-409b-bc60-d702d93d006f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", "fn_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["R", "j"], RowBox[{"\[Theta]", "[", RowBox[{"fn", ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.684018606008717*^9, 3.684018629661916*^9}, { 3.684018661010459*^9, 3.684018697070593*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"40b2d09a-5b3e-433e-92da-a04f0cba0214"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalL]", "[", SubscriptBox["\[CurlyPi]", "0"], "]"}]], "Input", CellChangeTimes->{{3.68401914848958*^9, 3.684019173763008*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"b6c7570e-7d85-4025-98b2-d6caad5cb925"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "51"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 51, 51, 1], Editable->False]], "Output", CellChangeTimes->{3.822043195858636*^9}, CellLabel->"Out[23]=",ExpressionUUID->"a359f97a-17d7-43a6-acc2-e1eb55630b1b"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Solving the differential equation \ \>", "Subsection", CellChangeTimes->{{3.822032558052318*^9, 3.822032570709076*^9}, { 3.8220376083882713`*^9, 3.822037627106072*^9}},ExpressionUUID->"68d9e354-b501-40f7-8092-\ 2bec6e5c121f"], Cell[TextData[{ "Now we use the method of Frobenius to solve the differential equation. We \ seek a solution of the form\n\n", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Sum]", "0"], "\[Infinity]"], RowBox[{ RowBox[{ SubscriptBox["A", "n"], "(", "\[Epsilon]", ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "+", "\[Epsilon]"}]]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "4649b1c2-d87a-429b-980e-59bb425ac2b8"], "\n\nwith ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "0"], "(", "\[Epsilon]", ")"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "c9447cde-0f07-4697-aeb2-29333fe6f373"], " = 1. We will find a recurrence for the ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["A", "n"], " ", "and", " ", "see", " ", "that", " ", "we", " ", "have", " ", "a", " ", "solution", " ", "providing", " ", SuperscriptBox["\[Epsilon]", "4"]}], " ", "=", " ", "0."}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "ff205081-ac92-40f9-82d4-660fc200ef09"], " Expanding in \[Epsilon] we write ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "n"], "(", "\[Epsilon]", ")"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "9943244c-2e42-4892-96a4-57f190aedddb"], " = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "n"], "+"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "a828aeb7-b64c-4d5a-993a-c05f84e20558"], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["b", "n"], " ", "\[Epsilon]"}], "+"}], TraditionalForm]], ExpressionUUID->"0379e7bd-f3c2-4b72-a8d5-53fb7bce9f06"], " ", Cell[BoxData[ FormBox[ FractionBox["1", "2"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "81afad20-254a-4706-b324-dc7a00983881"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["c", "n"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+"}], TraditionalForm]], ExpressionUUID->"d84dc8c7-f30f-46af-a97e-ce1bf83dd02e"], " ", Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{"3", "!"}]], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "e67152d3-6dce-477a-9021-432754c4bc60"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", "n"], SuperscriptBox["\[Epsilon]", "3"]}], TraditionalForm]],ExpressionUUID-> "244f377b-f0aa-44d7-a1f6-e3c15d7e1f4f"], " and find, in this way, the four solutions." }], "Text", CellChangeTimes->{{3.822031723020425*^9, 3.8220321717414494`*^9}, { 3.822032208311563*^9, 3.822032459038826*^9}},ExpressionUUID->"1063258f-a9c4-409e-962c-\ 352f5d96e799"], Cell[TextData[{ "To find the recurrence, it is good to rearrange the differential operator\n\ \[ScriptCapitalL] = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Sum]", "j"], " ", RowBox[{ SubscriptBox["R", "j"], "(", "\[CurlyPhi]", ")"}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "10f111d5-429a-4f86-80c4-b9561f0f1379"], " ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Theta]", "j"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "b0d26d50-e95a-4d4a-a738-1a8efdca1239"], " = ", Cell[BoxData[ FormBox[ SubscriptBox["\[Sum]", RowBox[{"j", ",", "k"}]], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "79d073ee-706b-49f0-9bb7-8479468ce535"], " ", Cell[BoxData[ FormBox[ SubscriptBox["r", RowBox[{"j", ",", "k"}]], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "ac95ef8e-cb80-4f7c-91e5-7c5b450b8a6c"], Cell[BoxData[ FormBox[ SuperscriptBox["\[CurlyPhi]", "k"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "af605d91-c40a-47d4-a0fb-fc7baf60be6a"], " ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Theta]", "j"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "4950ad7c-ff3e-41c9-938c-ec652d57985d"], " = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Sum]", "k"], " ", RowBox[{ SuperscriptBox["\[CurlyPhi]", "k"], " ", SubscriptBox["Rt", "k"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "4326cbe9-5fa8-47aa-a14b-803db87f36bf"], "(\[Theta]) ; where ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Rt", "k"], "(", "\[Theta]", ")"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "f5284cca-e04f-401d-bb47-803d5da694d6"], " = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Sum]", RowBox[{"j", " "}]], " ", RowBox[{ SubscriptBox["r", RowBox[{"j", ",", "k"}]], " ", SuperscriptBox["\[Theta]", "j"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "8bb0cb52-67c2-42ca-8822-5109d7f8ec83"], "\n" }], "Text", CellChangeTimes->{{3.822032925287093*^9, 3.8220329539419317`*^9}, { 3.822033020772944*^9, 3.822033082162819*^9}, {3.822033113912301*^9, 3.8220332415757637`*^9}, {3.822033294322761*^9, 3.822033547534506*^9}, { 3.822033617167865*^9, 3.822033619401719*^9}, 3.822037632284601*^9},ExpressionUUID->"9ad439be-feaf-40fe-b7ff-\ 97131d34964f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lpoly", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["R", "j"], SuperscriptBox["\[Xi]", "j"]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.789888835771941*^9, 3.7898888987312803`*^9}, { 3.789888955540669*^9, 3.789888961181725*^9}, {3.789889001430306*^9, 3.7898890205010433`*^9}, {3.789889250000518*^9, 3.789889254264677*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"de13979e-780e-4948-9949-efa0714edc63"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[Xi]", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "\[CurlyPhi]"}]}], ")"}]}], "+", RowBox[{"48", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{"36", "+", RowBox[{"9", " ", "\[CurlyPhi]"}], "-", RowBox[{"6182", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "+", RowBox[{"284", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"132120", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"130464", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"34560", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["\[Xi]", "3"], " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "-", RowBox[{"345", " ", "\[CurlyPhi]"}], "+", RowBox[{"160", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "+", RowBox[{"15964", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "-", RowBox[{"1512", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"158976", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"86400", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[Xi]", "2"], " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"39", "+", RowBox[{"6917", " ", "\[CurlyPhi]"}], "-", RowBox[{"5250", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"552220", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"274360", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"7771104", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"8581248", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"2419200", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}]}], "+", RowBox[{"\[Xi]", " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"5532", " ", "\[CurlyPhi]"}], "-", RowBox[{"1584", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"679952", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"166288", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"12372480", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"12745728", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"3456000", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.822043719218247*^9}, CellLabel->"Out[24]=",ExpressionUUID->"7ff8ec06-8ce7-4718-adb6-ba21ec24f95e"] }, {1, 2}]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{"Lpoly", ",", "\[CurlyPhi]", ",", "Simplify"}], "]"}]], "Input", CellChangeTimes->{{3.789889037107512*^9, 3.789889116894602*^9}, { 3.789889263349843*^9, 3.7898892655972157`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"19fc8a84-831d-4586-8940-249d0d0fcad0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "9"}], " ", SuperscriptBox["\[Xi]", "4"]}], "+", RowBox[{"3", " ", "\[Xi]", " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"13", " ", "\[Xi]"}], "+", RowBox[{"20", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["\[Xi]", "3"]}]}], ")"}], " ", "\[CurlyPhi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1728", "+", RowBox[{"5532", " ", "\[Xi]"}], "+", RowBox[{"6917", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4100", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "216"}], "+", RowBox[{"792", " ", "\[Xi]"}], "+", RowBox[{"2625", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2340", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"74184", "+", RowBox[{"169988", " ", "\[Xi]"}], "+", RowBox[{"138055", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"47572", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1704", "+", RowBox[{"20786", " ", "\[Xi]"}], "+", RowBox[{"34295", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"18232", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"22020", "+", RowBox[{"42960", " ", "\[Xi]"}], "+", RowBox[{"26983", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"6582", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"539", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"1812", "+", RowBox[{"3688", " ", "\[Xi]"}], "+", RowBox[{"2483", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"668", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "7"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"24", "+", RowBox[{"50", " ", "\[Xi]"}], "+", RowBox[{"35", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["\[Xi]", "3"]}], "+", SuperscriptBox["\[Xi]", "4"]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "8"]}]}]], "Output", CellChangeTimes->{3.822043746860856*^9}, CellLabel->"Out[25]=",ExpressionUUID->"2887427b-6836-4e3f-a221-99617d82e495"] }, {1, 2}]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Rtlist", "=", "\[IndentingNewLine]", RowBox[{"Simplify", "[", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", RowBox[{"Lpoly", ",", "\[CurlyPhi]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Rtlist", "//", "Column"}]}], "Input", CellChangeTimes->{{3.789889171255068*^9, 3.7898892272740707`*^9}, { 3.789889272462659*^9, 3.789889279127302*^9}, {3.789889311239398*^9, 3.7898893568964243`*^9}, {3.789889462809496*^9, 3.789889487344396*^9}, { 3.789889592664445*^9, 3.789889599570201*^9}, {3.7898896855656977`*^9, 3.789889732265546*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"eaef6e26-b5a7-4ce8-b360-c5cb68574e38"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"-", "9"}], " ", SuperscriptBox["\[Xi]", "4"]}]}, { RowBox[{"3", " ", "\[Xi]", " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"13", " ", "\[Xi]"}], "+", RowBox[{"20", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["\[Xi]", "3"]}]}], ")"}]}]}, { RowBox[{"1728", "+", RowBox[{"5532", " ", "\[Xi]"}], "+", RowBox[{"6917", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4100", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["\[Xi]", "4"]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "216"}], "+", RowBox[{"792", " ", "\[Xi]"}], "+", RowBox[{"2625", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2340", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"74184", "+", RowBox[{"169988", " ", "\[Xi]"}], "+", RowBox[{"138055", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"47572", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}, { RowBox[{"8", " ", RowBox[{"(", RowBox[{"1704", "+", RowBox[{"20786", " ", "\[Xi]"}], "+", RowBox[{"34295", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"18232", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}, { RowBox[{"288", " ", RowBox[{"(", RowBox[{"22020", "+", RowBox[{"42960", " ", "\[Xi]"}], "+", RowBox[{"26983", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"6582", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"539", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "3456"}], " ", RowBox[{"(", RowBox[{"1812", "+", RowBox[{"3688", " ", "\[Xi]"}], "+", RowBox[{"2483", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"668", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}, { RowBox[{"69120", " ", RowBox[{"(", RowBox[{"24", "+", RowBox[{"50", " ", "\[Xi]"}], "+", RowBox[{"35", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["\[Xi]", "3"]}], "+", SuperscriptBox["\[Xi]", "4"]}], ")"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{3.8220438074264317`*^9}, CellLabel->"Out[27]=",ExpressionUUID->"e98c151c-30b3-49fb-be3f-c397118cf6df"] }, {1, 2}]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["Rt", "k_"], "[", "\[Xi]_", "]"}], ":=", RowBox[{"Rtlist", "\[LeftDoubleBracket]", RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}]}]], "Input", CellChangeTimes->{{3.822032690949875*^9, 3.822032747135029*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"85c4b8dd-68dd-420b-96bc-a372eb2c90f1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["Rt", "0"], "[", "\[Xi]", "]"}]], "Input", CellChangeTimes->{{3.822043859987659*^9, 3.822043880015582*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"edeb12d5-1fb3-4d22-84eb-2b52b0436b43"], Cell[BoxData[ RowBox[{ RowBox[{"-", "9"}], " ", SuperscriptBox["\[Xi]", "4"]}]], "Output", CellChangeTimes->{3.8220438816667213`*^9}, CellLabel->"Out[29]=",ExpressionUUID->"e14bebb5-8ddc-4341-88ee-fa61606f499d"] }, {1, 2}]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["Rt", "0"], "[", "\[Eta]", "]"}]], "Input", CellChangeTimes->{{3.822044165433165*^9, 3.82204418246387*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"43054726-b9e6-4abb-9f1e-1b5db92992d7"], Cell[BoxData[ RowBox[{ RowBox[{"-", "9"}], " ", SuperscriptBox["\[Xi]", "4"]}]], "Output", CellChangeTimes->{3.822044183929921*^9}, CellLabel->"Out[32]=",ExpressionUUID->"3254ac9d-cea6-4481-8fbb-e33394b0d465"] }, {1, 2}]] }, Open ]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "0"], "[", "\[Xi]_", "]"}], ":=", RowBox[{ RowBox[{"-", "9"}], " ", SuperscriptBox["\[Xi]", "4"]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "1"], "[", "\[Xi]_", "]"}], ":=", RowBox[{"3", " ", "\[Xi]", " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"13", " ", "\[Xi]"}], "+", RowBox[{"20", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["\[Xi]", "3"]}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "2"], "[", "\[Xi]_", "]"}], ":=", RowBox[{"1728", "+", RowBox[{"5532", " ", "\[Xi]"}], "+", RowBox[{"6917", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4100", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["\[Xi]", "4"]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "3"], "[", "\[Xi]_", "]"}], ":=", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "216"}], "+", RowBox[{"792", " ", "\[Xi]"}], "+", RowBox[{"2625", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2340", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "4"], "[", "\[Xi]_", "]"}], ":=", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"74184", "+", RowBox[{"169988", " ", "\[Xi]"}], "+", RowBox[{"138055", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"47572", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "5"], "[", "\[Xi]_", "]"}], ":=", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1704", "+", RowBox[{"20786", " ", "\[Xi]"}], "+", RowBox[{"34295", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"18232", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "6"], "[", "\[Xi]_", "]"}], ":=", RowBox[{"288", " ", RowBox[{"(", RowBox[{"22020", "+", RowBox[{"42960", " ", "\[Xi]"}], "+", RowBox[{"26983", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"6582", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"539", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Rt", "7"], "[", "\[Xi]_", "]"}], ":=", RowBox[{ RowBox[{"-", "3456"}], " ", RowBox[{"(", RowBox[{"1812", "+", RowBox[{"3688", " ", "\[Xi]"}], "+", RowBox[{"2483", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"668", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Rt", "8"], "[", "\[Xi]_", "]"}], ":=", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"24", "+", RowBox[{"50", " ", "\[Xi]"}], "+", RowBox[{"35", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["\[Xi]", "3"]}], "+", SuperscriptBox["\[Xi]", "4"]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.8220442934971743`*^9, 3.8220445898551292`*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"a64eaadd-3590-4ed0-a4c6-1a640a60c356"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Rtlist", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["Rt", "k"], "[", "\[Xi]", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.789890404901424*^9, 3.789890447774878*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"af8cb948-a63b-4dba-8a1c-33c9761b55ce"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.8220439011669407`*^9, 3.822044604017858*^9}, CellLabel->"Out[42]=",ExpressionUUID->"b8b49f43-de94-44f3-8ec6-02d1a915fd02"] }, {1, 2}]], Cell[TextData[{ "\[ScriptCapitalL] = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Sum]", "k"], " ", RowBox[{ SuperscriptBox["\[CurlyPhi]", "k"], " ", SubscriptBox["Rt", "k"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "a0aabfb2-04ed-42d4-ab15-bb238f1c7002"], "(\[Theta]) and the operator ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[CurlyPhi]", "k"], " ", SubscriptBox["Rt", "k"]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "a1591560-f26e-4c05-879d-c8b5947c38df"], "(\[Theta]) acts on a term ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", RowBox[{"n", "-", "k"}]], SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "-", "k", "+", "\[Epsilon]"}]]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "7e79885f-b73a-449e-9150-e41d48a7fef1"], " to give ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", RowBox[{"n", "-", "k"}]], RowBox[{"Rt", "(", RowBox[{"n", "-", "k", "+", "\[Epsilon]"}], ")"}]}], TraditionalForm]], ExpressionUUID->"7a06cfcd-9449-4ef8-9b83-20ec9ebf6205"], " ", Cell[BoxData[ FormBox[ SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "+", "\[Epsilon]"}]], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "9dae4558-9213-4532-878e-e1546c4a65ec"] }], "Text", CellChangeTimes->{{3.822033695247621*^9, 3.822033743530817*^9}, { 3.8220337833731956`*^9, 3.822034059050775*^9}},ExpressionUUID->"2c04de08-29a3-47a3-b581-\ 0e177a50698f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"recurrence", "=", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"n", "-", "k"}]], "[", "\[Epsilon]", "]"}], " ", RowBox[{ SubscriptBox["Rt", "k"], "[", RowBox[{"n", "-", "k", "+", "\[Epsilon]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.684019315106278*^9, 3.684019422134742*^9}, { 3.684019779425061*^9, 3.68401979595227*^9}, {3.684019841449897*^9, 3.684019880967176*^9}, {3.684020126254015*^9, 3.6840201632170477`*^9}, 3.684020209682729*^9, 3.6840203056896563`*^9, {3.789904681902245*^9, 3.789904819412328*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"7c0de76c-47d9-439a-a04c-6a509948f24a"], Cell[BoxData[ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"24", "+", RowBox[{"50", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"1812", "+", RowBox[{"3688", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"2483", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"668", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", RowBox[{"61", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"22020", "+", RowBox[{"42960", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"26983", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"6582", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", RowBox[{"539", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1704", "+", RowBox[{"20786", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"34295", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"18232", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"74184", "+", RowBox[{"169988", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"138055", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"47572", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "216"}], "+", RowBox[{"792", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"2625", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"2340", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", RowBox[{"727", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1728", "+", RowBox[{"5532", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"6917", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"4100", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", RowBox[{"983", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"13", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"9", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], "4"], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}]], "Output", CellChangeTimes->{3.822044127763435*^9, 3.8220446206505136`*^9}, CellLabel->"Out[43]=",ExpressionUUID->"a80c17d6-057c-4055-9dd4-7ed6dc184a8b"] }, {1, 2}]], Cell[TextData[{ "The indicial equation follows from setting n=0 in the above and yields ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", "4"], "=", "0"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "6bcafc10-0ded-492f-9d82-b20e8917f76a"] }], "Text", CellChangeTimes->{{3.8220447675738697`*^9, 3.822044813275674*^9}},ExpressionUUID->"d6c6b386-3704-4a43-8dbf-\ a44dcabe49c4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"recurrence", "/.", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", "k_"], "[", "\[Epsilon]_", "]"}], "\[RuleDelayed]", " ", RowBox[{ SubscriptBox["a", "k"], "+", RowBox[{ SubscriptBox["b", "k"], "\[Epsilon]"}], " ", "+", RowBox[{ FractionBox["1", RowBox[{"2", "!"}]], SubscriptBox["c", "k"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"3", "!"}]], SubscriptBox["d", "k"], SuperscriptBox["\[Epsilon]", "3"]}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"]}]}], " ", "}"}]}]], "Input",\ CellChangeTimes->{{3.684020233356142*^9, 3.684020263583406*^9}, { 3.684020348219616*^9, 3.684020357324044*^9}, {3.68402043345288*^9, 3.684020441537641*^9}, {3.684020483119458*^9, 3.6840205300384417`*^9}, { 3.6840209368448467`*^9, 3.684021034184443*^9}, {3.684021100244891*^9, 3.684021110499338*^9}, 3.68402351575705*^9, {3.7899047071574783`*^9, 3.789904709057539*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"8b8c2a68-5638-4128-a6aa-192b9646c9f2"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"12480", "-", RowBox[{"35676", " ", "n"}], "+", RowBox[{"24931", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6354", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"539", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"363024", "-", RowBox[{"464264", " ", "n"}], "+", RowBox[{"213665", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"42148", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "319"}], "+", RowBox[{"179", " ", "n"}], "-", RowBox[{"33", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"21", "-", RowBox[{"56", " ", "n"}], "+", RowBox[{"48", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"12480", "-", RowBox[{"35676", " ", "n"}], "+", RowBox[{"24931", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6354", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"539", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"363024", "-", RowBox[{"464264", " ", "n"}], "+", RowBox[{"213665", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"42148", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}], ")"}], " ", "\[Epsilon]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{"20", "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "319"}], "+", RowBox[{"179", " ", "n"}], "-", RowBox[{"33", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"21", "-", RowBox[{"56", " ", "n"}], "+", RowBox[{"48", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"34560", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"1728", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"144", " ", RowBox[{"(", RowBox[{"12480", "-", RowBox[{"35676", " ", "n"}], "+", RowBox[{"24931", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6354", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"539", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{"363024", "-", RowBox[{"464264", " ", "n"}], "+", RowBox[{"213665", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"42148", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}], "-", FractionBox[ RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}], "2"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"10", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"668", "+", RowBox[{"244", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"6582", "+", RowBox[{"2156", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"18232", "+", RowBox[{"12076", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"47572", "+", RowBox[{"23396", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2340", "+", RowBox[{"2908", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"4100", "+", RowBox[{"3932", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"20", "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "319"}], "+", RowBox[{"179", " ", "n"}], "-", RowBox[{"33", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"21", "-", RowBox[{"56", " ", "n"}], "+", RowBox[{"48", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}], "-", RowBox[{"18", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"11520", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"576", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{"12480", "-", RowBox[{"35676", " ", "n"}], "+", RowBox[{"24931", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6354", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"539", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"(", RowBox[{"363024", "-", RowBox[{"464264", " ", "n"}], "+", RowBox[{"213665", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"42148", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["2", "3"], " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"3", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}], "2"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", "3"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"], SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1], Editable->False]}], SeriesData[$CellContext`\[Epsilon], 0, { 69120 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4) Subscript[$CellContext`a, -8 + $CellContext`n] - 3456 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4) Subscript[$CellContext`a, -7 + $CellContext`n] + 288 (12480 - 35676 $CellContext`n + 24931 $CellContext`n^2 - 6354 $CellContext`n^3 + 539 $CellContext`n^4) Subscript[$CellContext`a, -6 + $CellContext`n] + 8 (363024 - 464264 $CellContext`n + 213665 $CellContext`n^2 - 42148 $CellContext`n^3 + 3019 $CellContext`n^4) Subscript[$CellContext`a, -5 + $CellContext`n] - 4 (55848 - 148340 $CellContext`n + 128695 $CellContext`n^2 - 46012 $CellContext`n^3 + 5849 $CellContext`n^4) Subscript[$CellContext`a, -4 + $CellContext`n] - 2 (16740 - 30294 $CellContext`n + 20823 $CellContext`n^2 - 6384 $CellContext`n^3 + 727 $CellContext`n^4) Subscript[$CellContext`a, -3 + $CellContext`n] + (1260 - 4392 $CellContext`n + 5909 $CellContext`n^2 - 3764 $CellContext`n^3 + 983 $CellContext`n^4) Subscript[$CellContext`a, -2 + $CellContext`n] + 3 (-1 + $CellContext`n) (-6 + 21 $CellContext`n - 28 $CellContext`n^2 + 16 $CellContext`n^3) Subscript[$CellContext`a, -1 + $CellContext`n] - 9 $CellContext`n^4 Subscript[$CellContext`a, $CellContext`n], 138240 (-319 + 179 $CellContext`n - 33 $CellContext`n^2 + 2 $CellContext`n^3) Subscript[$CellContext`a, -8 + $CellContext`n] - 6912 (-8285 + 6389 $CellContext`n - 1560 $CellContext`n^2 + 122 $CellContext`n^3) Subscript[$CellContext`a, -7 + $CellContext`n] + 576 (-17838 + 24931 $CellContext`n - 9531 $CellContext`n^2 + 1078 $CellContext`n^3) Subscript[$CellContext`a, -6 + $CellContext`n] + 16 (-232132 + 213665 $CellContext`n - 63222 $CellContext`n^2 + 6038 $CellContext`n^3) Subscript[$CellContext`a, -5 + $CellContext`n] - 8 (-74170 + 128695 $CellContext`n - 69018 $CellContext`n^2 + 11698 $CellContext`n^3) Subscript[$CellContext`a, -4 + $CellContext`n] - 4 (-15147 + 20823 $CellContext`n - 9576 $CellContext`n^2 + 1454 $CellContext`n^3) Subscript[$CellContext`a, -3 + $CellContext`n] + 2 (-2196 + 5909 $CellContext`n - 5646 $CellContext`n^2 + 1966 $CellContext`n^3) Subscript[$CellContext`a, -2 + $CellContext`n] + 3 (-1 + $CellContext`n) (21 - 56 $CellContext`n + 48 $CellContext`n^2) Subscript[$CellContext`a, -1 + $CellContext`n] - 36 $CellContext`n^3 Subscript[$CellContext`a, $CellContext`n] + 69120 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4) Subscript[$CellContext`b, -8 + $CellContext`n] - 3456 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4) Subscript[$CellContext`b, -7 + $CellContext`n] + 288 (12480 - 35676 $CellContext`n + 24931 $CellContext`n^2 - 6354 $CellContext`n^3 + 539 $CellContext`n^4) Subscript[$CellContext`b, -6 + $CellContext`n] + 8 (363024 - 464264 $CellContext`n + 213665 $CellContext`n^2 - 42148 $CellContext`n^3 + 3019 $CellContext`n^4) Subscript[$CellContext`b, -5 + $CellContext`n] - 4 (55848 - 148340 $CellContext`n + 128695 $CellContext`n^2 - 46012 $CellContext`n^3 + 5849 $CellContext`n^4) Subscript[$CellContext`b, -4 + $CellContext`n] - 2 (16740 - 30294 $CellContext`n + 20823 $CellContext`n^2 - 6384 $CellContext`n^3 + 727 $CellContext`n^4) Subscript[$CellContext`b, -3 + $CellContext`n] + (1260 - 4392 $CellContext`n + 5909 $CellContext`n^2 - 3764 $CellContext`n^3 + 983 $CellContext`n^4) Subscript[$CellContext`b, -2 + $CellContext`n] + (-6 + 21 $CellContext`n - 28 $CellContext`n^2 + 16 $CellContext`n^3) ( 3 Subscript[$CellContext`a, -1 + $CellContext`n] + 3 (-1 + $CellContext`n) Subscript[$CellContext`b, -1 + $CellContext`n]) - 9 $CellContext`n^4 Subscript[$CellContext`b, $CellContext`n], 69120 (179 - 66 $CellContext`n + 6 $CellContext`n^2) Subscript[$CellContext`a, -8 + $CellContext`n] - 3456 (6389 - 3120 $CellContext`n + 366 $CellContext`n^2) Subscript[$CellContext`a, -7 + $CellContext`n] + 288 (24931 - 19062 $CellContext`n + 3234 $CellContext`n^2) Subscript[$CellContext`a, -6 + $CellContext`n] + 8 (213665 - 126444 $CellContext`n + 18114 $CellContext`n^2) Subscript[$CellContext`a, -5 + $CellContext`n] - 4 (128695 - 138036 $CellContext`n + 35094 $CellContext`n^2) Subscript[$CellContext`a, -4 + $CellContext`n] - 6 (6941 - 6384 $CellContext`n + 1454 $CellContext`n^2) Subscript[$CellContext`a, -3 + $CellContext`n] + (5909 - 11292 $CellContext`n + 5898 $CellContext`n^2) Subscript[$CellContext`a, -2 + $CellContext`n] + 3 (20 + 48 (-1 + $CellContext`n)) (-1 + $CellContext`n) Subscript[$CellContext`a, -1 + $CellContext`n] - 54 $CellContext`n^2 Subscript[$CellContext`a, $CellContext`n] + 138240 (-319 + 179 $CellContext`n - 33 $CellContext`n^2 + 2 $CellContext`n^3) Subscript[$CellContext`b, -8 + $CellContext`n] - 6912 (-8285 + 6389 $CellContext`n - 1560 $CellContext`n^2 + 122 $CellContext`n^3) Subscript[$CellContext`b, -7 + $CellContext`n] + 576 (-17838 + 24931 $CellContext`n - 9531 $CellContext`n^2 + 1078 $CellContext`n^3) Subscript[$CellContext`b, -6 + $CellContext`n] + 16 (-232132 + 213665 $CellContext`n - 63222 $CellContext`n^2 + 6038 $CellContext`n^3) Subscript[$CellContext`b, -5 + $CellContext`n] - 8 (-74170 + 128695 $CellContext`n - 69018 $CellContext`n^2 + 11698 $CellContext`n^3) Subscript[$CellContext`b, -4 + $CellContext`n] - 4 (-15147 + 20823 $CellContext`n - 9576 $CellContext`n^2 + 1454 $CellContext`n^3) Subscript[$CellContext`b, -3 + $CellContext`n] + 2 (-2196 + 5909 $CellContext`n - 5646 $CellContext`n^2 + 1966 $CellContext`n^3) Subscript[$CellContext`b, -2 + $CellContext`n] + (21 - 56 $CellContext`n + 48 $CellContext`n^2) (3 Subscript[$CellContext`a, -1 + $CellContext`n] + 3 (-1 + $CellContext`n) Subscript[$CellContext`b, -1 + $CellContext`n]) - 36 $CellContext`n^3 Subscript[$CellContext`b, $CellContext`n] + 34560 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4) Subscript[$CellContext`c, -8 + $CellContext`n] - 1728 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4) Subscript[$CellContext`c, -7 + $CellContext`n] + 144 (12480 - 35676 $CellContext`n + 24931 $CellContext`n^2 - 6354 $CellContext`n^3 + 539 $CellContext`n^4) Subscript[$CellContext`c, -6 + $CellContext`n] + 4 (363024 - 464264 $CellContext`n + 213665 $CellContext`n^2 - 42148 $CellContext`n^3 + 3019 $CellContext`n^4) Subscript[$CellContext`c, -5 + $CellContext`n] - 2 (55848 - 148340 $CellContext`n + 128695 $CellContext`n^2 - 46012 $CellContext`n^3 + 5849 $CellContext`n^4) Subscript[$CellContext`c, -4 + $CellContext`n] - (16740 - 30294 $CellContext`n + 20823 $CellContext`n^2 - 6384 $CellContext`n^3 + 727 $CellContext`n^4) Subscript[$CellContext`c, -3 + $CellContext`n] + Rational[1, 2] (1260 - 4392 $CellContext`n + 5909 $CellContext`n^2 - 3764 $CellContext`n^3 + 983 $CellContext`n^4) Subscript[$CellContext`c, -2 + $CellContext`n] + (-6 + 21 $CellContext`n - 28 $CellContext`n^2 + 16 $CellContext`n^3) ( 3 Subscript[$CellContext`b, -1 + $CellContext`n] + Rational[3, 2] (-1 + $CellContext`n) Subscript[$CellContext`c, -1 + $CellContext`n]) + Rational[-9, 2] $CellContext`n^4 Subscript[$CellContext`c, $CellContext`n], 69120 (10 + 4 (-8 + $CellContext`n)) Subscript[$CellContext`a, -8 + $CellContext`n] - 3456 (668 + 244 (-7 + $CellContext`n)) Subscript[$CellContext`a, -7 + $CellContext`n] + 288 (6582 + 2156 (-6 + $CellContext`n)) Subscript[$CellContext`a, -6 + $CellContext`n] + 8 (18232 + 12076 (-5 + $CellContext`n)) Subscript[$CellContext`a, -5 + $CellContext`n] - 4 (47572 + 23396 (-4 + $CellContext`n)) Subscript[$CellContext`a, -4 + $CellContext`n] - 2 (2340 + 2908 (-3 + $CellContext`n)) Subscript[$CellContext`a, -3 + $CellContext`n] + (4100 + 3932 (-2 + $CellContext`n)) Subscript[$CellContext`a, -2 + $CellContext`n] + 48 (-1 + $CellContext`n) Subscript[$CellContext`a, -1 + $CellContext`n] - 36 $CellContext`n Subscript[$CellContext`a, $CellContext`n] + 69120 (179 - 66 $CellContext`n + 6 $CellContext`n^2) Subscript[$CellContext`b, -8 + $CellContext`n] - 3456 (6389 - 3120 $CellContext`n + 366 $CellContext`n^2) Subscript[$CellContext`b, -7 + $CellContext`n] + 288 (24931 - 19062 $CellContext`n + 3234 $CellContext`n^2) Subscript[$CellContext`b, -6 + $CellContext`n] + 8 (213665 - 126444 $CellContext`n + 18114 $CellContext`n^2) Subscript[$CellContext`b, -5 + $CellContext`n] - 4 (128695 - 138036 $CellContext`n + 35094 $CellContext`n^2) Subscript[$CellContext`b, -4 + $CellContext`n] - 6 (6941 - 6384 $CellContext`n + 1454 $CellContext`n^2) Subscript[$CellContext`b, -3 + $CellContext`n] + (5909 - 11292 $CellContext`n + 5898 $CellContext`n^2) Subscript[$CellContext`b, -2 + $CellContext`n] + (20 + 48 (-1 + $CellContext`n)) ( 3 Subscript[$CellContext`a, -1 + $CellContext`n] + 3 (-1 + $CellContext`n) Subscript[$CellContext`b, -1 + $CellContext`n]) - 54 $CellContext`n^2 Subscript[$CellContext`b, $CellContext`n] + 69120 (-319 + 179 $CellContext`n - 33 $CellContext`n^2 + 2 $CellContext`n^3) Subscript[$CellContext`c, -8 + $CellContext`n] - 3456 (-8285 + 6389 $CellContext`n - 1560 $CellContext`n^2 + 122 $CellContext`n^3) Subscript[$CellContext`c, -7 + $CellContext`n] + 288 (-17838 + 24931 $CellContext`n - 9531 $CellContext`n^2 + 1078 $CellContext`n^3) Subscript[$CellContext`c, -6 + $CellContext`n] + 8 (-232132 + 213665 $CellContext`n - 63222 $CellContext`n^2 + 6038 $CellContext`n^3) Subscript[$CellContext`c, -5 + $CellContext`n] - 4 (-74170 + 128695 $CellContext`n - 69018 $CellContext`n^2 + 11698 $CellContext`n^3) Subscript[$CellContext`c, -4 + $CellContext`n] - 2 (-15147 + 20823 $CellContext`n - 9576 $CellContext`n^2 + 1454 $CellContext`n^3) Subscript[$CellContext`c, -3 + $CellContext`n] + (-2196 + 5909 $CellContext`n - 5646 $CellContext`n^2 + 1966 $CellContext`n^3) Subscript[$CellContext`c, -2 + $CellContext`n] + (21 - 56 $CellContext`n + 48 $CellContext`n^2) (3 Subscript[$CellContext`b, -1 + $CellContext`n] + Rational[3, 2] (-1 + $CellContext`n) Subscript[$CellContext`c, -1 + $CellContext`n]) - 18 $CellContext`n^3 Subscript[$CellContext`c, $CellContext`n] + 11520 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4) Subscript[$CellContext`d, -8 + $CellContext`n] - 576 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4) Subscript[$CellContext`d, -7 + $CellContext`n] + 48 (12480 - 35676 $CellContext`n + 24931 $CellContext`n^2 - 6354 $CellContext`n^3 + 539 $CellContext`n^4) Subscript[$CellContext`d, -6 + $CellContext`n] + Rational[4, 3] (363024 - 464264 $CellContext`n + 213665 $CellContext`n^2 - 42148 $CellContext`n^3 + 3019 $CellContext`n^4) Subscript[$CellContext`d, -5 + $CellContext`n] + Rational[-2, 3] (55848 - 148340 $CellContext`n + 128695 $CellContext`n^2 - 46012 $CellContext`n^3 + 5849 $CellContext`n^4) Subscript[$CellContext`d, -4 + $CellContext`n] + Rational[-1, 3] (16740 - 30294 $CellContext`n + 20823 $CellContext`n^2 - 6384 $CellContext`n^3 + 727 $CellContext`n^4) Subscript[$CellContext`d, -3 + $CellContext`n] + Rational[1, 6] (1260 - 4392 $CellContext`n + 5909 $CellContext`n^2 - 3764 $CellContext`n^3 + 983 $CellContext`n^4) Subscript[$CellContext`d, -2 + $CellContext`n] + (-6 + 21 $CellContext`n - 28 $CellContext`n^2 + 16 $CellContext`n^3) ( Rational[3, 2] Subscript[$CellContext`c, -1 + $CellContext`n] + Rational[1, 2] (-1 + $CellContext`n) Subscript[$CellContext`d, -1 + $CellContext`n]) + Rational[-3, 2] $CellContext`n^4 Subscript[$CellContext`d, $CellContext`n]}, 0, 4, 1], Editable->False]], "Output", CellChangeTimes->{3.822044878782455*^9}, CellLabel->"Out[44]=",ExpressionUUID->"d24a58cc-c59e-45f7-a45f-3db3b188f740"] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"coeffs", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["d", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"reclist", "=", "\[IndentingNewLine]", RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"recurrence", "/.", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", "k_"], "[", "\[Epsilon]_", "]"}], "\[RuleDelayed]", " ", RowBox[{ SubscriptBox["a", "k"], "+", RowBox[{ SubscriptBox["b", "k"], "\[Epsilon]"}], " ", "+", RowBox[{ FractionBox["1", RowBox[{"2", "!"}]], SubscriptBox["c", "k"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"3", "!"}]], SubscriptBox["d", "k"], SuperscriptBox["\[Epsilon]", "3"]}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"]}]}], " ", "}"}]}], "]"}], ",", " ", "\[Epsilon]"}], "]"}], "]"}], ",", " ", "coeffs", ",", "Factor"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.684020233356142*^9, 3.684020263583406*^9}, { 3.684020348219616*^9, 3.684020357324044*^9}, {3.68402043345288*^9, 3.684020441537641*^9}, {3.684020483119458*^9, 3.6840205300384417`*^9}, { 3.6840209368448467`*^9, 3.684021034184443*^9}, {3.684021100244891*^9, 3.684021110499338*^9}, {3.684021167315227*^9, 3.68402120579753*^9}, { 3.684021238329726*^9, 3.684021305592092*^9}, {3.684022394634728*^9, 3.684022535905566*^9}, {3.684023150024365*^9, 3.684023152237027*^9}, 3.6840235640497828`*^9, 3.684023604834915*^9, {3.6840239191865673`*^9, 3.684023934629755*^9}, {3.726395154892868*^9, 3.726395166212124*^9}, { 3.7263953009525146`*^9, 3.726395302445177*^9}, {3.789905395440012*^9, 3.789905422575471*^9}, {3.7899054729099073`*^9, 3.789905491695307*^9}, { 3.789905559977254*^9, 3.789905586861931*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"39812860-8ee5-4238-ba40-0bdf6e48d9a9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "reclist", "]"}]], "Input", CellChangeTimes->{{3.7263953069102383`*^9, 3.726395326790015*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"5f63c875-f18f-4944-ae6d-3797c465fdbb"], Cell[BoxData["4"], "Output", CellChangeTimes->{3.822045027735512*^9}, CellLabel->"Out[47]=",ExpressionUUID->"f7aa07f0-7b0c-433c-b7d1-9fe10ca54402"] }, {1, 2}]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"942a99c6-29fd-47b9-8b3c-eea92b3fa32d"], Cell[BoxData[ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}]], "Output", CellChangeTimes->{3.822045053750599*^9}, CellLabel->"Out[48]=",ExpressionUUID->"99ff7891-9edd-4ec7-b5b4-93ea3b04d50d"] }, {1, 2}]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}, 3.726395408243491*^9}, CellLabel->"In[49]:=",ExpressionUUID->"283cb0ef-23b7-4f9b-875c-15bf4b288f03"], Cell[BoxData[ RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}]], "Output", CellChangeTimes->{3.8220451573212147`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"3c3e46a6-107b-4339-bc16-86ede5efbd15"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}, 3.726395431863524*^9}, CellLabel->"In[50]:=",ExpressionUUID->"8d774b57-58ab-47ab-8e0a-2f8f78131ab5"], Cell[BoxData[ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"34560", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"1728", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"144", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "16740"}], "+", RowBox[{"30294", " ", "n"}], "-", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}], "2"]}]], "Output", CellChangeTimes->{3.822045198533626*^9}, CellLabel->"Out[50]=",ExpressionUUID->"f29bd6b8-49bd-475b-aff2-7709ae1df64d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}, 3.7263954569050293`*^9}, CellLabel->"In[51]:=",ExpressionUUID->"b449c01f-29dd-4798-b179-48517576f889"], Cell[BoxData[ RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"13824", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "260"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3177"}], "+", RowBox[{"1078", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10537"}], "+", RowBox[{"3019", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11503"}], "+", RowBox[{"5849", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1596"}], "+", RowBox[{"727", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "941"}], "+", RowBox[{"983", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"16", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"18", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"11520", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["2", "3"], " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16740"}], "+", RowBox[{"30294", " ", "n"}], "-", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}], "2"]}]], "Output", CellChangeTimes->{3.8220452312776003`*^9}, CellLabel->"Out[51]=",ExpressionUUID->"bf32b8b8-8f80-4faf-916e-9cb0d4e32164"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rhslist", "=", "\[IndentingNewLine]", RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Times", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"recurrence", "/.", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", "k_"], "[", "\[Epsilon]_", "]"}], "\[RuleDelayed]", " ", RowBox[{ SubscriptBox["a", "k"], "+", RowBox[{ SubscriptBox["b", "k"], "\[Epsilon]"}], " ", "+", RowBox[{ FractionBox["1", RowBox[{"2", "!"}]], SubscriptBox["c", "k"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"3", "!"}]], SubscriptBox["d", "k"], SuperscriptBox["\[Epsilon]", "3"]}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"]}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", " ", "\[Epsilon]"}], "]"}]}], "]"}], ",", " ", "coeffs", ",", " ", "Factor"}], "]"}]}]], "Input", CellChangeTimes->{{3.684020233356142*^9, 3.684020263583406*^9}, { 3.684020348219616*^9, 3.684020357324044*^9}, {3.68402043345288*^9, 3.684020441537641*^9}, {3.684020483119458*^9, 3.6840205300384417`*^9}, { 3.6840209368448467`*^9, 3.684021034184443*^9}, {3.684021100244891*^9, 3.684021110499338*^9}, {3.684021167315227*^9, 3.68402120579753*^9}, { 3.684021238329726*^9, 3.684021305592092*^9}, {3.684022394634728*^9, 3.684022535905566*^9}, {3.684023150024365*^9, 3.684023152237027*^9}, 3.6840235640497828`*^9, 3.684023604834915*^9, {3.6840239191865673`*^9, 3.684023934629755*^9}, {3.6840242007030363`*^9, 3.6840242145241117`*^9}, { 3.684024322448361*^9, 3.6840243815742598`*^9}, 3.684024430170298*^9, { 3.684024673621798*^9, 3.684024679380392*^9}, {3.684024716932494*^9, 3.6840247255766563`*^9}, 3.684024781608074*^9, {3.789905744248934*^9, 3.789905768741538*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"0dc40479-94e0-47f0-992e-d9e795929f47"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ",", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}], ",", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"276480", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"13824", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1152", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"72", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}]}], ",", RowBox[{ RowBox[{"829440", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"82944", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "260"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3177"}], "+", RowBox[{"1078", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"192", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10537"}], "+", RowBox[{"3019", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"96", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11503"}], "+", RowBox[{"5849", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1596"}], "+", RowBox[{"727", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "941"}], "+", RowBox[{"983", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"72", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"16", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"216", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"36", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"18", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"324", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}]}]}], "}"}]], "Output", CellChangeTimes->{3.822045365519307*^9}, CellLabel->"Out[52]=",ExpressionUUID->"518247ef-68f0-4011-91df-0119007c2603"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["a", "0"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["b", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["c", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["d", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{ SubscriptBox["a", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["b", "n_"], ":=", RowBox[{ SubscriptBox["b", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["c", "n_"], ":=", RowBox[{ SubscriptBox["c", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"276480", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"13824", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1152", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"72", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["d", "n_"], ":=", RowBox[{ SubscriptBox["d", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"829440", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"82944", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "260"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3177"}], "+", RowBox[{"1078", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"192", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10537"}], "+", RowBox[{"3019", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"96", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11503"}], "+", RowBox[{"5849", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1596"}], "+", RowBox[{"727", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "941"}], "+", RowBox[{"983", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"72", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"16", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"216", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"36", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"18", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"324", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}]}], "Input", CellChangeTimes->{{3.684025156959437*^9, 3.684025161127201*^9}, { 3.6840253900871363`*^9, 3.684025513699705*^9}, {3.684025863319063*^9, 3.684025910320849*^9}, {3.726395550017826*^9, 3.7263955779524393`*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"4fbf8989-ca5d-441f-961b-5f856693e350"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "n"], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.684025178904869*^9, 3.6840252044752483`*^9}, { 3.6840252808497343`*^9, 3.6840253030337877`*^9}, 3.684025529324394*^9, { 3.6840259374560633`*^9, 3.684025944816329*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"339f7415-fb8b-4b8b-9cb1-1e786909b8c4"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "12", ",", "24", ",", "396", ",", "2160", ",", "23160", ",", "186480", ",", "1845900", ",", "17213280", ",", "171575712", ",", "1703560320", ",", "17365421304", ",", "178323713568", ",", "1856554560432", ",", "19487791106784", ",", "206411964321420", ",", "2201711191213248", ",", "23642813637773616", ",", "255355132936441824", ",", "2772650461148938656", ",", "30248675037382538880", ",", "331438542846964180992", ",", "3645985314663912489984", ",", "40253352687777620374776", ",", "445899348810135736176960", ",", "4954599887270237905852800", ",", "55210013720527863783880320", ",", "616845490089371010724497840", ",", "6908835039102833099223965760", ",", "77558935621320663634645169760", ",", "872555336075039351141820542400", ",", "9836256654406990510063112404620", ",", "111093683696857593088076506055040", ",", "1256964832153899565798063964625360", ",", "14245801154241460321451736436267680", ",", "161711184920698116201513043068894000", ",", "1838422802677352902944026880120269760", ",", "20929968050634158361809598843821082720", ",", "238604084297865887503634354739682226880", ",", "2723604302705399110711864482680203408800", ",", "31127182673212368692213826730815487238400", ",", "356155829380376900900913291081937387488000", ",", "4079634680295870734083713299360651118873600", ",", "46780149321943165896822459952777274423385600", ",", "536958394984483586022362225192235106645985280", ",", "6169348420937264128969792709201188166008089600", ",", "70947930272537334350509861861788754738180700160", ",", "816629740093680630102475274822880521200882128120", ",", "9407624323260315606435813085689677006965402097280", ",", "108464914912610947331756997308308146813500741423712"}], "}"}]], "Output", CellChangeTimes->{3.822045519411265*^9}, CellLabel->"Out[62]=",ExpressionUUID->"3df105c6-36e9-4dc5-abad-c80ebf72e0d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[Alpha]", "n"], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.684025953644902*^9, 3.6840259752371063`*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"4f46730b-21d2-47d7-bd7f-f83cdd199ca4"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "12", ",", "24", ",", "396", ",", "2160", ",", "23160", ",", "186480", ",", "1845900", ",", "17213280", ",", "171575712", ",", "1703560320", ",", "17365421304", ",", "178323713568", ",", "1856554560432", ",", "19487791106784", ",", "206411964321420", ",", "2201711191213248", ",", "23642813637773616", ",", "255355132936441824", ",", "2772650461148938656", ",", "30248675037382538880", ",", "331438542846964180992", ",", "3645985314663912489984", ",", "40253352687777620374776", ",", "445899348810135736176960", ",", "4954599887270237905852800", ",", "55210013720527863783880320", ",", "616845490089371010724497840", ",", "6908835039102833099223965760", ",", "77558935621320663634645169760", ",", "872555336075039351141820542400", ",", "9836256654406990510063112404620", ",", "111093683696857593088076506055040", ",", "1256964832153899565798063964625360", ",", "14245801154241460321451736436267680", ",", "161711184920698116201513043068894000", ",", "1838422802677352902944026880120269760", ",", "20929968050634158361809598843821082720", ",", "238604084297865887503634354739682226880", ",", "2723604302705399110711864482680203408800", ",", "31127182673212368692213826730815487238400", ",", "356155829380376900900913291081937387488000", ",", "4079634680295870734083713299360651118873600", ",", "46780149321943165896822459952777274423385600", ",", "536958394984483586022362225192235106645985280", ",", "6169348420937264128969792709201188166008089600", ",", "70947930272537334350509861861788754738180700160", ",", "816629740093680630102475274822880521200882128120", ",", "9407624323260315606435813085689677006965402097280", ",", "108464914912610947331756997308308146813500741423712"}], "}"}]], "Output", CellChangeTimes->{3.8220455311948223`*^9}, CellLabel->"Out[63]=",ExpressionUUID->"cfd69996-e278-4a31-a9c5-9a9b06cf1dd9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "-", "%%"}]], "Input", CellChangeTimes->{{3.6840259858539248`*^9, 3.684025988121908*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"5b62b01f-9ba1-44fb-9d85-cce523d4a0d2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.822045537944615*^9}, CellLabel->"Out[64]=",ExpressionUUID->"c58c67d2-df91-4591-899c-edcb7ae9b15a"] }, Open ]], Cell[BoxData[ RowBox[{"Remove", "[", RowBox[{"f", ",", "\[CurlyPi]"}], "]"}]], "Input", CellChangeTimes->{{3.821959098729816*^9, 3.821959113487629*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"3e41e8e0-b127-4176-a167-0cc69b2ef9c1"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["f", "1"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["b", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["f", "2"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["c", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "3"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["d", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "0"], "[", "nmax_", "]"}], ":=", RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "1"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}], RowBox[{"Log", "[", "\[CurlyPhi]", "]"}]}], "+", RowBox[{ SubscriptBox["f", "1"], "[", "nmax", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "2"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], "2"]}], "+", RowBox[{"2", RowBox[{ SubscriptBox["f", "1"], "[", "nmax", "]"}], " ", RowBox[{"Log", "[", "\[CurlyPhi]", "]"}]}], " ", "+", RowBox[{ SubscriptBox["f", "2"], "[", "nmax", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "3"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], "3"]}], "+", RowBox[{"3", RowBox[{ SubscriptBox["f", "1"], "[", "nmax", "]"}], " ", SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], "2"]}], " ", "+", RowBox[{"3", RowBox[{ SubscriptBox["f", "2"], "[", "nmax", "]"}], RowBox[{"Log", "[", "\[CurlyPhi]", "]"}]}], "+", RowBox[{ SubscriptBox["f", "3"], "[", "nmax", "]"}]}]}]}], "Input", CellChangeTimes->{{3.684032837989438*^9, 3.684032996286806*^9}, { 3.684033026716599*^9, 3.684033239299047*^9}, {3.684033277691537*^9, 3.684033278835206*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"761d2e55-285c-49a8-a09e-b6a00233c53f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "0"], "[", "100", "]"}], "]"}], "]"}]], "Input",\ CellChangeTimes->{{3.684033401271699*^9, 3.68403344238348*^9}, { 3.726395724975881*^9, 3.726395725761677*^9}, {3.789913944560316*^9, 3.789913951878134*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"a9c6239e-4b2e-42df-807c-3d5d2a185a99"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False]], "Output", CellChangeTimes->{3.822045709394992*^9}, CellLabel->"Out[74]=",ExpressionUUID->"0e4911e9-6862-4316-8a17-99de7d5c7413"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "3"], "[", "100", "]"}], "]"}]], "Input", CellChangeTimes->{{3.684033401271699*^9, 3.684033460864447*^9}, { 3.7263957384859657`*^9, 3.7263957394331284`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"761e8a2b-aff4-4448-9302-11ee829a1ce4"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False]], "Output", CellChangeTimes->{3.8220457643710833`*^9}, CellLabel->"Out[75]=",ExpressionUUID->"b10e85b2-7b50-4e3d-9780-2a89f7c0b1ec"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ A graphic illustrating analytic continuation\ \>", "Section", CellChangeTimes->{{3.760869679829404*^9, 3.760869713695957*^9}, 3.82203776706863*^9},ExpressionUUID->"50e632d0-1ee1-474a-a4d3-\ 40d1bb151b4c"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1.8", "]"}], ",", " ", "\[IndentingNewLine]", "Black", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"1", "/", "25"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"Abs", "[", RowBox[{"\[Psi]", "[", "n", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AbsolutePointSize", "[", "7", "]"}], ",", "Black", ",", RowBox[{"Point", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", "0"}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "-", "0.0015"}], ",", RowBox[{"-", "0.012"}]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", "0.6", "]"}], ",", "12"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", SubscriptBox["\[Psi]", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "15"}]}], "]"}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.760515056287816*^9, 3.760515210340852*^9}, { 3.76051533451396*^9, 3.760515415296657*^9}, {3.760515715813105*^9, 3.76051584244009*^9}, {3.760515894305203*^9, 3.760516016988353*^9}, { 3.7605160545771914`*^9, 3.760516089964637*^9}, {3.7605161698868637`*^9, 3.760516176723138*^9}, {3.760516209872365*^9, 3.760516231218082*^9}, { 3.760516493092765*^9, 3.760516530816613*^9}, {3.760516566994811*^9, 3.7605168993379593`*^9}, {3.76051693257099*^9, 3.760516960333309*^9}, { 3.7605170022751617`*^9, 3.760517002817494*^9}, {3.760517115129754*^9, 3.7605172088083477`*^9}, {3.760517252596513*^9, 3.760517260281624*^9}, { 3.760517414697072*^9, 3.7605174222525263`*^9}, {3.760517554116663*^9, 3.7605176523068047`*^9}, {3.760517805107773*^9, 3.760517841518449*^9}, { 3.760518033068162*^9, 3.7605180423739367`*^9}, {3.7605180762491817`*^9, 3.760518107472763*^9}, {3.760518143472184*^9, 3.760518153507621*^9}, { 3.760518215214119*^9, 3.760518226207932*^9}, {3.760518294232277*^9, 3.7605183353099194`*^9}, 3.7605183721452713`*^9, {3.760518488116373*^9, 3.760518495963234*^9}, {3.760523442176882*^9, 3.760523476972226*^9}, { 3.760523549554914*^9, 3.7605235741269827`*^9}, {3.760523614990706*^9, 3.7605236731491632`*^9}, {3.760523781505332*^9, 3.760523806529892*^9}, { 3.7605238879702883`*^9, 3.7605239738164253`*^9}, {3.760524052961268*^9, 3.760524056751822*^9}, 3.760524781897203*^9, 3.7608693192482557`*^9, { 3.791724926128454*^9, 3.7917249334439287`*^9}, {3.791724995286519*^9, 3.791725000496763*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"47175b48-dffc-4509-bad3-15881adf50c6"], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[1.8], CircleBox[{0, 0}, NCache[Rational[1, 25], 0.04]], {RGBColor[1, 0, 0], CircleBox[NCache[{Rational[-1, 50], 0}, {-0.02, 0}], NCache[ Rational[1, 50], 0.02]], CircleBox[NCache[{Rational[-3, 100], 0}, {-0.03, 0}], NCache[ Rational[3, 100], 0.03]], CircleBox[NCache[{Rational[-9, 200], 0}, {-0.045, 0}], NCache[ Rational[9, 200], 0.045]], CircleBox[NCache[{Rational[-27, 400], 0}, {-0.0675, 0}], NCache[ Rational[27, 400], 0.0675]], CircleBox[NCache[{Rational[-81, 800], 0}, {-0.10125, 0}], NCache[ Rational[81, 800], 0.10125]]}, {GrayLevel[0], AbsolutePointSize[7], PointBox[NCache[{{Rational[-1, 50], 0}, {Rational[-3, 100], 0}, { Rational[-9, 200], 0}, {Rational[-27, 400], 0}, { Rational[-81, 800], 0}}, {{-0.02, 0}, {-0.03, 0}, {-0.045, 0}, {-0.0675, 0}, {-0.10125, 0}}]], {RGBColor[1, 0, 0], PointBox[NCache[{Rational[-1, 7], 0}, {-0.14285714285714285`, 0}]], PointBox[{0, 0}]}, {RGBColor[0, 0, 1], InsetBox[ RowBox[{"-", FractionBox["1", "7"]}], {-0.14435714285714285, -0.012}]}}}, Axes->True, AxesStyle->Directive[ GrayLevel[0.6], 12], ImageSize->500, Method->{"AxesInFront" -> False}, Ticks->{{{ NCache[ Rational[-1, 50], -0.02], FormBox[ SubscriptBox["\[Psi]", "0"], TraditionalForm]}, { NCache[ Rational[-3, 100], -0.03], FormBox[ SubscriptBox["\[Psi]", "1"], TraditionalForm]}, { NCache[ Rational[-9, 200], -0.045], FormBox[ SubscriptBox["\[Psi]", "2"], TraditionalForm]}, { NCache[ Rational[-27, 400], -0.0675], FormBox[ SubscriptBox["\[Psi]", "3"], TraditionalForm]}, { NCache[ Rational[-81, 800], -0.10125], FormBox[ SubscriptBox["\[Psi]", "4"], TraditionalForm]}}, None}, TicksStyle->Directive[ RGBColor[0, 0, 1], FontFamily -> "Computer Modern", FontSize -> 15]]], "Output", CellChangeTimes->{ 3.7605183361463013`*^9, 3.760518374261484*^9, 3.7605185003061028`*^9, 3.760523478916462*^9, 3.760523807989428*^9, {3.760523890959592*^9, 3.760523975705978*^9}, 3.76052405842302*^9, 3.7605248183458652`*^9, { 3.791724936326229*^9, 3.791724951878566*^9}, 3.791725002942642*^9}, CellLabel->"Out[25]=",ExpressionUUID->"a72dd639-a9c9-428a-b925-ff1c46218dc1"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1.8", "]"}], ",", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"GrayLevel", "[", "0.6", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.215"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.05", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.11"}], "}"}]}], "}"}], "]"}], ","}], " ", "*)"}], "\[IndentingNewLine]", "Black", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"1", "/", "25"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"Abs", "[", RowBox[{"\[Psi]", "[", "n", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AbsolutePointSize", "[", "7", "]"}], ",", "Black", ",", RowBox[{"Point", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", "0"}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "-", "0.0015"}], ",", "0.016"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", "0.6", "]"}], ",", "12"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", SubscriptBox["\[Psi]", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "17"}]}], "]"}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.760515056287816*^9, 3.760515210340852*^9}, { 3.76051533451396*^9, 3.760515415296657*^9}, {3.760515715813105*^9, 3.76051584244009*^9}, {3.760515894305203*^9, 3.760516016988353*^9}, { 3.7605160545771914`*^9, 3.760516089964637*^9}, {3.7605161698868637`*^9, 3.760516176723138*^9}, {3.760516209872365*^9, 3.760516231218082*^9}, { 3.760516493092765*^9, 3.760516530816613*^9}, {3.760516566994811*^9, 3.7605168993379593`*^9}, {3.76051693257099*^9, 3.760516960333309*^9}, { 3.7605170022751617`*^9, 3.760517002817494*^9}, {3.760517115129754*^9, 3.7605172088083477`*^9}, {3.760517252596513*^9, 3.760517260281624*^9}, { 3.760517414697072*^9, 3.7605174222525263`*^9}, {3.760517554116663*^9, 3.7605176523068047`*^9}, {3.760517805107773*^9, 3.760517841518449*^9}, { 3.760518033068162*^9, 3.7605180423739367`*^9}, {3.7605180762491817`*^9, 3.760518107472763*^9}, {3.760518143472184*^9, 3.760518153507621*^9}, { 3.760518215214119*^9, 3.760518226207932*^9}, {3.760518294232277*^9, 3.7605183353099194`*^9}, 3.7605183721452713`*^9, {3.760518488116373*^9, 3.760518495963234*^9}, {3.760523442176882*^9, 3.760523476972226*^9}, { 3.760523549554914*^9, 3.7605235741269827`*^9}, {3.760523614990706*^9, 3.7605236731491632`*^9}, {3.760523781505332*^9, 3.760523806529892*^9}, { 3.7605238879702883`*^9, 3.7605239738164253`*^9}, {3.760524052961268*^9, 3.760524056751822*^9}, 3.760524781897203*^9, {3.7605252193107224`*^9, 3.760525228559154*^9}, {3.760525279312396*^9, 3.760525296898025*^9}, { 3.76052541319888*^9, 3.760525439104168*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"b3b82e4b-db82-4c65-96f5-06b4ad4eeb09"], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[1.8], CircleBox[{0, 0}, NCache[Rational[1, 25], 0.04]], {RGBColor[1, 0, 0], CircleBox[NCache[{Rational[-1, 50], 0}, {-0.02, 0}], NCache[ Rational[1, 50], 0.02]], CircleBox[NCache[{Rational[-3, 100], 0}, {-0.03, 0}], NCache[ Rational[3, 100], 0.03]], CircleBox[NCache[{Rational[-9, 200], 0}, {-0.045, 0}], NCache[ Rational[9, 200], 0.045]], CircleBox[NCache[{Rational[-27, 400], 0}, {-0.0675, 0}], NCache[ Rational[27, 400], 0.0675]], CircleBox[NCache[{Rational[-81, 800], 0}, {-0.10125, 0}], NCache[ Rational[81, 800], 0.10125]], CircleBox[NCache[{Rational[-243, 1600], 0}, {-0.151875, 0}], NCache[ Rational[243, 1600], 0.151875]]}, {GrayLevel[0], AbsolutePointSize[7], PointBox[NCache[{{Rational[-1, 50], 0}, {Rational[-3, 100], 0}, { Rational[-9, 200], 0}, {Rational[-27, 400], 0}, { Rational[-81, 800], 0}, { Rational[-243, 1600], 0}}, {{-0.02, 0}, {-0.03, 0}, {-0.045, 0}, {-0.0675, 0}, {-0.10125, 0}, {-0.151875, 0}}]], {RGBColor[1, 0, 0], PointBox[NCache[{Rational[-1, 7], 0}, {-0.14285714285714285`, 0}]], PointBox[{0, 0}]}, {RGBColor[0, 0, 1], InsetBox[ RowBox[{"-", FractionBox["1", "7"]}], {-0.14435714285714285, 0.016}]}}}, Axes->True, AxesStyle->Directive[ GrayLevel[0.6], 12], ImageSize->600, Method->{"AxesInFront" -> False}, Ticks->{{{ NCache[ Rational[-1, 50], -0.02], FormBox[ SubscriptBox["\[Psi]", "0"], TraditionalForm]}, { NCache[ Rational[-3, 100], -0.03], FormBox[ SubscriptBox["\[Psi]", "1"], TraditionalForm]}, { NCache[ Rational[-9, 200], -0.045], FormBox[ SubscriptBox["\[Psi]", "2"], TraditionalForm]}, { NCache[ Rational[-27, 400], -0.0675], FormBox[ SubscriptBox["\[Psi]", "3"], TraditionalForm]}, { NCache[ Rational[-81, 800], -0.10125], FormBox[ SubscriptBox["\[Psi]", "4"], TraditionalForm]}, { NCache[ Rational[-243, 1600], -0.151875], FormBox[ SubscriptBox["\[Psi]", "5"], TraditionalForm]}}, None}, TicksStyle->Directive[ RGBColor[0, 0, 1], FontFamily -> "Computer Modern", FontSize -> 17]]], "Output", CellChangeTimes->{ 3.760525232214428*^9, {3.760525281987505*^9, 3.760525298804237*^9}, { 3.7605254153497963`*^9, 3.7605254404144497`*^9}, 3.7917251004076567`*^9}, CellLabel->"Out[26]=",ExpressionUUID->"5b31185d-b91e-44aa-b113-8140fca8e33d"] }, Open ]] }, CellGrouping->Manual, WindowSize->{3789, 1976}, WindowMargins->{{0, Automatic}, {1189, Automatic}}, CellBracketOptions->{"Color"->RGBColor[0, 0, 1], "Thickness"->3.5, "Widths"->{20, 20}}, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], Magnification:>2. Inherited, FontColor->GrayLevel[0], Background->RGBColor[0.87, 0.94, 1], FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"], ExpressionUUID->"8ce7d916-c57f-47ca-a3a7-04a7aafbc9f1" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 290, 5, 191, "Title",ExpressionUUID->"56e80fe5-ce6c-41d1-b66a-0fb700393263"], Cell[873, 29, 1158, 22, 81, "Input",ExpressionUUID->"0384960a-c6ab-40a1-90e8-ad7bb79f40a3"] }, Open ]], Cell[CellGroupData[{ Cell[2068, 56, 351, 9, 290, "Section",ExpressionUUID->"6e46ced6-56e9-440b-8388-01e8646e6d3a"], Cell[2422, 67, 163, 3, 67, "Text",ExpressionUUID->"2fb38390-0b8a-4e18-b582-121d2ce0aec8"], Cell[2588, 72, 403, 10, 116, "Input",ExpressionUUID->"d3cb2246-8d68-4808-bd40-7d82e6b51ec2"], Cell[2994, 84, 1563, 48, 292, "Text",ExpressionUUID->"cae58321-d51b-42ec-8b41-d98a25d71d1e"], Cell[4560, 134, 772, 17, 224, "Input",ExpressionUUID->"49716ab2-446a-4b9e-95ed-4c1b263ee0e3"], Cell[5335, 153, 2507, 79, 163, "Text",ExpressionUUID->"3584ad38-ec12-4e70-a9c1-90745a426493"], Cell[7845, 234, 1712, 47, 213, "Input",ExpressionUUID->"f860c588-44ed-4f2c-9423-0b91ba36ef64"], Cell[CellGroupData[{ Cell[9582, 285, 611, 11, 81, "Input",ExpressionUUID->"e6af5fbc-8b77-4add-94ec-39757f88048e"], Cell[10196, 298, 2000, 34, 350, "Output",ExpressionUUID->"309424fd-fd2c-41ab-9849-ac21fccadca9"] }, Open ]], Cell[12211, 335, 707, 17, 87, "Input",ExpressionUUID->"4faf33b1-415d-4ec2-8beb-95dcba48669e"], Cell[12921, 354, 201, 3, 67, "Text",ExpressionUUID->"c4170ff2-7912-439e-8e6f-3150ff6b3365"], Cell[13125, 359, 596, 15, 164, "Input",ExpressionUUID->"06ee786e-0713-49d7-90f6-9c94a8b70b5b"], Cell[CellGroupData[{ Cell[13746, 378, 238, 4, 87, "Input",ExpressionUUID->"cb582fb3-50c5-4e14-b814-e05c5454af84"], Cell[13987, 384, 204, 4, 103, "Output",ExpressionUUID->"ed1f86d8-db59-401c-af79-3e6320f9e2bb"] }, Open ]], Cell[CellGroupData[{ Cell[14228, 393, 263, 5, 109, "Input",ExpressionUUID->"26d47b1c-398f-4cb2-9b4c-ac8827c08f59"], Cell[14494, 400, 229, 5, 103, "Output",ExpressionUUID->"b78d37de-bc92-4012-aae2-90bdfa7b6f0c"] }, Open ]], Cell[14738, 408, 1129, 34, 71, "Text",ExpressionUUID->"34719e68-7ff0-41e0-b5d5-47c7d60e4dea"], Cell[15870, 444, 579, 15, 109, "Input",ExpressionUUID->"43e1ea14-948b-444c-9e8a-d5bab643911a"], Cell[16452, 461, 560, 15, 107, "Input",ExpressionUUID->"68c4ebb4-377a-40ed-aee5-58234f64b48b"], Cell[CellGroupData[{ Cell[17037, 480, 783, 17, 227, "Input",ExpressionUUID->"dfe98028-f3d4-4d2a-9fea-2cf110fc226d"], Cell[17823, 499, 108673, 2912, 8027, "Output",ExpressionUUID->"b59c4ee6-4ae0-4402-bfe6-221a14c00a14"] }, Open ]], Cell[CellGroupData[{ Cell[126533, 3416, 280, 4, 103, "Input",ExpressionUUID->"d473df8b-8324-4388-a0c3-91e3bc431778"], Cell[126816, 3422, 152, 2, 103, "Output",ExpressionUUID->"89d52c67-2311-4619-9325-b38f1c081276"] }, Open ]], Cell[CellGroupData[{ Cell[127005, 3429, 354, 7, 103, "Input",ExpressionUUID->"3325f33a-36f8-4462-a9fc-d4f65f2cd3b0"], Cell[127362, 3438, 1972, 64, 107, "Output",ExpressionUUID->"8b942bec-9b40-4388-986c-e98ccd80bcbb"] }, Open ]], Cell[129349, 3505, 2968, 62, 558, "Input",ExpressionUUID->"b5f05f17-cb20-403f-afd7-115eb720e3ed"], Cell[CellGroupData[{ Cell[132342, 3571, 176, 2, 103, "Input",ExpressionUUID->"84a930be-10ea-48da-8bf7-7942c69d2681"], Cell[132521, 3575, 3751, 101, 211, "Output",ExpressionUUID->"06cf8893-6471-47d5-a73e-3a2b2f275d2e"] }, Open ]], Cell[136287, 3679, 569, 14, 108, "Input",ExpressionUUID->"574365ac-cc10-4728-8e76-bd5e82136e81"], Cell[CellGroupData[{ Cell[136881, 3697, 195, 3, 103, "Input",ExpressionUUID->"701f9fcc-747b-4eba-b6ed-813679c5dfce"], Cell[137079, 3702, 906, 29, 103, "Output",ExpressionUUID->"091b09e2-9006-40f0-a9fb-a7bfbdfeb835"] }, Open ]], Cell[CellGroupData[{ Cell[138022, 3736, 488, 14, 137, "Input",ExpressionUUID->"ea221cbd-01d5-4e7d-ae43-7d1947ecc1e5"], Cell[138513, 3752, 892, 28, 128, "Output",ExpressionUUID->"b39327eb-9d22-409b-bc60-d702d93d006f"] }, Open ]], Cell[139420, 3783, 516, 13, 107, "Input",ExpressionUUID->"40b2d09a-5b3e-433e-92da-a04f0cba0214"], Cell[CellGroupData[{ Cell[139961, 3800, 245, 4, 103, "Input",ExpressionUUID->"b6c7570e-7d85-4025-98b2-d6caad5cb925"], Cell[140209, 3806, 311, 7, 103, "Output",ExpressionUUID->"a359f97a-17d7-43a6-acc2-e1eb55630b1b"] }, Open ]], Cell[CellGroupData[{ Cell[140557, 3818, 242, 8, 173, "Subsection",ExpressionUUID->"68d9e354-b501-40f7-8092-2bec6e5c121f"], Cell[140802, 3828, 2829, 86, 336, "Text",ExpressionUUID->"1063258f-a9c4-409e-962c-352f5d96e799"], Cell[143634, 3916, 2525, 78, 161, "Text",ExpressionUUID->"9ad439be-feaf-40fe-b7ff-97131d34964f"], Cell[CellGroupData[{ Cell[146184, 3998, 537, 12, 109, "Input",ExpressionUUID->"de13979e-780e-4948-9949-efa0714edc63"], Cell[146724, 4012, 3508, 99, 155, "Output",ExpressionUUID->"7ff8ec06-8ce7-4718-adb6-ba21ec24f95e"] }, {1, 2}]], Cell[CellGroupData[{ Cell[150269, 4116, 310, 5, 103, "Input",ExpressionUUID->"19fc8a84-831d-4586-8940-249d0d0fcad0"], Cell[150582, 4123, 3135, 91, 155, "Output",ExpressionUUID->"2887427b-6836-4e3f-a221-99617d82e495"] }, {1, 2}]], Cell[CellGroupData[{ Cell[153754, 4219, 737, 14, 268, "Input",ExpressionUUID->"eaef6e26-b5a7-4ce8-b360-c5cb68574e38"], Cell[154494, 4235, 3244, 99, 448, "Output",ExpressionUUID->"e98c151c-30b3-49fb-be3f-c397118cf6df"] }, {1, 2}]], Cell[157753, 4337, 349, 7, 108, "Input",ExpressionUUID->"85c4b8dd-68dd-420b-96bc-a372eb2c90f1"], Cell[CellGroupData[{ Cell[158127, 4348, 226, 4, 103, "Input",ExpressionUUID->"edeb12d5-1fb3-4d22-84eb-2b52b0436b43"], Cell[158356, 4354, 219, 5, 103, "Output",ExpressionUUID->"e14bebb5-8ddc-4341-88ee-fa61606f499d"] }, {1, 2}]], Cell[CellGroupData[{ Cell[158612, 4364, 226, 4, 103, "Input",ExpressionUUID->"43054726-b9e6-4abb-9f1e-1b5db92992d7"], Cell[158841, 4370, 217, 5, 103, "Output",ExpressionUUID->"3254ac9d-cea6-4481-8fbb-e33394b0d465"] }, {1, 2}]] }, Open ]] }, Open ]], Cell[159097, 4380, 4086, 127, 796, "Input",ExpressionUUID->"a64eaadd-3590-4ed0-a4c6-1a640a60c356"], Cell[CellGroupData[{ Cell[163208, 4511, 376, 9, 103, "Input",ExpressionUUID->"af8cb948-a63b-4dba-8a1c-33c9761b55ce"], Cell[163587, 4522, 295, 6, 103, "Output",ExpressionUUID->"b8b49f43-de94-44f3-8ec6-02d1a915fd02"] }, {1, 2}]], Cell[163897, 4531, 1573, 49, 67, "Text",ExpressionUUID->"2c04de08-29a3-47a3-b581-0e177a50698f"], Cell[CellGroupData[{ Cell[165495, 4584, 811, 18, 145, "Input",ExpressionUUID->"7c0de76c-47d9-439a-a04c-6a509948f24a"], Cell[166309, 4604, 7088, 238, 247, "Output",ExpressionUUID->"a80c17d6-057c-4055-9dd4-7ed6dc184a8b"] }, {1, 2}]], Cell[173412, 4845, 428, 11, 67, "Text",ExpressionUUID->"d6c6b386-3704-4a43-8dbf-a44dcabe49c4"], Cell[CellGroupData[{ Cell[173865, 4860, 1157, 30, 133, "Input",ExpressionUUID->"8b8c2a68-5638-4128-a6aa-192b9646c9f2"], Cell[175025, 4892, 47054, 1249, 990, "Output",ExpressionUUID->"d24a58cc-c59e-45f7-a45f-3db3b188f740"] }, Closed]], Cell[222094, 6144, 3164, 75, 414, "Input",ExpressionUUID->"39812860-8ee5-4238-ba40-0bdf6e48d9a9"], Cell[CellGroupData[{ Cell[225283, 6223, 212, 3, 103, "Input",ExpressionUUID->"5f63c875-f18f-4944-ae6d-3797c465fdbb"], Cell[225498, 6228, 149, 2, 103, "Output",ExpressionUUID->"f7aa07f0-7b0c-433c-b7d1-9fe10ca54402"] }, {1, 2}]], Cell[CellGroupData[{ Cell[225684, 6235, 247, 4, 103, "Input",ExpressionUUID->"942a99c6-29fd-47b9-8b3c-eea92b3fa32d"], Cell[225934, 6241, 3571, 123, 155, "Output",ExpressionUUID->"99ff7891-9edd-4ec7-b5b4-93ea3b04d50d"] }, {1, 2}]], Cell[CellGroupData[{ Cell[229542, 6369, 273, 5, 103, "Input",ExpressionUUID->"283cb0ef-23b7-4f9b-875c-15bf4b288f03"], Cell[229818, 6376, 6451, 222, 247, "Output",ExpressionUUID->"3c3e46a6-107b-4339-bc16-86ede5efbd15"] }, Open ]], Cell[CellGroupData[{ Cell[236306, 6603, 273, 5, 103, "Input",ExpressionUUID->"8d774b57-58ab-47ab-8e0a-2f8f78131ab5"], Cell[236582, 6610, 8710, 301, 315, "Output",ExpressionUUID->"f29bd6b8-49bd-475b-aff2-7709ae1df64d"] }, Open ]], Cell[CellGroupData[{ Cell[245329, 6916, 275, 5, 103, "Input",ExpressionUUID->"b449c01f-29dd-4798-b179-48517576f889"], Cell[245607, 6923, 10576, 371, 394, "Output",ExpressionUUID->"bf32b8b8-8f80-4faf-916e-9cb0d4e32164"] }, Open ]], Cell[CellGroupData[{ Cell[256220, 7299, 2406, 50, 399, "Input",ExpressionUUID->"0dc40479-94e0-47f0-992e-d9e795929f47"], Cell[258629, 7351, 30699, 1001, 840, "Output",ExpressionUUID->"518247ef-68f0-4011-91df-0119007c2603"] }, Open ]], Cell[289343, 8355, 34759, 1055, 1808, "Input",ExpressionUUID->"4fbf8989-ca5d-441f-961b-5f856693e350"], Cell[CellGroupData[{ Cell[324127, 9414, 439, 9, 103, "Input",ExpressionUUID->"339f7415-fb8b-4b8b-9cb1-1e786909b8c4"], Cell[324569, 9425, 1999, 34, 350, "Output",ExpressionUUID->"3df105c6-36e9-4dc5-abad-c80ebf72e0d7"] }, Open ]], Cell[CellGroupData[{ Cell[326605, 9464, 318, 7, 103, "Input",ExpressionUUID->"4f46730b-21d2-47d7-bd7f-f83cdd199ca4"], Cell[326926, 9473, 2001, 34, 350, "Output",ExpressionUUID->"cfd69996-e278-4a31-a9c5-9a9b06cf1dd9"] }, Open ]], Cell[CellGroupData[{ Cell[328964, 9512, 197, 3, 103, "Input",ExpressionUUID->"5b62b01f-9ba1-44fb-9d85-cce523d4a0d2"], Cell[329164, 9517, 711, 11, 103, "Output",ExpressionUUID->"c58c67d2-df91-4591-899c-edcb7ae9b15a"] }, Open ]], Cell[329890, 9531, 236, 4, 103, "Input",ExpressionUUID->"3e41e8e0-b127-4176-a167-0cc69b2ef9c1"], Cell[330129, 9537, 3643, 112, 452, "Input",ExpressionUUID->"761d2e55-285c-49a8-a09e-b6a00233c53f"], Cell[CellGroupData[{ Cell[333797, 9653, 413, 9, 103, "Input",ExpressionUUID->"a9c6239e-4b2e-42df-807c-3d5d2a185a99"], Cell[334213, 9664, 314, 7, 103, "Output",ExpressionUUID->"0e4911e9-6862-4316-8a17-99de7d5c7413"] }, Open ]], Cell[CellGroupData[{ Cell[334564, 9676, 330, 6, 103, "Input",ExpressionUUID->"761e8a2b-aff4-4448-9302-11ee829a1ce4"], Cell[334897, 9684, 316, 7, 103, "Output",ExpressionUUID->"b10e85b2-7b50-4e3d-9780-2a89f7c0b1ec"] }, Open ]], Cell[CellGroupData[{ Cell[335250, 9696, 220, 6, 214, "Section",ExpressionUUID->"50e632d0-1ee1-474a-a4d3-40d1bb151b4c"], Cell[335473, 9704, 4676, 106, 615, "Input",ExpressionUUID->"47175b48-dffc-4509-bad3-15881adf50c6"], Cell[340152, 9812, 2428, 60, 911, "Output",ExpressionUUID->"a72dd639-a9c9-428a-b925-ff1c46218dc1"], Cell[342583, 9874, 5317, 124, 615, "Input",ExpressionUUID->"b3b82e4b-db82-4c65-96f5-06b4ad4eeb09"], Cell[347903, 10000, 2579, 65, 1134, "Output",ExpressionUUID->"5b31185d-b91e-44aa-b113-8140fca8e33d"] }, Open ]] } ] *)