(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 2375548, 64965] NotebookOptionsPosition[ 2317703, 63502] NotebookOutlinePosition[ 2318059, 63518] CellTagsIndexPosition[ 2318016, 63515] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Continued Fractions Article Summary Notebook:", FontSize->48, FontSlant->"Italic", FontVariations->{"Underline"->True}]], "Title", CellChangeTimes->{{3.647853062190138*^9, 3.647853091053425*^9}, { 3.647938239583809*^9, 3.6479382584112062`*^9}, {3.647947531147246*^9, 3.647947553562573*^9}, {3.647961402325902*^9, 3.647961407557214*^9}, { 3.648369458292376*^9, 3.6483694592188377`*^9}, {3.648591144772621*^9, 3.648591144961152*^9}, {3.652514859916115*^9, 3.652514878609439*^9}, { 3.652517048306491*^9, 3.6525170500069027`*^9}}, Background->RGBColor[1., 0.6666666666666666, 0.]], Cell[TextData[{ " \[FilledRightTriangle] ", StyleBox["Summary Package and Working Notebook Document Information", FontWeight->"Bold", FontSlant->"Italic", FontVariations->{"Underline"->True}], StyleBox[": ", FontWeight->"Bold", FontSlant->"Italic"] }], "Subtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514458099011*^9, 3.6525144910043793`*^9}, {3.6525146887632847`*^9, 3.652514693236198*^9}, { 3.652514769911174*^9, 3.652514793258135*^9}}, Background->RGBColor[1., 0.8, 0.39215686274509803`]], Cell[TextData[{ StyleBox["Author", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[": Maxie D. Schmidt (", FontWeight->"Bold"], StyleBox["maxieds@gmail.com", FontFamily->"Courier New", FontWeight->"Bold"], StyleBox[")\n", FontWeight->"Bold"], StyleBox["Revision Information", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[": ", FontWeight->"Bold"], StyleBox["2015.10.30-v1", FontSlant->"Italic"], StyleBox["\n", FontWeight->"Bold"], StyleBox["Required Local Package Files", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[": ", FontWeight->"Bold"], "Requires ", StyleBox["multifact-cfracs-summary.nb", FontFamily->"Courier New", FontWeight->"Bold"], " (this notebook)", StyleBox["\n", FontWeight->"Bold"], StyleBox["Optional External Packages", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[": ", FontWeight->"Bold"], "The ", StyleBox["RISC Sigma", FontSlant->"Italic"], " package for ", StyleBox["Mathematica", FontSlant->"Italic"], " (", StyleBox["Sigma.m", FontFamily->"Courier New", FontWeight->"Bold"], " package file)." }], "Subsubtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, 3.6525147170257397`*^9, { 3.652515916149576*^9, 3.652516037212727*^9}, {3.652516067763866*^9, 3.652516068905196*^9}, {3.65325344264609*^9, 3.653253479683316*^9}, { 3.653360448987887*^9, 3.6533604570163383`*^9}, 3.653360660693935*^9, { 3.653405741705036*^9, 3.6534057451113253`*^9}, {3.655238828227215*^9, 3.655238838324198*^9}, {3.655268143935788*^9, 3.6552681468535137`*^9}}, Background->RGBColor[1, 0.9, 0.8]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle] ", StyleBox["Package Description", FontWeight->"Bold", FontSlant->"Italic", FontVariations->{"Underline"->True}], StyleBox[": ", FontWeight->"Bold", FontSlant->"Italic"] }], "Subtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514458099011*^9, 3.6525144910043793`*^9}, 3.652514667978607*^9, 3.652514773527486*^9, { 3.652514827645228*^9, 3.652514831298676*^9}}, Background->RGBColor[1., 0.8, 0.39215686274509803`]], Cell[TextData[{ "This prepared summary notebook file, with working filename ", StyleBox["multifact-cfracs-summary.nb", FontFamily->"Courier New", FontWeight->"Bold"], ", attached to the submission of this manuscript contains working ", StyleBox["Mathematica", FontSlant->"Italic"], " code to verify the formulas, propositions, and other identities cited in \ the article. Given the length of the article, the ", StyleBox["Mathematica", FontSlant->"Italic"], " summary notebook included with this submission is intended to help the \ reviewer to process the article more quickly, and to help the reader with \ verifying and modifying the examples presented as applications of the new \ results cited below. The summary notebook also contains numerical data to \ verify examples and congruences specifically referenced in several of the \ applications given in the article. " }], "Subsubtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514678594656*^9, 3.652514679139022*^9}, {3.652515628086657*^9, 3.652515691508297*^9}, { 3.652515746235003*^9, 3.652515748757365*^9}, {3.652515842405456*^9, 3.652515903570755*^9}, {3.6525162749960737`*^9, 3.652516374893683*^9}, { 3.652516418546967*^9, 3.6525164193505497`*^9}, {3.6533604000890503`*^9, 3.653360405509802*^9}, {3.653360442711812*^9, 3.6533604431783667`*^9}}, Background->RGBColor[1, 0.9, 0.8]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle] ", StyleBox["Definitions of Mathematica Routines and Helper Functions", FontWeight->"Bold", FontSlant->"Italic", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold", FontSlant->"Italic"] }], "Subtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514458099011*^9, 3.6525144910043793`*^9}, 3.652514667978607*^9, 3.652514773527486*^9, { 3.652516840586128*^9, 3.6525168495883207`*^9}, 3.652516889435643*^9}, Background->RGBColor[1., 0.8, 0.39215686274509803`]], Cell[TextData[{ "The local working notebook file contains definitions of ", StyleBox["Mathematica", FontSlant->"Italic"], " routines and helper functions, as well as definitions of specific \ identities referenced within the article intended to assist with more quickly \ verifying that these formulas are correct as listed in the manuscript text. \ The required subroutines contained in this package are loaded by entering the \ following lines:" }], "Subsubtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514678594656*^9, 3.652514679139022*^9}, {3.652515628086657*^9, 3.652515691508297*^9}, { 3.652515746235003*^9, 3.652515748757365*^9}, {3.652515842405456*^9, 3.652515903570755*^9}, {3.6525162749960737`*^9, 3.652516374893683*^9}, { 3.652516418546967*^9, 3.6525164193505497`*^9}, {3.6533604000890503`*^9, 3.6533604365195217`*^9}}, Background->RGBColor[1, 0.9, 0.8]], Cell[BoxData[{ RowBox[{ RowBox[{"FP", "[", RowBox[{"h_", ",", " ", "alpha_", ",", " ", "R_", ",", " ", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "alpha", ",", "R", ",", "z"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"h", "\[LessEqual]", "1"}], ",", " ", RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{"h", "\[Equal]", "1"}], ",", " ", "True"}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"2", "*", "alpha", "*", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}]}]}], ")"}], "*", "z"}]}], ")"}], "*", RowBox[{"FP", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", " ", "alpha", ",", "R", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"alpha", "*", "R"}], "+", RowBox[{ RowBox[{"(", RowBox[{"alpha", "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "2"}], ")"}]}]}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}], "*", RowBox[{"FP", "[", RowBox[{ RowBox[{"h", "-", "2"}], ",", " ", "alpha", ",", "R", ",", "z"}], "]"}]}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h_", ",", " ", "alpha_", ",", " ", "R_", ",", " ", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "alpha", ",", "R", ",", "z"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"h", "\[LessEqual]", "1"}], ",", " ", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{"h", "\[Equal]", "0"}], ",", " ", "True"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"R", "*", "z"}]}], ")"}], "*", RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{"h", "\[Equal]", "1"}], ",", " ", "True"}], "]"}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"2", "*", "alpha", "*", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}]}]}], ")"}], "*", "z"}]}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", " ", "alpha", ",", "R", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"alpha", "*", "R"}], "+", RowBox[{ RowBox[{"(", RowBox[{"alpha", "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "2"}], ")"}]}]}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "2"}], ",", " ", "alpha", ",", "R", ",", "z"}], "]"}]}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"h_", ",", " ", "alpha_", ",", " ", "R_", ",", " ", "z_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", " ", "alpha", ",", "R", ",", "z"}], "]"}], "/", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "alpha", ",", "R", ",", "z"}], "]"}]}], ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"Chn", ",", "ChnV2", ",", "ChnV3"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h_", ",", "n_", ",", "alpha_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "alpha", ",", "R"}], "]"}], "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "alpha", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChnV2", "[", RowBox[{"h_", ",", "n_", ",", "alpha_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChnV2", "[", RowBox[{"h", ",", "n", ",", "alpha", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{"i", ",", RowBox[{"-", "alpha"}], ",", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "alpha"}]}]}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "i"}], ",", "alpha", ",", "R"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChnV3", "[", RowBox[{"h_", ",", "n_", ",", "alpha_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChnV3", "[", RowBox[{"h", ",", "n", ",", "alpha", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", "i"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{"i", ",", RowBox[{"-", "alpha"}], ",", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "alpha"}]}]}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "i"}], ",", "alpha", ",", "R"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Rhk", "[", RowBox[{"h_", ",", "k_", ",", "alpha_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"Rhk", "[", RowBox[{"h", ",", "k", ",", "alpha", ",", "R"}], "]"}], "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "alpha", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "k"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"S1", "[", RowBox[{"n_", ",", "k_"}], "]"}], ":=", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "k"}], "]"}], "=", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"StirlingS1", "[", RowBox[{"n", ",", "k"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"S2", "[", RowBox[{"n_", ",", "k_"}], "]"}], ":=", RowBox[{ RowBox[{"S2", "[", RowBox[{"n", ",", "k"}], "]"}], "=", RowBox[{"StirlingS2", "[", RowBox[{"n", ",", "k"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"alpha_", ",", "n_", ",", "k_"}], "]"}], ":=", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[LessEqual]", "0"}], "||", RowBox[{"k", "\[LessEqual]", "0"}]}], ",", RowBox[{"KroneckerDelta", "[", RowBox[{"n", ",", "k", ",", "0"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"alpha", " ", "n"}], "+", "1", "-", RowBox[{"2", " ", "alpha"}]}], ")"}], "*", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", RowBox[{"n", "-", "1"}], ",", "k"}], "]"}]}], "+", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"E2", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{ RowBox[{"E2", "[", RowBox[{"n", ",", "m"}], "]"}], "=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "\[Equal]", "0"}], "&&", RowBox[{"m", "\[Equal]", "0"}]}], ",", "1", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "<", "0"}], "||", RowBox[{"m", "<", "0"}]}], ",", "0", ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "*", RowBox[{"E2", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "m"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "1", "-", "m"}], ")"}], "*", RowBox[{"E2", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"m", "-", "1"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EulerianE2", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"E2", "[", RowBox[{"n", ",", "m"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"EulerianE1", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{ RowBox[{"EulerianE1", "[", RowBox[{"n", ",", "m"}], "]"}], "=", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "w"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"w", "-", "1"}], ")"}], "*", "z"}], "]"}], "-", "w"}], ")"}]}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"StirlingPoly", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"z", " ", RowBox[{ RowBox[{"Exp", "[", "z", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", "z", "]"}], "-", "1"}], ")"}]}]}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "/", "x"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"StirlingAlphaPoly", "[", RowBox[{"a_", ",", "n_", ",", "x_"}], "]"}], ":=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}], "*", "z"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"a", " ", "z", " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{"a", " ", "z"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"a", " ", "z"}], "]"}], "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "/", "x"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"StirlingPolyStar", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", RowBox[{ RowBox[{"StirlingPolyStar", "[", RowBox[{"n", ",", "x"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"x", ">", "0"}], ",", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"z", " ", RowBox[{ RowBox[{"Exp", "[", "z", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", "z", "]"}], "-", "1"}], ")"}]}]}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"x", "-", "1"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "n"}], ")"}], "/", RowBox[{"Factorial", "[", RowBox[{"x", "-", "n"}], "]"}]}]}], ",", "1"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pn", "[", RowBox[{"n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[GreaterEqual]", "1"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"a", "*", "j"}]}], ")"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"KroneckerDelta", "[", RowBox[{"n", ",", "0"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GouldG", "[", RowBox[{"n_", ",", "x_", ",", "a_", ",", "b_"}], "]"}], ":=", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{"x", "-", " ", RowBox[{"a", " ", "n"}]}], ")"}]}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"a", " ", "n"}]}], ")"}], "/", "b"}], ",", "n"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Hn", "[", RowBox[{"a_", ",", "n_", ",", "r_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ",", RowBox[{"-", "r"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Hn", "[", RowBox[{"a_", ",", "b_", ",", "n_", ",", "r_", ",", "t_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "k"}], "+", "b"}], ",", RowBox[{"-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"t", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Spn", "[", RowBox[{"p_", ",", "n_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"m", ",", "p"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Spn", "[", RowBox[{"p_", ",", "u_", ",", "n_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"m", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Spn", "[", RowBox[{"p_", ",", "a_", ",", "b_", ",", "u_", ",", "n_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "m"}], "+", "b"}], ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[LessEqual]", "0"}], ",", RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{ RowBox[{"-", "alpha"}], "<", "n", "\[LessEqual]", "0"}], ",", "True"}], "]"}], ",", RowBox[{"n", "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{"n", "-", "alpha"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"FallingFactorial", "[", RowBox[{"x_", ",", "n_"}], "]"}], ":=", RowBox[{"FactorialPower", "[", RowBox[{"x", ",", "n"}], "]"}]}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"RisingFactorial", "[", RowBox[{"x_", ",", "n_"}], "]"}], ":=", RowBox[{"Pochhammer", "[", RowBox[{"x", ",", "n"}], "]"}]}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", RowBox[{ RowBox[{"PH", "[", RowBox[{"x_", ",", "n_"}], "]"}], ":=", RowBox[{"Pochhammer", "[", RowBox[{"x", ",", "n"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CentralBinomial", "[", "n_", "]"}], ":=", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"U", "[", RowBox[{"a_", ",", "b_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"U", "[", RowBox[{"a", ",", "b", ",", "z"}], "]"}], "=", RowBox[{"HypergeometricU", "[", RowBox[{"a", ",", "b", ",", "z"}], "]"}]}]}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"M", "[", RowBox[{"a_", ",", "b_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"M", "[", RowBox[{"a", ",", "b", ",", "z"}], "]"}], "=", RowBox[{"Hypergeometric1F1", "[", RowBox[{"a", ",", "b", ",", "z"}], "]"}]}]}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{ RowBox[{"Ln", "[", RowBox[{"n_", ",", "b_", ",", "x_"}], "]"}], ":=", RowBox[{ RowBox[{"Ln", "[", RowBox[{"n", ",", "b", ",", "x"}], "]"}], "=", RowBox[{"LaguerreL", "[", RowBox[{"n", ",", "b", ",", "x"}], "]"}]}]}], FontColor->GrayLevel[0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeCondFn", "[", "m_", "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], ",", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightGreen", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Green", "]"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{"#1", "&"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"m_", ",", "primePairQ_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], "&&", RowBox[{ RowBox[{"primePairQ", "[", "m", "]"}], "\[Equal]", "True"}]}], ",", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightGreen", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Green", "]"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], "\[Equal]", "True"}], ",", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightBlue", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Blue", "]"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"(", "#1", ")"}], "&"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{"m_", ",", "d_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], "&&", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d"}], "]"}], "\[Equal]", "True"}]}], ",", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightGreen", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Green", "]"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], "\[Equal]", "True"}], ",", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightBlue", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Blue", "]"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"(", "#1", ")"}], "&"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ColorHightHighlightFn", "[", "color_", "]"}], ":=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "color", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Blend", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Darker", "[", "color", "]"}]}], "}"}], ",", RowBox[{"2", "/", "3"}]}], "]"}]}]}], "]"}], "&"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ColorHightHighlightFn", "[", RowBox[{"fg_", ",", "bg_"}], "]"}], ":=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "bg", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "fg", "]"}]}]}], "]"}], "&"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeTripleHighlightFn", "[", RowBox[{"m_", ",", "d1_", ",", "d2_", ",", "d3_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d2"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d3"}], "]"}]}], ",", RowBox[{"ColorHightHighlightFn", "[", RowBox[{"Green", ",", "LightGreen"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d2"}], "]"}]}], ",", RowBox[{"ColorHightHighlightFn", "[", RowBox[{"Cyan", ",", "LightCyan"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d3"}], "]"}]}], ",", RowBox[{"ColorHightHighlightFn", "[", RowBox[{"Pink", ",", "LightPink"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d2"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d3"}], "]"}]}], ",", RowBox[{"ColorHightHighlightFn", "[", RowBox[{"Orange", ",", "LightOrange"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PrimeQ", "[", RowBox[{"m", "+", "d1"}], "]"}], ",", RowBox[{"ColorHightHighlightFn", "[", RowBox[{"Blue", ",", "LightBlue"}], "]"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"(", "#1", ")"}], "&"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeTripleCondFn", "[", RowBox[{"m_", ",", "d1_", ",", "d2_", ",", "d3_"}], "]"}], ":=", RowBox[{"PrimeTripleHighlightFn", "[", RowBox[{"m", ",", "d1", ",", "d2", ",", "d3"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CheckMarkEquals", "[", RowBox[{"rhs_", ",", RowBox[{"lhs_:", "True"}], ",", RowBox[{"cmFontSize_:", "16"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"rhs", "\[Equal]", "lhs"}], ",", RowBox[{"Framed", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\[Checkmark]", ",", RowBox[{"Background", "\[Rule]", "LightGreen"}], ",", "Bold", ",", "Underlined", ",", RowBox[{"FontColor", "\[Rule]", "Green"}], ",", RowBox[{"FontSize", "\[Rule]", "cmFontSize"}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", "LightGreen"}]}], "]"}], ",", RowBox[{"Framed", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\[ScriptCapitalX]", ",", RowBox[{"Background", "\[Rule]", "LightRed"}], ",", "Bold", ",", "Underlined", ",", RowBox[{"FontColor", "\[Rule]", "Red"}], ",", RowBox[{"FontSize", "\[Rule]", "cmFontSize"}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", "LightRed"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getMarkedSeriesData", "[", RowBox[{"sinput_", ",", "coeffCmpFn_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "cflist", ",", "redGreenCoeffs", ",", "origSData", ",", "markedSeriesData"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cflist", "=", RowBox[{"CoefficientList", "[", RowBox[{ RowBox[{"Normal", "[", "sinput", "]"}], ",", "z"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"redGreenCoeffs", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "===", RowBox[{"coeffCmpFn", "[", RowBox[{ RowBox[{"First", "[", "#2", "]"}], "-", "1"}], "]"}]}], ",", RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"FontColor", "\[Rule]", "Green"}], ",", RowBox[{"Background", "\[Rule]", "LightGreen"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"FontColor", "\[Rule]", "Red"}], ",", RowBox[{"Background", "\[Rule]", "LightRed"}]}], "]"}]}], "]"}], "&"}], ",", "cflist"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"origSData", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"sinput", "[", RowBox[{"[", "#1", "]"}], "]"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", RowBox[{"Length", "[", "sinput", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"origSData", "=", RowBox[{"ReplacePart", "[", RowBox[{"origSData", ",", RowBox[{"3", "\[Rule]", "redGreenCoeffs"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"markedSeriesData", "=", RowBox[{"SeriesData", "@@", "origSData"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "markedSeriesData", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "seriesOGFCoeffFn_", ",", "exampleAFn_", ",", "exampleBFn_", ",", "convh_", ",", "zcfupper_", ",", RowBox[{ RowBox[{"ModFn_:", RowBox[{"Mod", "[", RowBox[{"#1", ",", "#2", ",", RowBox[{"-", "1"}]}], "]"}]}], "&"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "cfz", ",", "cfzFS", ",", "cfzSeriesExp", ",", "expectedOGFApproxSum", ",", "diffSeries", ",", "modhTbl"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cfz", "=", RowBox[{"ContinuedFractionK", "[", RowBox[{ RowBox[{"exampleAFn", "[", "n", "]"}], ",", RowBox[{"exampleBFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "convh"}], "}"}], ",", RowBox[{"GenerateConditions", "\[Rule]", " ", "True"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"cfzFS", "=", RowBox[{"FS", "[", "cfz", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"cfzSeriesExp", "=", RowBox[{ RowBox[{"Series", "[", RowBox[{"cfz", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "zcfupper"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], ";", "\[IndentingNewLine]", RowBox[{"expectedOGFApproxSum", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"seriesOGFCoeffFn", "[", "n", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "zcfupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"diffSeries", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "expectedOGFApproxSum", ")"}], "-", RowBox[{"Normal", "[", "cfzSeriesExp", "]"}]}], "]"}], ",", RowBox[{"z", "^", "_"}], ",", "Factor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"modhTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"seriesOGFCoeffFn", "[", "n", "]"}], ",", "convh"}], "]"}], ",", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"cfz", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convh"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "zcfupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"Print", ",", RowBox[{"{", RowBox[{ "cfz", ",", "cfzFS", ",", "cfzSeriesExp", ",", "cexpectedOGFApproxSum", ",", "diffSeries", ",", RowBox[{"getMarkedSeriesData", "[", RowBox[{"cfzSeriesExp", ",", "seriesOGFCoeffFn"}], "]"}], ",", RowBox[{"TF", "[", "modhTbl", "]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simplifySumOfTerms", "[", RowBox[{"input_", ",", RowBox[{"simpFn_:", "FullSimplify"}]}], "]"}], ":=", RowBox[{"Plus", "@@", RowBox[{"Map", "[", RowBox[{"simpFn", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"input", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Range", "[", RowBox[{"1", ",", RowBox[{"Length", "[", "input", "]"}]}], "]"}]}], "}"}]}], "]"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{{3.647853096286001*^9, 3.647853098310153*^9}, 3.647853130188263*^9, {3.647853252287389*^9, 3.647853270505164*^9}, { 3.6478534125985518`*^9, 3.647853413030862*^9}, {3.6478534550628643`*^9, 3.647853541540977*^9}, {3.647853630815104*^9, 3.647853631782098*^9}, { 3.64785376445632*^9, 3.647853780142572*^9}, {3.647874216724094*^9, 3.647874227824469*^9}, {3.647874269711622*^9, 3.647874272860158*^9}, { 3.648368183514822*^9, 3.6483681854432697`*^9}, {3.648592172284031*^9, 3.648592172609363*^9}, {3.648663703665753*^9, 3.648663705163403*^9}, { 3.6517010703794127`*^9, 3.651701200562364*^9}, {3.652532440617466*^9, 3.652532453211771*^9}, {3.652533593772781*^9, 3.6525335943319197`*^9}, { 3.652533686982436*^9, 3.652533698901421*^9}, {3.652834937873128*^9, 3.652834938456791*^9}, {3.65284565011213*^9, 3.6528457494658823`*^9}, { 3.6528457862576647`*^9, 3.652845788135956*^9}, {3.652942786936675*^9, 3.652942787076169*^9}, {3.6529428926927967`*^9, 3.6529428928887053`*^9}, { 3.652952233197165*^9, 3.652952233526021*^9}, {3.652952435445779*^9, 3.652952435751625*^9}, {3.652958109771139*^9, 3.652958110850543*^9}, { 3.652974167142894*^9, 3.6529742041038713`*^9}, {3.652985788181241*^9, 3.6529857928089113`*^9}, {3.653271809344131*^9, 3.653271811056967*^9}, { 3.6532774944387007`*^9, 3.653277494759551*^9}, {3.6532948891268263`*^9, 3.65329490716226*^9}, {3.653303650899838*^9, 3.65330365184732*^9}, { 3.6533045534521017`*^9, 3.65330455433508*^9}, {3.6533053734553843`*^9, 3.653305448163045*^9}, {3.6533055939950743`*^9, 3.653305635977729*^9}, { 3.6533057549529943`*^9, 3.653305756252882*^9}, {3.653305838496772*^9, 3.6533058407764683`*^9}, {3.653332863933943*^9, 3.653332897957107*^9}, { 3.653334236459704*^9, 3.653334283474311*^9}, {3.653939347954146*^9, 3.6539393639539337`*^9}, {3.6539416591964283`*^9, 3.653941672659069*^9}, { 3.653941726323593*^9, 3.653941733231514*^9}, {3.654002932915223*^9, 3.654002944651751*^9}, {3.654788946243916*^9, 3.654788946952648*^9}, { 3.6548827420584*^9, 3.6548827423665447`*^9}, {3.654892153884348*^9, 3.654892163906248*^9}, {3.6548926386053553`*^9, 3.6548926389658833`*^9}, { 3.654894535120813*^9, 3.654894535771358*^9}, {3.654894829921874*^9, 3.654894830516119*^9}, {3.654932612478245*^9, 3.6549326126905813`*^9}, { 3.6549409452325172`*^9, 3.65494094612717*^9}, {3.655238101961254*^9, 3.655238160013687*^9}, {3.655247378742847*^9, 3.655247446523829*^9}, { 3.655249167518808*^9, 3.655249167814371*^9}, {3.655256315386527*^9, 3.655256315716485*^9}, {3.655257932529459*^9, 3.6552579398566933`*^9}, { 3.6552673326010733`*^9, 3.655267340987547*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1]:="], Cell[CellGroupData[{ Cell[TextData[{ "Other shorthand function definitions for built-in ", StyleBox["Mathematica", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], " routines:" }], "Subsubtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514678594656*^9, 3.652514679139022*^9}, {3.652515628086657*^9, 3.652515691508297*^9}, { 3.652515746235003*^9, 3.652515748757365*^9}, {3.652515842405456*^9, 3.652515903570755*^9}, {3.6525162749960737`*^9, 3.652516374893683*^9}, { 3.652516418546967*^9, 3.6525164193505497`*^9}, {3.6533604000890503`*^9, 3.6533604365195217`*^9}, {3.654882780417975*^9, 3.654882826595294*^9}, { 3.65488307017035*^9, 3.654883070932352*^9}}, Background->RGBColor[1, 0.9, 0.8]], Cell[BoxData[{ RowBox[{ RowBox[{"FS", "[", "input_", "]"}], ":=", RowBox[{"FullSimplify", "[", "input", "]"}]}], "\n", RowBox[{ RowBox[{"FE", "[", "input_", "]"}], ":=", RowBox[{"FunctionExpand", "[", "input", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PE", "[", "input_", "]"}], ":=", RowBox[{"PowerExpand", "[", "input", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TF", "[", "input_", "]"}], ":=", RowBox[{"TableForm", "[", "input", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CF", "[", "input_", "]"}], ":=", RowBox[{"ColumnForm", "[", "input", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MF", "[", "input_", "]"}], ":=", RowBox[{"MatrixForm", "[", "input", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{{3.647853606820492*^9, 3.647853633675025*^9}, { 3.6478536642888823`*^9, 3.6478536856736507`*^9}, {3.64785374784223*^9, 3.647853768780643*^9}, {3.647853799771393*^9, 3.647853857443519*^9}, { 3.647853888352363*^9, 3.64785393746913*^9}, {3.647862783775218*^9, 3.647862796757818*^9}, {3.647862979190454*^9, 3.647862980375593*^9}, { 3.652528030400717*^9, 3.6525280312882433`*^9}, {3.6525310400478287`*^9, 3.6525310557843647`*^9}, {3.652945176831794*^9, 3.6529451771246567`*^9}, { 3.652968182160428*^9, 3.652968219369615*^9}, {3.653270566304764*^9, 3.653270573662221*^9}, {3.65478808082231*^9, 3.654788093016446*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[8]:="] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Shortened draft", FontWeight->"Bold", FontSlant->"Italic", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold", FontSlant->"Italic"] }], "Title", CellChangeTimes->{{3.647853062190138*^9, 3.647853091053425*^9}, { 3.647938239583809*^9, 3.6479382584112062`*^9}, {3.647947531147246*^9, 3.647947553562573*^9}, {3.647961402325902*^9, 3.647961407557214*^9}, { 3.648369458292376*^9, 3.6483694592188377`*^9}, {3.648591144772621*^9, 3.648591144961152*^9}, {3.652514859916115*^9, 3.652514878609439*^9}, { 3.652517048306491*^9, 3.6525170500069027`*^9}, {3.655267711412702*^9, 3.655267721590361*^9}}, Background->RGBColor[1., 0.6666666666666666, 0.]], Cell[TextData[{ " \[FilledRightTriangle] ", StyleBox["Shortened draft of the summary reference data prepared for the \ initial article submission", FontWeight->"Bold", FontSlant->"Italic", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold", FontSlant->"Italic"] }], "Subtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514458099011*^9, 3.6525144910043793`*^9}, {3.6525146887632847`*^9, 3.652514693236198*^9}, { 3.652514769911174*^9, 3.652514793258135*^9}, {3.6547932238046017`*^9, 3.654793299331006*^9}, {3.654793360715539*^9, 3.654793361769462*^9}}, Background->RGBColor[1., 0.8, 0.39215686274509803`]], Cell[TextData[{ "This summary notebook document contains a shortened version of the contents \ in the full documentation to be released as in the reference [23]. This draft \ is prepared to accompany the submission of the article \ \[OpenCurlyDoubleQuote]", StyleBox["Jaocbi Type Continued Fractions for the Ordinary Generating \ Functions of Generalized Factorial Functions", FontSlant->"Italic"], "\[CloseCurlyDoubleQuote] submitted to the ", StyleBox["Journal of Integer Sequences", FontSlant->"Italic"], " in 2015. Additional computations related to the examples in the article \ can be obtained by contacting the author by email at ", StyleBox["maxieds@gmail.com", FontFamily->"Courier", FontWeight->"Bold"], ". " }], "Subsubtitle", CellChangeTimes->{{3.648623758267906*^9, 3.648623797543169*^9}, { 3.652514333648818*^9, 3.652514417506942*^9}, {3.652514678594656*^9, 3.652514679139022*^9}, {3.652515628086657*^9, 3.652515691508297*^9}, { 3.652515746235003*^9, 3.652515748757365*^9}, {3.652515842405456*^9, 3.652515903570755*^9}, {3.6525162749960737`*^9, 3.652516374893683*^9}, { 3.652516418546967*^9, 3.6525164193505497`*^9}, {3.6533604000890503`*^9, 3.6533604365195217`*^9}, {3.654882780417975*^9, 3.654883067347186*^9}, { 3.654883099098728*^9, 3.6548831376614943`*^9}}, Background->RGBColor[1, 0.9, 0.8]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section]1: Introduction: ", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, 3.654960444455432*^9}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Definitions of the generalized \ product sequences and \[Alpha]-factorial functions:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "Definition", " ", "of", " ", "the", " ", "generalized", " ", "product", " ", RowBox[{"sequences", ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox["p", "n"], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", ":=", " ", RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{"(", RowBox[{"R", "+", RowBox[{"\[Alpha]", " ", "j"}]}], ")"}]}], " ", "+", " ", TemplateBox[{RowBox[{"0", ",", "n"}]}, "KroneckerDeltaSeq"]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.654883860465519*^9, 3.6548838691462*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ SubscriptBox["p", "n"], "[", RowBox[{"\[Alpha]", ",", "R"}], "]"}], ",", " ", RowBox[{"pn", "[", RowBox[{"n", ",", "\[Alpha]", ",", "R"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654883203028432*^9, 3.654883204333232*^9}, { 3.654883268624383*^9, 3.6548833353343973`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[5]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Definitions", " ", "of", " ", "the", " ", "corresponding", " ", "rising", " ", "factorial", " ", RowBox[{"(", RowBox[{"Pochhammer", " ", "symbol"}], ")"}]}], ",", " ", RowBox[{"falling", " ", "factorial"}], ",", " ", RowBox[{ RowBox[{ "and", " ", "factorial", " ", "power", " ", "sequences", " ", "implemented", " ", "by", " ", "stock", " ", "built"}], "-", RowBox[{"in", " ", "Mathematica", " ", RowBox[{"functions", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.654883860465519*^9, 3.654883972911817*^9}, { 3.654884609436306*^9, 3.654884625475071*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"PHSymbol", "\[Rule]", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Pochhammer", "[", RowBox[{"x", ",", "n"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"RisingFact", "\[Rule]", SuperscriptBox["x", OverscriptBox["n", "_"]]}], ",", RowBox[{"RisingFactorial", "[", RowBox[{"x", ",", "n"}], "]"}], ",", " ", RowBox[{"pn", "[", RowBox[{"n", ",", "1", ",", "x"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"FallingFact", "\[Rule]", SuperscriptBox["x", UnderscriptBox["n", "_"]]}], ",", RowBox[{"FE", "[", RowBox[{"FallingFactorial", "[", RowBox[{"x", ",", "n"}], "]"}], "]"}], ",", RowBox[{"pn", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "x"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"FactorialPower", "\[Rule]", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"FactorialPower", "[", RowBox[{"x", ",", "n", ",", RowBox[{"-", "a"}]}], "]"}], "]"}], "]"}]}], ",", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"FactorialPower", "[", RowBox[{"x", ",", "n", ",", RowBox[{"-", "a"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", "x"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654883203028432*^9, 3.654883204333232*^9}, { 3.654883268624383*^9, 3.6548833353343973`*^9}, {3.654883442167625*^9, 3.654883824535275*^9}, {3.654884337278281*^9, 3.654884470687179*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[75]:="], Cell[TextData[{ "The single and double factorial functions, n! and n!!, are already \ implemented in ", StyleBox["Mathematica", FontSlant->"Italic"], " as ", StyleBox["Factorial[n]", FontFamily->"Courier New", FontWeight->"Bold"], " (or ", StyleBox["n!", FontFamily->"Courier New", FontWeight->"Bold"], ")", StyleBox[" ", FontWeight->"Bold"], "and ", StyleBox["Factorial2[n]", FontFamily->"Courier New", FontWeight->"Bold"], StyleBox["(or ", FontFamily->"Courier New"], StyleBox["n!!", FontFamily->"Courier New", FontWeight->"Bold"], StyleBox[")", FontFamily->"Courier New"], ", respectively. ", StyleBox[" ", FontSize->16, FontWeight->"Bold"], "The next table compares these built-in function definitions with the \ package function ", StyleBox["AlphaFactorial[\[Alpha], n]", FontFamily->"Courier New"], " for the more general \[Alpha]-factorial function cases: " }], "ItemParagraph", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, 3.652841598200725*^9, {3.654884165189868*^9, 3.6548841984499693`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "18"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<`1`!\>\"", ",", " ", "n"}], "]"}], "]"}], ",", RowBox[{"AlphaFactorial", "[", RowBox[{"1", ",", "n"}], "]"}], ",", RowBox[{"Factorial", "[", "n", "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Index", "\[Rule]", "n"}], ",", " ", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<`1`!!\>\"", ",", " ", "n"}], "]"}], "]"}], ",", RowBox[{"AlphaFactorial", "[", RowBox[{"2", ",", "n"}], "]"}], ",", RowBox[{"Factorial2", "[", "n", "]"}], ",", RowBox[{"n", "!!"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654883203028432*^9, 3.654883204333232*^9}, { 3.654883268624383*^9, 3.6548833353343973`*^9}, {3.654884214483427*^9, 3.654884222985828*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[57]:="], Cell[BoxData[{ FormBox[ RowBox[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ "Definitions", " ", "of", " ", "the", " ", "generalized", " ", "cases", " ", "of", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{ "factorial", " ", "functions", " ", "for", " ", "integers", " ", "n"}]}], " ", "\[GreaterEqual]", "0"}], ",", " ", RowBox[{ RowBox[{"or", " ", "n"}], " ", ">", " ", RowBox[{"-", RowBox[{"\[Alpha]", ":"}]}]}]}], FontWeight->"Bold"], "\[IndentingNewLine]"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox[ RowBox[{"n", "!"}], RowBox[{"(", "\[Alpha]", ")"}]], ":=", " ", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"n", " ", "\[Times]", " ", SubscriptBox[ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "\[Alpha]"}], ")"}], "!"}], RowBox[{"(", "\[Alpha]", ")"}]]}], RowBox[{ RowBox[{"if", " ", "n"}], " ", "\[GreaterEqual]", " ", "1"}]}, {"1", RowBox[{ RowBox[{"if", " ", "-", "\[Alpha]"}], " ", "<", " ", "n", " ", "\[LessEqual]", " ", "0"}]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}], StyleBox["\[IndentingNewLine]", FontSize->16, FontWeight->"Bold"], StyleBox[" ", FontSize->16, FontWeight->"Bold"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ "The", " ", "next", " ", "table", " ", "computes", " ", "additional", " ", "special", " ", "cases", " ", "of", " ", "the", " ", "more", " ", "general", " ", "\[Alpha]"}], "-", RowBox[{ "factorial", " ", "functions", " ", "using", " ", "the", " ", "package", " ", "function"}]}], ",", RowBox[{ StyleBox[ RowBox[{"AlphaFactorial", "[", RowBox[{"\[Alpha]", ",", " ", "n"}], "]"}], FontFamily->"Courier New", FontWeight->"Bold"], ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.6525225399760036`*^9}, { 3.65252265764104*^9, 3.652522663027795*^9}, {3.6548840029232283`*^9, 3.6548840635864573`*^9}, {3.65488457689469*^9, 3.654884586109651*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "6"}], ";", RowBox[{"nupper", "=", "18"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654883203028432*^9, 3.654883204333232*^9}, { 3.654883268624383*^9, 3.6548833353343973`*^9}, {3.654884214483427*^9, 3.654884222985828*^9}, {3.654884263131143*^9, 3.654884265782683*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[59]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Relations", " ", "to", " ", "the", " ", "Gould", " ", "Polynomials"}], ",", RowBox[{ RowBox[{ SubscriptBox["G", "n"], RowBox[{"(", RowBox[{ RowBox[{"x", ";", "a"}], ",", "b"}], ")"}]}], ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"The", " ", StyleBox["Gould", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["polynomials", FontSlant->"Italic"], " ", "are", " ", "defined", " ", "through", " ", "the", " ", "Pochhammer", " ", "symbol", " ", "to", " ", "be"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{" ", RowBox[{ RowBox[{ SubscriptBox["G", "n"], "(", RowBox[{ RowBox[{"x", ";", RowBox[{"-", "a"}]}], ",", RowBox[{"-", "b"}]}], ")"}], " ", "=", " ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", "\[Times]", " ", FormBox[ FractionBox[ RowBox[{"x", " ", TemplateBox[{FractionBox[ RowBox[{"x", "-", RowBox[{"a", " ", "n"}]}], "b"],"n"}, "Pochhammer"]}], RowBox[{"x", "-", RowBox[{"a", " ", "n"}]}]], TraditionalForm]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox["and", TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ TemplateBox[{RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"n", " ", "\[Beta]"}], "+", "\[Gamma]"}], "\[Alpha]"]}], RowBox[{"n", "-", "k"}]}, "Binomial"], " ", "\[Times]", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k"}], ")"}], "!"}]}], " ", "=", " ", RowBox[{ RowBox[{ SubscriptBox["G", RowBox[{"n", "-", "k"}]], "(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "\[Beta]"}], " ", "k"}], "-", "\[Gamma]"}], ";", "\[Beta]"}], ",", "\[Alpha]"}], ")"}], " ", "\[Times]", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Beta]", " ", "n"}], "+", "\[Gamma]"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"\[Beta]", " ", "k"}], "+", "\[Gamma]"}], ")"}]}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.653939401143751*^9, 3.65393942968637*^9}, { 3.654884746522242*^9, 3.654884747122859*^9}, {3.654884783723147*^9, 3.654884815183545*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], ",", "n"}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "a"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "g"}], "*", RowBox[{"GouldG", "[", RowBox[{"n", ",", "g", ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "a"}]}], "]"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"ProductSeqDiff", "\[Rule]", RowBox[{ RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "+", "g", "+", "a"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "a"}], ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "/", "a"}], ")"}]}], "*", RowBox[{"GouldG", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "g", ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "a"}]}], "]"}]}], "]"}], "]"}]}]}], ",", RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "+", "g", "+", "a"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"ProductSeqDiff", "\[Rule]", RowBox[{ RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", RowBox[{ RowBox[{"b", " ", RowBox[{"(", "n", ")"}]}], "+", "g"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "a"}], ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"g", "-", "a", "-", "b"}], ")"}]}], "/", "a"}], ")"}]}], "*", RowBox[{"GouldG", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"g", "-", "a", "-", "b"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "a"}]}], "]"}]}], "]"}], "]"}]}]}], ",", RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", RowBox[{ RowBox[{"b", " ", RowBox[{"(", "n", ")"}]}], "+", "g"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654883203028432*^9, 3.654883204333232*^9}, { 3.654883268624383*^9, 3.6548833353343973`*^9}, {3.654884214483427*^9, 3.654884222985828*^9}, {3.654884263131143*^9, 3.654884265782683*^9}, 3.654884899245104*^9, {3.6548849749271708`*^9, 3.6548850415047913`*^9}, { 3.654885087310418*^9, 3.6548850907345533`*^9}, 3.6548851470497303`*^9, { 3.65488517968302*^9, 3.654885190122435*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[153]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BinomGPDiff", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}]}], "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "k"}], "]"}]}], "]"}], "]"}], "-", "\n", " ", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"GouldG", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{ RowBox[{"-", "g"}], "-", RowBox[{"k", "*", "b"}]}], ",", "b", ",", "a"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"b", " ", "k"}], "+", "g"}], ")"}]}]}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654883203028432*^9, 3.654883204333232*^9}, { 3.654883268624383*^9, 3.6548833353343973`*^9}, {3.654884214483427*^9, 3.654884222985828*^9}, {3.654884263131143*^9, 3.654884265782683*^9}, 3.654884899245104*^9, {3.6548849749271708`*^9, 3.6548850415047913`*^9}, { 3.654885087310418*^9, 3.6548850907345533`*^9}, 3.6548851470497303`*^9, { 3.65488517968302*^9, 3.654885190122435*^9}, {3.654885244256837*^9, 3.654885294145803*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[159]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] The Generalized Coefficient \ Triangles from [MULTIFACTJIS] (2010):\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, {3.654789080671164*^9, 3.654789103395323*^9}, 3.654789157204028*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ FormBox[ RowBox[{ StyleBox[ RowBox[{ RowBox[{"Definition", " ", "of", " ", "the", " ", StyleBox[ RowBox[{"G", "eneralized"}]], StyleBox[ RowBox[{" ", " "}]], "\[Alpha]"}], "-", RowBox[{"Factorial", StyleBox[ RowBox[{" ", " "}]], "Function", " ", "Coefficient", " ", "Triangles"}]}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], RowBox[{ RowBox[{ StyleBox[ SubscriptBox[ RowBox[{"[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"], FontWeight->"Bold"], StyleBox[":", FontWeight->"Bold"], StyleBox["\[IndentingNewLine]", FontWeight->"Bold"], SubscriptBox[ RowBox[{"[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"]}], " ", ":=", " ", RowBox[{ SubscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "n"}], "+", "1", "-", RowBox[{"2", "\[Alpha]"}]}], ")"}], " ", "[", GridBox[{ { RowBox[{"n", "-", "1"}]}, {"k"} }], "]"}], "\[Alpha]"], " ", "+", " ", SubscriptBox[ RowBox[{"[", GridBox[{ { RowBox[{"n", "-", "1"}]}, { RowBox[{"k", "-", "1"}]} }], "]"}], "\[Alpha]"], " ", "+", " ", RowBox[{ TemplateBox[{RowBox[{"0", ",", "n"}]}, "KroneckerDeltaSeq"], " ", TemplateBox[{RowBox[{"0", ",", "k"}]}, "KroneckerDeltaSeq"]}]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "first", " ", "few", " ", "rows", " ", "of", " ", "the", " ", "generalized", " ", "triangle", " ", "for", " ", "a", " ", "fixed", " ", RowBox[{"\[Alpha]", ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.652944068632277*^9, 3.652944097862936*^9}, { 3.654885666225545*^9, 3.6548857356393013`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nkupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", "n", ",", "k"}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", "n", ",", "k"}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", "n", ",", "k"}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", "n", ",", "k"}], "]"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654885404849001*^9, 3.654885450945078*^9}, { 3.6548854824343433`*^9, 3.65488550200872*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[169]:="], Cell[BoxData[ FormBox[ RowBox[{ "Generating", " ", "functions", " ", "for", " ", "the", " ", "rows", " ", "of", " ", "the", " ", RowBox[{"triangle", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.652944136896056*^9, 3.6529441617713614`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"w", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"\[Alpha]", " ", "z"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"w", "+", "1"}], ")"}]}], "/", "\[Alpha]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}]}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"w", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654885587894143*^9, 3.654885588176282*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[171]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Exponential", " ", "generating", " ", "function", " ", "for", " ", "the", " ", "triangle", " ", "for", " ", "fixed", " ", "lower", " ", "indices", " ", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"FCFCoeffDiff", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"\[Alpha]", " ", "z"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "/", "\[Alpha]"}]}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Alpha]", " ", "z"}]}], ")"}]}], "]"}], ",", "k"}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], "/", RowBox[{"Power", "[", RowBox[{"\[Alpha]", ",", "k"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548856007604113`*^9, 3.654885614571292*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[175]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Compute", " ", "Tables", " ", "of", " ", "Special", " ", "Cases", " ", "of", " ", "the", " ", "Generalized", " ", "\[Alpha]"}], "-", RowBox[{"Factorial", " ", "Coefficient", " ", "Triangles"}]}], ",", RowBox[{ SubscriptBox[ RowBox[{"[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, { 3.654885777111705*^9, 3.65488578423702*^9}, {3.654885826872301*^9, 3.654885836917042*^9}, {3.654885868754197*^9, 3.6548858701508713`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "1"}], ";", RowBox[{"nkupper", "=", "10"}], ";"}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548858045449963`*^9, 3.654885814557192*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[177]:="], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "2"}], ";", RowBox[{"nkupper", "=", "10"}], ";"}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548858045449963`*^9, 3.654885814557192*^9}, { 3.654885845353321*^9, 3.654885845507059*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[179]:="], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "3"}], ";", RowBox[{"nkupper", "=", "10"}], ";"}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548858045449963`*^9, 3.654885814557192*^9}, { 3.6548858505063457`*^9, 3.6548858506921043`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[181]:="], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "4"}], ";", RowBox[{"nkupper", "=", "10"}], ";"}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548858045449963`*^9, 3.654885814557192*^9}, { 3.654885861465137*^9, 3.6548858617154016`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[183]:="], Cell[BoxData[{ FormBox[ RowBox[{ StyleBox[ RowBox[{ "Polynomial", " ", "expansions", " ", "identities", " ", "of", " ", RowBox[{"n", "!"}]}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], StyleBox[ RowBox[{"n", "!!"}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], RowBox[{ StyleBox["and", FontWeight->"Bold"], StyleBox[ FormBox[ SubscriptBox[ RowBox[{"n", "!"}], RowBox[{"(", "\[Alpha]", ")"}]], TraditionalForm], FontWeight->"Bold"], StyleBox["by", FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], StyleBox["the", FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], StyleBox["Generalized", FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], StyleBox["Stirling", FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], StyleBox[ StyleBox[ RowBox[{"nu", "mber"}]], FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], RowBox[{ StyleBox["triangles", FontWeight->"Bold"], StyleBox[":", FontWeight->"Bold"], StyleBox["\[IndentingNewLine]", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{"(", "1", ")"}], FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], "Expansions", " ", "of", " ", "the", " ", "Single", " ", "Factorial", " ", "Function"}]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{" ", RowBox[{ StyleBox[ RowBox[{"(", "2", ")"}], FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], StyleBox["Expansions", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Plain"], StyleBox["of", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Plain"], StyleBox["the", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Plain"], StyleBox["Double", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Plain"], StyleBox["Factorial", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Plain"], StyleBox["Functions", FontWeight->"Plain"]}], StyleBox[" ", FontWeight->"Plain"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ StyleBox[" ", FontWeight->"Plain"], RowBox[{ RowBox[{ RowBox[{ StyleBox[ RowBox[{"(", "3", ")"}], FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], "Expansions", " ", "of", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{"Factorial", " ", "Functions"}]}], ",", SubscriptBox[ RowBox[{"n", "!"}], RowBox[{"(", "\[Alpha]", ")"}]]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ StyleBox[" ", FontWeight->"Plain"], RowBox[{ RowBox[{ RowBox[{ StyleBox[ RowBox[{"(", "4", ")"}], FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], "Expansions", " ", "of", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{"Factorial", " ", "Functions"}]}], ",", SubscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "n"}], "-", "d"}], ")"}], "!"}], RowBox[{"(", "\[Alpha]", ")"}]]}]}], TraditionalForm]}], "DisplayFormula",\ PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.652941845296756*^9, 3.6529419577407827`*^9, 3.654886042592086*^9, { 3.654886834609469*^9, 3.654886963919574*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<`1`!\>\"", ",", " ", "n"}], "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886070729959*^9, 3.654887047009795*^9, 3.654887122635378*^9, {3.6548871887236013`*^9, 3.6548871890137663`*^9}, { 3.654887507756197*^9, 3.654887529553955*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[241]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<`1`!!\>\"", ",", " ", "n"}], "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"Factorial2", "[", "n", "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}], "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}], "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{"n", "/", "2"}], "]"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{"n", "/", "2"}], "]"}], "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<(2\[Times]`1`-1)!!\>\"", ",", " ", "n"}], "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"2", ",", "n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", RowBox[{"m", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<(2\[Times]`1`)!!\>\"", ",", " ", "n"}], "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"2", ",", RowBox[{"2", " ", "n"}]}], "]"}], ",", RowBox[{"Factorial2", "[", RowBox[{"2", "n"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", "*", RowBox[{"Fcf", "[", RowBox[{"2", ",", "n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], ",", RowBox[{"m", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886070729959*^9, 3.654887080399218*^9, { 3.654887160820693*^9, 3.65488716130984*^9}, {3.654887201304545*^9, 3.654887315459182*^9}, {3.654887355982155*^9, 3.654887390935791*^9}, 3.6548874757584476`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[233]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";", RowBox[{"alphaupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"afact", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"Alpha", "\[Rule]", "alpha"}], ",", RowBox[{"IndexN", "\[Rule]", "n"}], ",", RowBox[{"ParamD", "\[Rule]", "d"}], ",", RowBox[{ "ToString", "[", "\"\\"", "]"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\<(`1`)\!\(\*SubscriptBox[\(!\), \((`2`)\)]\)\>\"", ",", "n", ",", "alpha"}], "]"}], "]"}], ",", RowBox[{"FormulaDiffsMatch", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "alpha"}], "]"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "alpha"}], "]"}], "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", "n", ")"}], "/", "alpha"}], "]"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", "n", ")"}], "/", "alpha"}], "]"}], "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}], "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "alpha"}], "]"}], "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "alpha"}], "]"}], "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}], "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}], "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}], "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "6"}], "]"}]}]}], ",", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886070729959*^9, 3.654887573361383*^9, { 3.654887752896097*^9, 3.654888029766224*^9}, {3.654888064842329*^9, 3.6548881562562428`*^9}, {3.654888281381463*^9, 3.654888349368819*^9}, { 3.6548885544329023`*^9, 3.654888595864283*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[304]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"alphaupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nupper", "=", "8"}], ";", RowBox[{"alphaupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"afact", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"Alpha", "\[Rule]", "alpha"}], ",", RowBox[{"IndexN", "\[Rule]", "n"}], ",", RowBox[{"ParamD", "\[Rule]", "d"}], ",", RowBox[{ "ToString", "[", "\"\<(\[Alpha]n-d)\!\(\*SubscriptBox[\(!\), \((\[Alpha])\)]\)\>\"", "]"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\<(`1`\[Times]`2`-`3`)\!\(\*SubscriptBox[\(!\), \ \((`1`)\)]\)\>\"", ",", "a", ",", "n", ",", "d"}], "]"}], "]"}], ",", RowBox[{"FormulaDiffsMatch", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"alpha", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"alpha", " ", "n"}], "+", "1", "-", "d"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"alpha", "-", "d"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"alpha", " ", "n"}], "+", "1", "-", "d"}], ",", RowBox[{"m", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "n"}], "-", "d"}]}], "]"}], ",", "2"}], "]"}]}]}], ",", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "n"}], "-", "d"}]}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "0", ",", RowBox[{"alpha", "-", "1"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886070729959*^9, 3.65488770054473*^9, { 3.654888397009872*^9, 3.654888464081231*^9}, {3.654888494905867*^9, 3.654888533563257*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[299]:="], Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ RowBox[{ "Expansions", " ", "of", " ", "the", " ", "generalized", " ", "product", " ", "sequences"}], FontFamily->"Nimbus Sans L"], StyleBox[",", FontFamily->"Nimbus Sans L"], StyleBox[" ", FontFamily->"Nimbus Sans L"], RowBox[{ RowBox[{ SubscriptBox["p", "n"], "(", RowBox[{ RowBox[{"\[PlusMinus]", "\[Alpha]"}], ",", RowBox[{"s", "\[PlusMinus]", "1"}]}], ")"}], " ", "and", " ", RowBox[{ SubscriptBox["p", "n"], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}]}], ",", RowBox[{"by", " ", "the", " ", "coefficients"}], ",", RowBox[{ SubscriptBox[ RowBox[{"[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.652941845296756*^9, {3.6529419577407827`*^9, 3.652941971271652*^9}, { 3.6529420865612373`*^9, 3.652942092166699*^9}, {3.652942387011161*^9, 3.652942405355206*^9}, 3.6548860572127047`*^9, {3.654886112560856*^9, 3.654886135482278*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"ProductSeqFromulaDiff", "\[Rule]", RowBox[{ RowBox[{"pn", "[", RowBox[{"n", ",", "\[Alpha]", ",", RowBox[{"s", "+", "1"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], ",", RowBox[{"pn", "[", RowBox[{"n", ",", "\[Alpha]", ",", RowBox[{"s", "+", "1"}]}], "]"}], ",", RowBox[{"ProductSeqFromulaDiff", "\[Rule]", RowBox[{ RowBox[{"pn", "[", RowBox[{"n", ",", RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"s", "-", "1"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], ",", RowBox[{"pn", "[", RowBox[{"n", ",", RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"s", "-", "1"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"ProductSeqFromulaDiff", "\[Rule]", RowBox[{ RowBox[{"pn", "[", RowBox[{"n", ",", "\[Alpha]", ",", "R"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"\[Alpha]", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"R", "-", "1"}], ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], ",", RowBox[{"pn", "[", RowBox[{"n", ",", "\[Alpha]", ",", "R"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886072695381*^9, {3.654886149938438*^9, 3.65488632243666*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[201]:="], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ StyleBox[ RowBox[{"Definitions", " ", "of", " ", "the", " ", RowBox[{"(", "Generalized", ")"}], " ", "Stirling", " ", "Convolution", " ", "Polynomials"}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], StyleBox[ RowBox[{ FormBox[ RowBox[{ SubscriptBox["\[Sigma]", "n"], "(", "x", ")"}], TraditionalForm], "and", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"from", " ", "[", "MULTIFACTJIS", "]"}], " ", RowBox[{"(", "2010", ")"}]}], FontWeight->"Bold"], StyleBox[":", FontWeight->"Bold"], StyleBox["\[IndentingNewLine]", FontWeight->"Bold"], RowBox[{ SubscriptBox["\[Sigma]", "n"], "(", "x", ")"}]}], " ", ":=", RowBox[{ SubscriptBox[ RowBox[{"[", GridBox[{ {"x"}, { RowBox[{"x", "-", "n"}]} }], "]"}], "1"], " ", "\[Times]", " ", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "n", "-", "1"}], ")"}], "!"}], RowBox[{"x", "!"}]]}]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"and", " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], ":=", RowBox[{ RowBox[{ SubscriptBox[ RowBox[{"[", GridBox[{ {"x"}, { RowBox[{"x", "-", "n"}]} }], "]"}], "\[Alpha]"], " ", "\[Times]", " ", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "n", "-", "1"}], ")"}], "!"}], RowBox[{"x", "!"}]]}], "=", RowBox[{ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "z"}]], "\[Times]", " ", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox["\[Alpha]z\[ExponentialE]", "\[Alpha]z"], RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Alpha]z"], "-", "1"}]], ")"}], "x"]}], "}"}]}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.652941845296756*^9, {3.6529419577407827`*^9, 3.652941971271652*^9}, { 3.6529420865612373`*^9, 3.652942092166699*^9}, {3.652942387011161*^9, 3.652942405355206*^9}, 3.6548860572127047`*^9, 3.654886112560856*^9, { 3.6548863452427387`*^9, 3.6548863679263897`*^9}, 3.654886793206647*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{"ToExpression", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\\"", ",", "n"}], "]"}], "]"}], ",", "TeXForm"}], "]"}], "]"}], ",", "\n", " ", RowBox[{"Factor", "[", RowBox[{"StirlingPoly", "[", RowBox[{"n", ",", "x"}], "]"}], "]"}], ",", RowBox[{"FactorTerms", "[", RowBox[{"StirlingPoly", "[", RowBox[{"n", ",", "x"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "x", ",", "Factor"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "\[Alpha]", ",", "Factor"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886072695381*^9, {3.654886408409079*^9, 3.6548865013784857`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[211]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Known", " ", "Identities", " ", "and", " ", "EGFs", " ", "for", " ", "the", " ", "Binomial", " ", "Coefficients"}], ",", FormBox[ TemplateBox[{FractionBox[ RowBox[{"s", "-", "1"}], "\[Alpha]"],"k"}, "Binomial"], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "to", " ", "verify", " ", "the", " ", "generalized", " ", "coefficient", " ", "triangle", " ", "and", " ", "polynomial", " ", "sequence", " ", "expansions"}], ",", " ", RowBox[{ "and", " ", "then", " ", "the", " ", "generating", " ", "function", " ", "identities", " ", "stated", " ", "in", " ", "the", " ", RowBox[{"article", ":"}]}]}], FontWeight->"Plain"], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.652941845296756*^9, {3.6529419577407827`*^9, 3.652941971271652*^9}, { 3.6529420865612373`*^9, 3.652942092166699*^9}, {3.652942387011161*^9, 3.652942405355206*^9}, 3.6548860572127047`*^9, 3.654886112560856*^9, 3.654886562973794*^9, {3.6548866065902967`*^9, 3.6548866645837393`*^9}, { 3.6548890732212963`*^9, 3.654889079922578*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"gfcfs", "[", "n", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], "/", "a"}], ",", "n"}], "]"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"n", "+", "1", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"n", "-", "m"}]}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], "/", "a"}], ",", "n"}], "]"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"a", ",", "m", ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"s", "/", "a"}], ",", RowBox[{"n", "-", "m"}]}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"a", ",", "m"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"n", "-", "m"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], "/", "a"}], ",", "n"}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886072695381*^9, {3.654886676836725*^9, 3.6548866961393633`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[215]:="], Cell[BoxData[{ RowBox[{ RowBox[{"kupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"gfcfs", "[", "k", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], "/", "a"}], ",", "k"}], "]"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1", "+", "a"}], ")"}], "*", RowBox[{"z", "/", "a"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "z"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "z"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "z"}], "]"}], "-", "1"}], ")"}]}]}], ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "k"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], "/", "a"}], ",", "k"}], "]"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"-", "z"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1", "+", "a"}], ")"}], "*", RowBox[{"z", "/", "a"}]}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"w", " ", "z"}], "-", RowBox[{"Exp", "[", "z", "]"}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "k"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], "/", "a"}], ",", "k"}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654886072695381*^9, 3.6548867096923733`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[217]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Examples of the known \ J-fraction and S-fraction series:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, {3.654789106440621*^9, 3.654789178311714*^9}, {3.6547892469236526`*^9, 3.654789271153001*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Special \ Case Infinite Fraction Series Examples Cited in the Introduction:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654889289263483*^9, {3.654890872087674*^9, 3.654890906363714*^9}, {3.6548953443532133`*^9, 3.6548953562406*^9}, { 3.654898829603286*^9, 3.654898840423739*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ RowBox[{"The", " ", "Pochhammer", " ", "Symbol"}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], StyleBox[ RowBox[{"or", " ", "Rising", " ", "Factorial", " ", "Function"}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], StyleBox[ RowBox[{"J", "-", RowBox[{ "Fraction", " ", "expansions", " ", "by", " ", "the", " ", "series", " ", "defined", " ", "by", " ", "the", " ", "function"}]}], FontWeight->"Bold"], StyleBox[",", FontWeight->"Bold"], RowBox[{ StyleBox[ FormBox[ RowBox[{ SubscriptBox["R", "0"], "(", RowBox[{"x", ",", "z"}], ")"}], TraditionalForm], FontWeight->"Bold"], StyleBox[":", FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], "\[IndentingNewLine]", RowBox[{ "Compute", " ", "the", " ", "first", " ", "few", " ", "convergents"}]}], ",", RowBox[{ SubscriptBox["Conv", "h"], "(", RowBox[{"1", ",", RowBox[{"x", ";", "z"}]}], ")"}], ",", " ", RowBox[{ "and", " ", "the", " ", "corresponding", " ", "series", " ", "coefficients", " ", "modulo", " ", RowBox[{"h", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.653369695186056*^9, 3.65336970261871*^9}, {3.6548942320460787`*^9, 3.654894252477632*^9}, { 3.6548947955785627`*^9, 3.65489480130072*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"RisingFactJFracExampleCoeffFn", "=", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{"x", ",", "#1"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RisingFactJFracExampleAFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", "1", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "*", RowBox[{"(", RowBox[{"x", "+", "k", "-", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "2"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RisingFactJFracExampleBFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "0", ",", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", " ", "k"}], "-", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "1"}], "]"}]}]}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893923744204*^9, 3.6548939240363817`*^9}, {3.654894337296431*^9, 3.654894420124922*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[689]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "2"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"2", " ", "convh"}], "+", "4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "RisingFactJFracExampleCoeffFn", ",", "RisingFactJFracExampleAFn", ",", "RisingFactJFracExampleBFn", ",", "convh", ",", "zcfupper", ",", "PolynomialMod"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}, {3.654894430420649*^9, 3.654894465277713*^9}, {3.654894642214698*^9, 3.654894644823843*^9}, { 3.654894676371873*^9, 3.654894676533556*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[703]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "3"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"2", " ", "convh"}], "+", "4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "RisingFactJFracExampleCoeffFn", ",", "RisingFactJFracExampleAFn", ",", "RisingFactJFracExampleBFn", ",", "convh", ",", "zcfupper", ",", "PolynomialMod"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}, {3.654894430420649*^9, 3.654894465277713*^9}, {3.654894642214698*^9, 3.654894644823843*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[694]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "4"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"2", " ", "convh"}], "+", "4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "RisingFactJFracExampleCoeffFn", ",", "RisingFactJFracExampleAFn", ",", "RisingFactJFracExampleBFn", ",", "convh", ",", "zcfupper", ",", "PolynomialMod"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}, {3.654894430420649*^9, 3.654894465277713*^9}, {3.654894642214698*^9, 3.654894668859812*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[698]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "5"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"2", " ", "convh"}], "+", "4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "RisingFactJFracExampleCoeffFn", ",", "RisingFactJFracExampleAFn", ",", "RisingFactJFracExampleBFn", ",", "convh", ",", "zcfupper", ",", "PolynomialMod"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}, {3.654894430420649*^9, 3.654894465277713*^9}, {3.654894642214698*^9, 3.654894672188662*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[700]:="], Cell[BoxData[ FormBox[ RowBox[{ StyleBox[" ", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{ StyleBox["J", FontSlant->"Italic"], StyleBox["-", FontSlant->"Italic"], RowBox[{ StyleBox["Fraction", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["Example", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ StyleBox["I", FontSlant->"Italic"], StyleBox[":", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ RowBox[{"(", RowBox[{"Single", " ", "Factorial", " ", "Function"}], ")"}], ":"}]}]}]}], FontWeight->"Bold"], "\[IndentingNewLine]", RowBox[{ RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"1", ",", "h"}]], "(", "z", ")"}]}], StyleBox[" ", FontSize->14], StyleBox["\[RightTeeArrow]", FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{ RowBox[{ RowBox[{"n", "!"}], " ", "if", " ", "0"}], " ", "\[LessEqual]", " ", "n", " ", "\[LessEqual]", " ", RowBox[{"2", "h"}]}], FontSize->14]}], StyleBox[" ", FontSize->14], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"n", "!"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox["\[Congruent]", FontSize->14], StyleBox[" ", FontSize->14], RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"1", ",", "h"}]], "(", "z", ")"}], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"(", RowBox[{"mod", " ", "h"}], ")"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"\[ForAll]", " ", RowBox[{"n", " ", "\[GreaterEqual]", " ", "0"}]}], FontSize->14]}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.653249226530436*^9, 3.6532492298382893`*^9}, {3.653249281314492*^9, 3.6532492887993317`*^9}, { 3.6548938689985027`*^9, 3.65489387049413*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"JSFracExampleCoeffFn", "=", "Factorial"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleAFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", "1", ",", RowBox[{ RowBox[{"-", RowBox[{"Power", "[", RowBox[{ RowBox[{"k", "-", "1"}], ",", "2"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "2"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleBFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "0", ",", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"2", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "1"}], "]"}]}]}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893923744204*^9, 3.6548939240363817`*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[705]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "6"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"4", " ", "convh"}], "+", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "JSFracExampleCoeffFn", ",", "JSFracExampleAFn", ",", "JSFracExampleBFn", ",", "convh", ",", "zcfupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[708]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"J", StyleBox["-", FontSlant->"Italic"], RowBox[{ StyleBox["Fraction", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["Example", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ StyleBox["II", FontSlant->"Italic"], StyleBox[":", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ RowBox[{"(", RowBox[{"Shifted", " ", "Single", " ", "Factorial", " ", "Function"}], ")"}], ":"}]}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"2", ",", "h"}]], "(", "z", ")"}]}], StyleBox[" ", FontSize->14], StyleBox["\[RightTeeArrow]", FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}], " ", "if", " ", "0"}], " ", "\[LessEqual]", " ", "n", " ", "\[LessEqual]", " ", RowBox[{"2", "h"}]}], FontSize->14]}], StyleBox[" ", FontSize->14]}], TraditionalForm], "\n", FormBox[ RowBox[{ StyleBox[ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox["\[Congruent]", FontSize->14], StyleBox[" ", FontSize->14], RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"2", ",", "h"}]], "(", "z", ")"}], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"(", RowBox[{"mod", " ", "h"}], ")"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"\[ForAll]", " ", RowBox[{"n", " ", "\[GreaterEqual]", " ", "0"}]}], FontSize->14]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.653249269793315*^9, 3.65324930305732*^9}, {3.6548939628280697`*^9, 3.654893968374844*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"JSFracExampleCoeffFn", "=", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"#1", "+", "1"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleAFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", "1", ",", RowBox[{ RowBox[{"-", "k"}], "*", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "2"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleBFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "0", ",", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "1"}], "]"}]}]}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893923744204*^9, 3.6548939240363817`*^9}, 3.654894004972875*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[710]:="], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "6"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"4", " ", "convh"}], "+", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "JSFracExampleCoeffFn", ",", "JSFracExampleAFn", ",", "JSFracExampleBFn", ",", "convh", ",", "zcfupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[713]:="], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["z", "2"]}], ")"}]}]}], RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["z", "2"]}], ")"}]}], "-", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["z", "2"]}], ")"}]}]}], ")"}]}]}]]], "Print", CellChangeTimes->{3.654894007366932*^9, 3.65489472901189*^9}, CellLabel->"During evaluation of In[713]:="], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["z", "4"]}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["z", "4"]}], "+", SuperscriptBox["z", "6"]}]]], "Print", CellChangeTimes->{3.654894007366932*^9, 3.654894729025872*^9}, CellLabel->"During evaluation of In[713]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "+", SuperscriptBox["z", "2"], "+", RowBox[{"2", " ", SuperscriptBox["z", "4"]}], "+", RowBox[{"5", " ", SuperscriptBox["z", "6"]}], "+", RowBox[{"14", " ", SuperscriptBox["z", "8"]}], "+", RowBox[{"42", " ", SuperscriptBox["z", "10"]}], "+", RowBox[{"131", " ", SuperscriptBox["z", "12"]}], "+", RowBox[{"417", " ", SuperscriptBox["z", "14"]}], "+", RowBox[{"1341", " ", SuperscriptBox["z", "16"]}], "+", RowBox[{"4334", " ", SuperscriptBox["z", "18"]}], "+", RowBox[{"14041", " ", SuperscriptBox["z", "20"]}], "+", RowBox[{"45542", " ", SuperscriptBox["z", "22"]}], "+", RowBox[{"147798", " ", SuperscriptBox["z", "24"]}], "+", RowBox[{"479779", " ", SuperscriptBox["z", "26"]}], "+", RowBox[{"1557649", " ", SuperscriptBox["z", "28"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "z", "]"}], "30"], SeriesData[$CellContext`z, 0, {}, 0, 30, 1], Editable->False]}], SeriesData[$CellContext`z, 0, {1, 0, 1, 0, 2, 0, 5, 0, 14, 0, 42, 0, 131, 0, 417, 0, 1341, 0, 4334, 0, 14041, 0, 45542, 0, 147798, 0, 479779, 0, 1557649}, 0, 30, 1], Editable->False]], "Print", CellChangeTimes->{3.654894007366932*^9, 3.654894729027648*^9}, CellLabel->"During evaluation of In[713]:="], Cell[BoxData[ RowBox[{"1", "+", SuperscriptBox["z", "2"], "+", RowBox[{"2", " ", SuperscriptBox["z", "4"]}], "+", RowBox[{"5", " ", SuperscriptBox["z", "6"]}], "+", RowBox[{"14", " ", SuperscriptBox["z", "8"]}], "+", RowBox[{"42", " ", SuperscriptBox["z", "10"]}], "+", RowBox[{"132", " ", SuperscriptBox["z", "12"]}], "+", RowBox[{"429", " ", SuperscriptBox["z", "14"]}], "+", RowBox[{"1430", " ", SuperscriptBox["z", "16"]}], "+", RowBox[{"4862", " ", SuperscriptBox["z", "18"]}], "+", RowBox[{"16796", " ", SuperscriptBox["z", "20"]}], "+", RowBox[{"58786", " ", SuperscriptBox["z", "22"]}], "+", RowBox[{"208012", " ", SuperscriptBox["z", "24"]}], "+", RowBox[{"742900", " ", SuperscriptBox["z", "26"]}], "+", RowBox[{"2674440", " ", SuperscriptBox["z", "28"]}]}]], "Print", CellChangeTimes->{3.654894007366932*^9, 3.6548947290292177`*^9}, CellLabel->"During evaluation of In[713]:="], Cell[BoxData[ RowBox[{"z", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"5", " ", "z"}], "+", RowBox[{"24", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"118", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"720", " ", SuperscriptBox["z", "4"]}], "+", RowBox[{"5035", " ", SuperscriptBox["z", "5"]}], "+", RowBox[{"40320", " ", SuperscriptBox["z", "6"]}], "+", RowBox[{"362866", " ", SuperscriptBox["z", "7"]}], "+", RowBox[{"3628800", " ", SuperscriptBox["z", "8"]}], "+", RowBox[{"39916758", " ", SuperscriptBox["z", "9"]}], "+", RowBox[{"479001600", " ", SuperscriptBox["z", "10"]}], "+", RowBox[{"6227020669", " ", SuperscriptBox["z", "11"]}], "+", RowBox[{"87178291200", " ", SuperscriptBox["z", "12"]}], "+", RowBox[{"1307674367583", " ", SuperscriptBox["z", "13"]}], "+", RowBox[{"20922789888000", " ", SuperscriptBox["z", "14"]}], "+", RowBox[{"355687428094659", " ", SuperscriptBox["z", "15"]}], "+", RowBox[{"6402373705728000", " ", SuperscriptBox["z", "16"]}], "+", RowBox[{"121645100408827666", " ", SuperscriptBox["z", "17"]}], "+", RowBox[{"2432902008176640000", " ", SuperscriptBox["z", "18"]}], "+", RowBox[{"51090942171709425959", " ", SuperscriptBox["z", "19"]}], "+", RowBox[{"1124000727777607680000", " ", SuperscriptBox["z", "20"]}], "+", RowBox[{"25852016738884976594458", " ", SuperscriptBox["z", "21"]}], "+", RowBox[{"620448401733239439360000", " ", SuperscriptBox["z", "22"]}], "+", RowBox[{"15511210043330985983852202", " ", SuperscriptBox["z", "23"]}], "+", RowBox[{"403291461126605635584000000", " ", SuperscriptBox["z", "24"]}], "+", RowBox[{"10888869450418352160767520221", " ", SuperscriptBox["z", "25"]}], "+", RowBox[{"304888344611713860501504000000", " ", SuperscriptBox["z", "26"]}], "+", RowBox[{"8841761993739701954543614442351", " ", SuperscriptBox["z", "27"]}], "+", RowBox[{"265252859812191058636308480000000", " ", SuperscriptBox["z", "28"]}]}], ")"}]}]], "Print", CellChangeTimes->{3.654894007366932*^9, 3.6548947290306673`*^9}, CellLabel->"During evaluation of In[713]:="], Cell[BoxData[ InterpretationBox[ RowBox[{ StyleBox["1", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[0, 1, 0], Background->RGBColor[0.88, 1, 0.88]], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", "z"}], "+", RowBox[{ StyleBox["1", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "2"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "3"]}], "+", RowBox[{ StyleBox["2", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "4"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "5"]}], "+", RowBox[{ StyleBox["5", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "6"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "7"]}], "+", RowBox[{ StyleBox["14", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "8"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "9"]}], "+", RowBox[{ StyleBox["42", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "10"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "11"]}], "+", RowBox[{ StyleBox["131", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "12"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "13"]}], "+", RowBox[{ StyleBox["417", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "14"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "15"]}], "+", RowBox[{ StyleBox["1341", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "16"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "17"]}], "+", RowBox[{ StyleBox["4334", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "18"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "19"]}], "+", RowBox[{ StyleBox["14041", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "20"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "21"]}], "+", RowBox[{ StyleBox["45542", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "22"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "23"]}], "+", RowBox[{ StyleBox["147798", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "24"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "25"]}], "+", RowBox[{ StyleBox["479779", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "26"]}], "+", RowBox[{ StyleBox["0", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "27"]}], "+", RowBox[{ StyleBox["1557649", StripOnInput->False, FontWeight->Bold, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 0.85, 0.85]], " ", SuperscriptBox["z", "28"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "z", "]"}], "30"], SeriesData[$CellContext`z, 0, {}, 0, 30, 1], Editable->False]}], SeriesData[$CellContext`z, 0, { Style[ 1, Bold, FontColor -> RGBColor[0, 1, 0], Background -> RGBColor[0.88, 1, 0.88]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 1, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 2, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 5, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 14, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 42, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 131, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 417, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 1341, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 4334, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 14041, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 45542, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 147798, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 479779, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 0, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]], Style[ 1557649, Bold, FontColor -> RGBColor[1, 0, 0], Background -> RGBColor[1, 0.85, 0.85]]}, 0, 30, 1], Editable->False]], "Print", CellChangeTimes->{3.654894007366932*^9, 3.654894729033902*^9}, CellLabel->"During evaluation of In[713]:="], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Index", "\[Rule]", "1"}], "2", "0"}, { RowBox[{"Index", "\[Rule]", "2"}], "0", "1"}, { RowBox[{"Index", "\[Rule]", "3"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "4"}], "0", "2"}, { RowBox[{"Index", "\[Rule]", "5"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "6"}], "0", RowBox[{"-", "1"}]}, { RowBox[{"Index", "\[Rule]", "7"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "8"}], "0", "2"}, { RowBox[{"Index", "\[Rule]", "9"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "10"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "11"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "12"}], "0", RowBox[{"-", "1"}]}, { RowBox[{"Index", "\[Rule]", "13"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "14"}], "0", "3"}, { RowBox[{"Index", "\[Rule]", "15"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "16"}], "0", "3"}, { RowBox[{"Index", "\[Rule]", "17"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "18"}], "0", "2"}, { RowBox[{"Index", "\[Rule]", "19"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "20"}], "0", "1"}, { RowBox[{"Index", "\[Rule]", "21"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "22"}], "0", "2"}, { RowBox[{"Index", "\[Rule]", "23"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "24"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "25"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "26"}], "0", "1"}, { RowBox[{"Index", "\[Rule]", "27"}], "0", "0"}, { RowBox[{"Index", "\[Rule]", "28"}], "0", "1"}, { RowBox[{"Index", "\[Rule]", "29"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Print", CellChangeTimes->{3.654894007366932*^9, 3.6548947290359793`*^9}, CellLabel->"During evaluation of In[713]:="] }, Open ]] }, Closed]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"S", StyleBox["-", FontSlant->"Italic"], RowBox[{ StyleBox["Fraction", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["Example", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ StyleBox["I", FontSlant->"Italic"], StyleBox[":", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ RowBox[{"(", RowBox[{"Double", " ", "Factorial", " ", "Function"}], ")"}], ":"}]}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", RowBox[{"2", "n"}]], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"3", ",", "h"}]], "(", "z", ")"}]}], StyleBox[" ", FontSize->14], StyleBox["\[RightTeeArrow]", FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ")"}], "!!"}], " ", "if", " ", "0"}], " ", "\[LessEqual]", " ", RowBox[{"2", "n"}], " ", "\[LessEqual]", " ", RowBox[{"2", "h"}]}], FontSize->14]}], StyleBox[" ", FontSize->14]}], TraditionalForm], "\n", FormBox[ RowBox[{ StyleBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ")"}], "!!"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox["\[Congruent]", FontSize->14], StyleBox[" ", FontSize->14], RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", RowBox[{"2", "n"}]], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"3", ",", "h"}]], "(", "z", ")"}], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"(", RowBox[{"mod", " ", "h"}], ")"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"\[ForAll]", " ", RowBox[{"n", " ", "\[GreaterEqual]", " ", "0"}]}], FontSize->14]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.653249363671224*^9, 3.653249371663315*^9}, {3.65489415784*^9, 3.6548941591527367`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"JSFracExampleCoeffFn", "=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "#1", "]"}], ",", RowBox[{"Factorial2", "[", RowBox[{"#1", "-", "1"}], "]"}], ",", "0"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleAFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", "1", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "2"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleBFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "1", ",", "1"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893923744204*^9, 3.6548939240363817`*^9}, 3.654894004972875*^9, { 3.6548941148532333`*^9, 3.654894138440963*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[715]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "6"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"4", " ", "convh"}], "+", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "JSFracExampleCoeffFn", ",", "JSFracExampleAFn", ",", "JSFracExampleBFn", ",", "convh", ",", "zcfupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[718]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"S", StyleBox["-", FontSlant->"Italic"], RowBox[{ StyleBox["Fraction", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["Example", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ StyleBox["II", FontSlant->"Italic"], StyleBox[":", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], RowBox[{ RowBox[{"(", RowBox[{ "Catalan", " ", "Numbers", " ", "and", " ", "Central", " ", "Binomial", " ", "Coefficient", " ", "Sequences"}], ")"}], ":"}]}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", RowBox[{"2", "n"}]], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"4", ",", "h"}]], "(", "z", ")"}]}], StyleBox[" ", FontSize->14], StyleBox["\[RightTeeArrow]", FontSize->14], StyleBox[" ", FontSize->14], RowBox[{ RowBox[{ FormBox[ TemplateBox[{"n"}, "CatalanNumber"], TraditionalForm], StyleBox[" ", FontSize->14], StyleBox["if", FontSize->14], StyleBox[" ", FontSize->14], StyleBox["0", FontSize->14]}], StyleBox[" ", FontSize->14], StyleBox["\[LessEqual]", FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"2", "n"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox["\[LessEqual]", FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"2", "h"}], FontSize->14]}]}], StyleBox[" ", FontSize->14]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ FormBox[ TemplateBox[{"n"}, "CatalanNumber"], TraditionalForm], StyleBox[" ", FontSize->14], StyleBox["\[Congruent]", FontSize->14], StyleBox[" ", FontSize->14], RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", RowBox[{"2", "n"}]], "]"}], TraditionalForm], RowBox[{ SubscriptBox["F", RowBox[{"4", ",", "h"}]], "(", "z", ")"}], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"(", RowBox[{"mod", " ", "h"}], ")"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"\[ForAll]", " ", RowBox[{"n", " ", "\[GreaterEqual]", " ", "0"}]}], FontSize->14]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.6532494653181343`*^9, 3.6532494795022087`*^9}, {3.654894069443203*^9, 3.654894081031413*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"JSFracExampleCoeffFn", "=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "#1", "]"}], ",", RowBox[{"CatalanNumber", "[", RowBox[{"#1", "/", "2"}], "]"}], ",", "0"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleAFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", "1", ",", RowBox[{"-", RowBox[{"Power", "[", RowBox[{"z", ",", "2"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JSFracExampleBFn", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "1", ",", "1"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893923744204*^9, 3.6548939240363817`*^9}, 3.654894004972875*^9, 3.6548941148532333`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[720]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "6"}], ";", RowBox[{"zcfupper", "=", RowBox[{ RowBox[{"4", " ", "convh"}], "+", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"getGenJSFracSeriesExample", "[", RowBox[{ "JSFracExampleCoeffFn", ",", "JSFracExampleAFn", ",", "JSFracExampleBFn", ",", "convh", ",", "zcfupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548936798736353`*^9, 3.654893717838069*^9}, { 3.654893926779175*^9, 3.6548939277755613`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[723]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Application from the Concluding Remarks", FontVariations->{"Underline"->True}], ":\n S-fraction generating functions Involving the central binomial \ coefficients and the Catalan numbers:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654889289263483*^9, {3.654890872087674*^9, 3.654890906363714*^9}, {3.6548909507128563`*^9, 3.654890968381052*^9}, { 3.6548910350174637`*^9, 3.654891084082789*^9}, 3.654894785777009*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{"S", "-", RowBox[{ "fraction", " ", "series", " ", "approximations", " ", "to", " ", "the", " ", "Catalan", " ", "number", " ", "OGF", " ", "and", " ", "S"}], "-", RowBox[{ "fraction", " ", "series", " ", "approximations", " ", "to", " ", "the", " ", "central", " ", "binomial", " ", "coefficient", " ", RowBox[{"OGF", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532742782000217`*^9, 3.653274320575376*^9}, {3.654891201526166*^9, 3.65489121448258*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"CatalanNumberSFracAFnParam", "[", RowBox[{"k_", ",", "z_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", "1", ",", RowBox[{ RowBox[{"-", "1"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "1"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CatalanNumberSFracBFnParam", "[", RowBox[{"k_", ",", "z_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "0", ",", "1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CatalanNumberSFractionGF", "[", RowBox[{"h_", ",", "z_"}], "]"}], ":=", RowBox[{"ContinuedFractionK", "[", RowBox[{ RowBox[{"CatalanNumberSFracAFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"CatalanNumberSFracBFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomDerivGF", "[", RowBox[{"Cz_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", "z", ")"}], "*", RowBox[{"D", "[", RowBox[{"Cz", ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "+", "Cz"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomSFractionGF", "[", RowBox[{"h_", ",", "z_"}], "]"}], ":=", RowBox[{"CentralBinomDerivGF", "[", RowBox[{ RowBox[{"ContinuedFractionK", "[", RowBox[{ RowBox[{"CatalanNumberSFracAFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"CatalanNumberSFracBFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "h"}], "}"}]}], "]"}], ",", "z"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654891100904477*^9, 3.654891149688957*^9}, { 3.6548912921615047`*^9, 3.654891327797724*^9}, {3.654892631396858*^9, 3.654892632248783*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[515]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"hupper", ",", "hlower", ",", "hdiff"}], "}"}], "=", RowBox[{"{", RowBox[{"8", ",", "3", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getSFracSeriesDataMapFn", "[", RowBox[{"h_", ",", "sFracInput_", ",", "expectedCoeffFn_"}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#1", "[", "sFracInput", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Factor", ",", RowBox[{ RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"getMarkedSeriesData", "[", RowBox[{ RowBox[{"Series", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"h", "+", "2"}]}], "}"}]}], "]"}], ",", "expectedCoeffFn"}], "]"}], "&"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{"CF", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"CatalanNumberSFracOGFData", "[", "h", "]"}], ",", "\[IndentingNewLine]", RowBox[{"getSFracSeriesDataMapFn", "[", RowBox[{"h", ",", RowBox[{"CatalanNumberSFractionGF", "[", RowBox[{"h", ",", "z"}], "]"}], ",", "CatalanNumber"}], "]"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"CentralBinomialSFracOGFData", "[", "h", "]"}], ",", "\[IndentingNewLine]", RowBox[{"getSFracSeriesDataMapFn", "[", RowBox[{"h", ",", RowBox[{"CentralBinomSFractionGF", "[", RowBox[{"h", ",", "z"}], "]"}], ",", "CentralBinomial"}], "]"}]}], "}"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "hlower", ",", "hupper", ",", "hdiff"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886072695381*^9, 3.65489123702188*^9, { 3.654891347911995*^9, 3.654891498356935*^9}, {3.654891530871625*^9, 3.6548916638314342`*^9}, {3.6548917106243753`*^9, 3.654891778611394*^9}, { 3.654891815840624*^9, 3.654891900683854*^9}, {3.654891931410161*^9, 3.654891955039167*^9}, {3.654892010334619*^9, 3.654892055869341*^9}, { 3.6548920948223257`*^9, 3.65489214241696*^9}, {3.654892215437002*^9, 3.6548923564262543`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[512]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Footnote", FontVariations->{"Underline"->True}], ": Regularized OGF Sums and Laplace-Borel Transformation Integrals: " }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654889289263483*^9, {3.654890872087674*^9, 3.654890906363714*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{"Examples", " ", "of", " ", "Borel"}], "-", RowBox[{ "Regularized", " ", "Sums", " ", "for", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{"Factorial", " ", "Function", " ", RowBox[{"OGFs", ":"}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{"n", "!"}], " ", SuperscriptBox["z", "n"]}]}], HoldForm], TraditionalForm], " ", "\[RightTeeArrow]", FormBox[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "z"}]], " ", TemplateBox[{"0",RowBox[{"-", FractionBox["1", "z"]}]}, "Gamma2"]}], "z"]}], TraditionalForm]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}], " ", SuperscriptBox["z", "n"]}]}], HoldForm], TraditionalForm], " ", "\[RightTeeArrow]", FormBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "z"}]], " ", TemplateBox[{RowBox[{"-", "1"}],RowBox[{"-", FractionBox["1", "z"]}]}, "Gamma2"]}], SuperscriptBox["z", "2"]], TraditionalForm]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], ")"}], "!!"}], " ", SuperscriptBox["z", "n"]}]}], HoldForm], TraditionalForm], " ", "\[RightTeeArrow]", FormBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", RowBox[{"2", " ", "z"}]]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox["1", "z"]}], ")"}], RowBox[{"3", "/", "2"}]], " ", TemplateBox[{RowBox[{"-", FractionBox["1", "2"]}],RowBox[{"-", FractionBox["1", RowBox[{"2", " ", "z"}]]}]}, "Gamma2"]}], RowBox[{"2", " ", SqrtBox["2"]}]], TraditionalForm]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ "The", " ", "particular", " ", "cited", " ", "special", " ", "cases", " ", RowBox[{"(", RowBox[{ StyleBox["Mathematica", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], "is", " ", "able", " ", "to", " ", "generate", " ", "these", " ", "regularized", " ", "sums", " ", "automatically"}], ")"}]}], ":"}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652540820260325*^9, 3.652540918966227*^9}, {3.654888827703511*^9, 3.6548888467580976`*^9}, { 3.6548888898154297`*^9, 3.6548889809383497`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"n", "!"}], " ", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Regularization", "\[Rule]", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}], " ", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Regularization", "\[Rule]", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "n", "]"}], " ", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity", ",", "2"}], "}"}], ",", RowBox[{"Regularization", "\[Rule]", "\"\\""}]}], "]"}]}], "Input",\ CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654886072695381*^9, 3.654888876491914*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[306]:="], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{ "Verify", " ", "several", " ", "known", " ", "cases", " ", "of", " ", "exponenial", " ", "generating", " ", "function", " ", RowBox[{"(", StyleBox["EGF", FontSlant->"Italic"], ")"}], " ", "identities", " ", "for", " ", "the", " ", "generalized", " ", "product", " ", "sequences"}], ",", RowBox[{ FormBox[ RowBox[{ SubscriptBox["p", "n"], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm], " ", "/", RowBox[{"n", "!"}]}]}], FontWeight->"Bold"], StyleBox["\[IndentingNewLine]", FontWeight->"Bold"], RowBox[{ RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], TraditionalForm], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], FractionBox[ RowBox[{"a", " ", "s"}], "b"]]}], " ", "=", TagBox[ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], RowBox[{"n", "!"}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", "b"], ")"}], "n"], " ", "\[Times]", RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{"a", " ", "s"}], "-", RowBox[{"b", " ", "j"}]}], ")"}]}]}]}], HoldForm]}]}], " ", ")"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], TraditionalForm], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"b", " ", "z"}]}], ")"}], FractionBox[ RowBox[{"a", " ", "s"}], "b"]]}], "=", TagBox[ RowBox[{ TagBox[ RowBox[{ FractionBox["1", RowBox[{"n", "!"}]], "\[Times]", RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{"a", " ", "s"}], "-", RowBox[{"b", " ", "j"}]}], ")"}]}]}]}], HoldForm], " ", ")"}], HoldForm]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox["p", "n"], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", "=", " ", RowBox[{ RowBox[{"n", "!"}], " ", "\[Times]", " ", FormBox[ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], TraditionalForm], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Alpha]", " ", "z"}]}], ")"}], RowBox[{ RowBox[{"-", "R"}], "/", "\[Alpha]"}]]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652540820260325*^9, 3.652540918966227*^9}, {3.65488948438513*^9, 3.6548894980044737`*^9}, { 3.654889680103087*^9, 3.654889681355083*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"EGFCoeffDiff", "\[Rule]", RowBox[{ RowBox[{"FS", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", RowBox[{"a", " ", RowBox[{"s", "/", "b"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "b"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "s"}], "-", RowBox[{"b", " ", "j"}]}], ")"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}]}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "b"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "s"}], "-", RowBox[{"b", " ", "j"}]}], ")"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"EGFCoeffDiff", "\[Rule]", RowBox[{ RowBox[{"FS", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"z", "*", "b"}]}], ",", RowBox[{"a", " ", RowBox[{"s", "/", "b"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "s"}], "-", RowBox[{"b", " ", "j"}]}], ")"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}]}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "s"}], "-", RowBox[{"b", " ", "j"}]}], ")"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"EGFCoeffDiff", "\[Rule]", RowBox[{ RowBox[{"FS", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"a", "*", "z"}]}], ",", RowBox[{ RowBox[{"-", "R"}], "/", "a"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", "R"}], "]"}]}], "]"}]}]}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", "R"}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654889558849132*^9, 3.654889633579463*^9}, { 3.654889665165052*^9, 3.65488972384182*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[315]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"Compute", " ", "the", " ", "regularized", " ", "sum", " ", RowBox[{"integrals", ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"exp", "(", RowBox[{"-", "t"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "z", " ", "a"}]}], ")"}], RowBox[{"-", FractionBox["R", "a"]}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], " ", "\[RightTeeArrow]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", RowBox[{"a", " ", "z"}]]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ")"}], RowBox[{"-", FractionBox["R", "a"]}]], " ", TemplateBox[{RowBox[{"1", "-", FractionBox["R", "a"]}],RowBox[{"-", FractionBox["1", RowBox[{"a", " ", "z"}]]}]}, "Gamma2"], " ", RowBox[{"(", RowBox[{ RowBox[{"if", " ", "a"}], " ", ">", " ", "0"}], ")"}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"exp", "(", RowBox[{"-", "t"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "z", " ", "a"}]}], ")"}], RowBox[{"-", FractionBox["R", "a"]}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], " ", "\[RightTeeArrow]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", RowBox[{"a", " ", "z"}]]}]], " ", TemplateBox[{FractionBox["R", "a"],RowBox[{"-", FractionBox["1", RowBox[{"a", " ", "z"}]]}]}, "ExpIntegralE"]}], RowBox[{"a", " ", "z"}]]}], " ", RowBox[{"(", RowBox[{ RowBox[{"if", " ", "a"}], " ", "<", " ", "0"}], ")"}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652540820260325*^9, 3.652540918966227*^9}, 3.652541130258107*^9, {3.652541168719178*^9, 3.6525414329947*^9}, {3.6525415774306383`*^9, 3.652541634400958*^9}, { 3.654889751904728*^9, 3.654889764241165*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"zcfupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "z", "*", "a"}]}], ")"}], ",", RowBox[{ RowBox[{"-", "R"}], "/", "a"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"a", ">", "0"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Series", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "zcfupper"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"%%", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654889812307681*^9, 3.6548898139362383`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[317]:="], Cell[BoxData[{ RowBox[{ RowBox[{"zcfupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "z", "*", "a"}]}], ")"}], ",", RowBox[{ RowBox[{"-", "R"}], "/", "a"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"a", "<", "0"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Series", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "zcfupper"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"%%", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.65488982392976*^9, 3.65488983225574*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[321]:="], Cell[BoxData[{ RowBox[{ RowBox[{"zcfupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", RowBox[{"a", " ", "z"}]]}]], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ FractionBox["R", "a"], ",", RowBox[{"-", FractionBox["1", RowBox[{"a", " ", "z"}]]}]}], "]"}]}], RowBox[{"a", " ", "z"}]]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "zcfupper"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Series", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", RowBox[{"a", " ", "z"}]]], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"-", FractionBox["R", "a"]}], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}]}], RowBox[{ RowBox[{"-", "a"}], " ", "z"}]], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "zcfupper"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654889845548058*^9, 3.6548898458002768`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[325]:="], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ "Verify", " ", "several", " ", "more", " ", "cases", " ", "of", " ", "these", " ", "regularized", " ", "OGF", " ", RowBox[{"sums", ":"}]}], FontWeight->"Bold"], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652540820260325*^9, 3.652540918966227*^9}, {3.65488948438513*^9, 3.6548894980044737`*^9}, { 3.654889680103087*^9, 3.654889681355083*^9}, 3.654890515399405*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"printHeaderFn", "=", RowBox[{ RowBox[{"PrintNBText", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{ "\"\<[ ========== : (\[Alpha],R) := (`1`, `2`) : ==========]\>\"", ",", "#1", ",", "#2"}], "]"}], ",", "Green", ",", "LightGreen", ",", RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getGenReguarizedOGF", "[", RowBox[{"aval_", ",", "rval_", ",", RowBox[{"scfupper_:", "10"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "bogfz", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"printHeaderFn", "[", RowBox[{"aval", ",", "rval"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"bogfz", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"r", "/", "a"}]}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "aval"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"r", "\[Rule]", "rval"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Regularization", "\[Rule]", "\"\\""}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "bogfz", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{"bogfz", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "scfupper"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"Arg", "[", "z", "]"}], "/", RowBox[{"(", RowBox[{"2", " ", "Pi"}], ")"}]}], "]"}], "\[Equal]", "0"}]}]}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", RowBox[{ RowBox[{"aval", " ", "n"}], "-", "rval"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654890559329872*^9, 3.6548905871527042`*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[363]:="], Cell[BoxData[{ RowBox[{ RowBox[{"scfupper", "=", "10"}], ";", RowBox[{"avrvPairs", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getGenReguarizedOGFBatchFn", "=", RowBox[{ RowBox[{"getGenReguarizedOGF", "[", RowBox[{"#1", ",", "#2", ",", "scfupper"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"getGenReguarizedOGFBatchFn", "@@", RowBox[{"(", "#1", ")"}]}], "&"}], ",", "avrvPairs"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654890564328218*^9, 3.6548905646051598`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[365]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Definitions of the generalized \ convergent functions:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, {3.654789106440621*^9, 3.654789178311714*^9}, {3.6547892749462976`*^9, 3.6547892987440767`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "Special", " ", "cases", " ", "of", " ", "the", " ", "generalized", " ", "convergent", " ", RowBox[{"functions", ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "The", " ", "generalized", " ", "product", " ", "sequence", " ", "convergent", " ", "function", " ", RowBox[{"expansions", " ", ":", " "}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652944698283924*^9, 3.652944733363367*^9}, {3.6529447810750637`*^9, 3.652944813066558*^9}, { 3.652945576296739*^9, 3.652945618951334*^9}, {3.6529458580578117`*^9, 3.652945869515362*^9}, {3.654897231638953*^9, 3.6548972364232264`*^9}, { 3.65489784889391*^9, 3.654897863578665*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"ConvFnH", "\[Rule]", "h"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654895391079838*^9, 3.654895391336031*^9}, { 3.654897179057929*^9, 3.654897228135778*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[947]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ "Particular", " ", "Special", " ", "Cases", " ", "of", " ", "the", " ", "Convergent", " ", "Functions", " ", "generating", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{"factorial", " ", "functions", " ", "when", " ", "\[Alpha]"}]}], ":=", "1"}], ",", "2", ",", RowBox[{"3", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652944698283924*^9, 3.652944733363367*^9}, {3.6529447810750637`*^9, 3.652944813066558*^9}, { 3.652945576296739*^9, 3.652945618951334*^9}, {3.6529458580578117`*^9, 3.652945869515362*^9}, {3.652945905033366*^9, 3.6529459297773848`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getConvFnData", "[", RowBox[{"h_", ",", "convFnParamsList_"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AlphaParam", "\[Rule]", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"RParam", "\[Rule]", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "z"}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "z"}], "]"}], "]"}]}], "}"}], "&"}], ",", "convFnParamsList"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"CF", "[", RowBox[{"getConvFnData", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{"CF", "[", RowBox[{"getConvFnData", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{"CF", "[", RowBox[{"getConvFnData", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "}"}]}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654896895964871*^9, 3.65489689629918*^9}, { 3.654896964477434*^9, 3.654897014020042*^9}, {3.6548977782214108`*^9, 3.654897785618043*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[900]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Series", " ", "Expansions", " ", "of", " ", "the", " ", "Generalized", " ", "Convergent", " ", "Functions"}], ",", RowBox[{ FormBox[ RowBox[{ SubscriptBox["Conv", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{"R", ";", "z"}]}], ")"}], TraditionalForm], ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "Approximate", " ", "series", " ", "generating", " ", "the", " ", "generalized", " ", RowBox[{"products", ":", " "}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652944698283924*^9, 3.652944733363367*^9}, {3.6529447810750637`*^9, 3.652944813066558*^9}, { 3.652945380062175*^9, 3.652945392497806*^9}, {3.654895075530325*^9, 3.654895076083476*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"scfupper", ",", "convhlower", ",", "convhupper"}], "}"}], "=", RowBox[{"{", RowBox[{"12", ",", "2", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"getMarkedSeriesData", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"pn", "[", RowBox[{"#1", ",", "a", ",", "R"}], "]"}], "&"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "convhlower", ",", "convhupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654895391079838*^9, 3.654895391336031*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[785]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Convergent", " ", "function", " ", "series", " ", "enumerating", " ", "special", " ", "cases", " ", "of", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{"factorial", " ", RowBox[{"functions", ":", " "}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652944698283924*^9, 3.652944733363367*^9}, {3.6529447810750637`*^9, 3.652944813066558*^9}, { 3.652945395682578*^9, 3.652945415274377*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"localPrintHeaderFn", "[", RowBox[{"alpha_", ",", "r_", ",", "phSymbFrac_"}], "]"}], ":=", RowBox[{"PrintNBText", "[", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\<[\[Alpha] = `1`, r = `2`, (`3`)_n]\>\"", ",", "alpha", ",", "r", ",", RowBox[{"InputForm", "[", "phSymbFrac", "]"}]}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getSpecialCaseAlphaFacfFnConvFnData", "[", RowBox[{"h_", ",", "alpha_", ",", "rval_", ",", "phSymbolFraction_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "phSymbolConvSeries", ",", "alphaFactFnConvSeries", ",", "expectedSeriesSum", ",", "expectedSeriesSumV2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"phSymbolConvSeries", "=", RowBox[{"Series", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"hval", ",", "alpha", ",", "phSymbolFraction", ",", " ", RowBox[{"alpha", " ", "z"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"alphaFactFnConvSeries", "=", RowBox[{"Series", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"hval", ",", "alpha", ",", "rval", ",", " ", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"expectedSeriesSum", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "n"}], "-", "rval"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"expectedSeriesSumV2", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"alpha", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"phSymbolFraction", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"localPrintHeaderFn", "[", RowBox[{"alpha", ",", "rval", ",", "phSymbolFraction"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"Print", ",", RowBox[{"{", RowBox[{ "phSymbolConvSeries", ",", "alphaFactFnConvSeries", ",", "expectedSeriesSum", ",", "expectedSeriesSumV2"}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548954540043077`*^9, 3.654896196851109*^9}, { 3.654896234878406*^9, 3.654896432598925*^9}, {3.654896482784834*^9, 3.654896543915936*^9}, {3.654896579652294*^9, 3.654896653381537*^9}, { 3.654896690809371*^9, 3.6548967293820753`*^9}, {3.654896768784553*^9, 3.6548967734264812`*^9}, {3.654896836841202*^9, 3.654896901190752*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[912]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{"PrintNBNewline", "[", "\"\<\[Alpha] = 1\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"hval", ",", "1", ",", "1", ",", " ", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "hval"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "hval"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"hval", ",", "1", ",", "2", ",", " ", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "hval"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "+", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "hval"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.6548968694638023`*^9, 3.654896876541465*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[928]:="], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "6"}], ";", RowBox[{"spCaseConvFnSeriesParams", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", RowBox[{"2", "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", RowBox[{"1", "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"getSpecialCaseAlphaFacfFnConvFnData", "@@", RowBox[{"Prepend", "[", RowBox[{"#1", ",", "convh"}], "]"}]}], "&"}], ",", "spCaseConvFnSeriesParams"}], "]"}], ";"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654896895964871*^9, 3.65489689629918*^9}, { 3.654896964477434*^9, 3.654897014020042*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[934]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "The", " ", "first", " ", "several", " ", "cases", " ", "of", " ", "the", " ", "convergent", " ", "numerator", " ", "functions"}], ",", RowBox[{ FormBox[ RowBox[{ SubscriptBox["FP", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{"R", ";", "z"}]}], ")"}], TraditionalForm], ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "Tables", " ", "of", " ", "the", " ", "numerator", " ", "functions", " ", "gathered", " ", "by", " ", "powers", " ", "of", " ", RowBox[{"z", ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652944698283924*^9, 3.652944733363367*^9}, {3.6529447810750637`*^9, 3.652944813066558*^9}, { 3.652945576296739*^9, 3.65294563130379*^9}, {3.654897924820903*^9, 3.6548979254138927`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654897962291252*^9, 3.654897977746025*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[997]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "The", " ", "first", " ", "several", " ", "cases", " ", "of", " ", "the", " ", "convergent", " ", "denominator", " ", "functions"}], ",", RowBox[{ FormBox[ RowBox[{ SubscriptBox["FQ", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{"R", ";", "z"}]}], ")"}], TraditionalForm], ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "Tables", " ", "of", " ", "the", " ", "denominator", " ", "functions", " ", "gathered", " ", "by", " ", "powers", " ", "of", " ", RowBox[{"z", ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652944698283924*^9, 3.652944733363367*^9}, {3.6529447810750637`*^9, 3.652944813066558*^9}, { 3.652945576296739*^9, 3.652945618951334*^9}, {3.654898005861088*^9, 3.654898006430298*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654897962291252*^9, 3.654897977746025*^9}, { 3.654898027435391*^9, 3.654898027746429*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[999]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Verify", " ", "the", " ", "noted", " ", "expansions", " ", "of", " ", "the", " ", "sequence", " ", "by", " ", "the", " ", "special", " ", "functions", " ", "before", " ", "we", " ", "prove", " ", "these", " ", "results", " ", "in", " ", "Section", " ", "5"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652539082595731*^9, 3.6525391012163887`*^9}, { 3.652539132838298*^9, 3.652539158738002*^9}, {3.652944698283924*^9, 3.652944733363367*^9}, {3.6529447810750637`*^9, 3.652944813066558*^9}, { 3.652945576296739*^9, 3.652945618951334*^9}, {3.652945656057797*^9, 3.652945694134973*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"FQ", "[", " ", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"a", " ", "z"}], ",", "h"}], "]"}], "*", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"-", "h"}], ",", RowBox[{"R", "/", "a"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}]}], "]"}]}]}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"FQ", "[", " ", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", "h"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", "h"}], "]"}], "*", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"-", "h"}], ",", RowBox[{"R", "/", "a"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}]}], "]"}]}]}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"FQ", "[", " ", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", "h"}], "]"}], "*", RowBox[{"Factorial", "[", "h", "]"}], "*", RowBox[{"LaguerreL", "[", RowBox[{"h", ",", RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}]}], "]"}]}]}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654897962291252*^9, {3.65489807037068*^9, 3.654898078134244*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1003]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section]2: Examples of the new results in the article:", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, {3.654789442546795*^9, 3.6547894525972767`*^9}, {3.654898305556079*^9, 3.6548983070315533`*^9}, 3.6549604492730494`*^9, {3.655238959635777*^9, 3.655238963652072*^9}, { 3.655244279059229*^9, 3.655244286580594*^9}, 3.655261518091134*^9}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Sequence generating function \ examples:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789569236762*^9, 3.6547895780729437`*^9}, {3.655244281607689*^9, 3.655244292352398*^9}, {3.655244557232503*^9, 3.655244557381542*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Verify \ the first few examples of the arithmetic progression sequences cited in the \ introduction:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.655244062616728*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"CheckSeqExample", "[", RowBox[{"seqText_", ",", "a_", ",", "d1_", ",", "m1_", ",", "d2_", ",", RowBox[{"nupper_:", "6"}]}], "]"}], ":=", RowBox[{"{", RowBox[{"seqText", ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"m1", " ", RowBox[{"AlphaFact", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "n"}], "+", "d1"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"m1", "*", RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "n"}], "+", "d1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "a"}], ",", RowBox[{ RowBox[{"a", " ", "n"}], "+", "d1"}], ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"d2", "/", "a"}], ",", "n"}], "]"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"d2", "/", "a"}], ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "a", ",", "d2", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FormatCheckSeqExamples", "[", "exData_", "]"}], ":=", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"exData", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "Center", ",", "Center", ",", "Left", ",", "Left", ",", "Center", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "False", ",", "False", ",", "True", ",", "False", ",", "False", ",", "True"}], "}"}], "}"}]}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.65524437881959*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"exData", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"CheckSeqExample", "[", RowBox[{ "\"\\"", ",", "1", ",", "0", ",", "1", ",", "1", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{ "\"\\"", ",", "2", ",", "0", ",", "1", ",", "2", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{"\"\\"", ",", "2", ",", RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{ "\"\\"", ",", "3", ",", "0", ",", "1", ",", "3", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{"\"\\"", ",", "3", ",", RowBox[{"-", "1"}], ",", "1", ",", "2", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{"\"\\"", ",", "3", ",", RowBox[{"-", "2"}], ",", "1", ",", "1", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{ "\"\\"", ",", "4", ",", "0", ",", "1", ",", "4", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{ "\"\\"", ",", "4", ",", "1", ",", "1", ",", "5", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{"\"\\"", ",", "4", ",", "2", ",", RowBox[{"1", "/", "2"}], ",", "6", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExample", "[", RowBox[{"\"\\"", ",", "4", ",", "3", ",", RowBox[{"1", "/", "3"}], ",", "7", ",", "nupper"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"exData", " ", "//", " ", "FormatCheckSeqExamples"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655244386047324*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Verify \ the next few examples of the \[Alpha]-factorial function sequences cited in \ the introduction:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, 3.655244087356724*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"CheckSeqExampleV2", "[", RowBox[{"seqText_", ",", "a_", ",", "cfOffset_", ",", RowBox[{"nupper_:", "6"}]}], "]"}], ":=", RowBox[{"{", RowBox[{"seqText", ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"AlphaFact", "[", RowBox[{"a", ",", "n"}], "]"}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "a"}], ",", " ", "n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "cfOffset"}], ")"}], "/", "a"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FormatCheckSeqExamplesV2", "[", "exData_", "]"}], ":=", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"exData", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Center", ",", "Center", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "False", ",", "False", ",", "True"}], "}"}], "}"}]}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655244400742881*^9, 3.655260577434023*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[903]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "15"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"exData", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"CheckSeqExampleV2", "[", RowBox[{"\"\\"", ",", "2", ",", "1", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExampleV2", "[", RowBox[{"\"\\"", ",", "3", ",", "2", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExampleV2", "[", RowBox[{"\"\\"", ",", "4", ",", "3", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExampleV2", "[", RowBox[{"\"\\"", ",", "5", ",", "4", ",", "nupper"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CheckSeqExampleV2", "[", RowBox[{"\"\\"", ",", "6", ",", "5", ",", "nupper"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"exData", " ", "//", " ", "FormatCheckSeqExamplesV2"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655244403933816*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[905]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Verify \ special cases of the last convergent-based generating function identities for \ the \[Alpha]-factorial functions, ", Cell[BoxData[ SubscriptBox[ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1", "-", "\[Alpha]"}], ")"}], "!"}], RowBox[{"(", "\[Alpha]", ")"}]]], "Input", CellChangeTimes->{{3.652518759072456*^9, 3.6525188419934597`*^9}}, EmphasizeSyntaxErrors->True], " and ", Cell[BoxData[ SubscriptBox[ RowBox[{"n", "!"}], RowBox[{"(", "\[Alpha]", ")"}]]], "Input", CellChangeTimes->{{3.652518759072456*^9, 3.6525188419934597`*^9}}, EmphasizeSyntaxErrors->True], ":" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, {3.655244099952466*^9, 3.655244105502117*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "5"}], ";", RowBox[{"nupper", "=", "18"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"terms", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{"n", "+", "1", "-", "alpha"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "+", "1", "-", "alpha"}], "\[GreaterEqual]", "1"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"z", "^", RowBox[{"(", "alpha", ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1", "-", "alpha"}], ",", RowBox[{"-", "alpha"}], ",", RowBox[{"n", "+", "1", "-", "alpha"}], ",", RowBox[{"z", "^", RowBox[{"(", "alpha", ")"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552444128223753`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "5"}], ";", RowBox[{"nupper", "=", "18"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"terms", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"z", "^", RowBox[{"(", "alpha", ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "alpha"}], ",", "n", ",", RowBox[{"z", "^", RowBox[{"(", "alpha", ")"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "+", "alpha", "-", "1"}]}], "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655244416557993*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", "Generating function identities enumerating the binomial-coefficient-related \ sequences of ", Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"4", " ", "n"}], ")"}], "!"}], RowBox[{ RowBox[{"(", RowBox[{"2", " ", "n"}], ")"}], "!"}]]], "Output", CellChangeTimes->{3.653255820217429*^9}], "and ", Cell[BoxData[ FormBox[ TemplateBox[{RowBox[{"4", " ", "n"}],RowBox[{"2", " ", "n"}]}, "Binomial"], TraditionalForm]], "Output", CellChangeTimes->{3.653255840307872*^9}], ":" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, 3.6552441178468857`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], " ", "//", " ", "Factor"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{"%", "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], " ", "//", " ", "Factor"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655244425642763*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"3", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", "n"}], "-", "3"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", "n"}], "-", "1"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"4", "*", RowBox[{"z", "/", "x1"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "3"}], ",", RowBox[{"4", RowBox[{"z", "/", "x1"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "1"}], ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655244439484428*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"4", "n"}], ",", RowBox[{"2", "n"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"3", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"2", "n"}], "]"}]}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"4", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"Cosh", "[", SqrtBox["x1"], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "3"}], ",", RowBox[{"4", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "1"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"Cosh", "[", SqrtBox["x1"], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655244443029896*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Examples of new congruences for \ the \[Alpha]-factorial functions:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.6547896507146673`*^9, 3.6547896901658688`*^9}, 3.6552442990035543`*^9, { 3.655246969671081*^9, 3.6552469698120747`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the \[Alpha]-factorial functions modulo 2:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, 3.6552445382340307`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"Compute", " ", "the", " ", "generalized", " ", RowBox[{"(", RowBox[{"modulo", " ", "2"}], ")"}], " ", "results"}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"Compute", " ", "the", " ", "right"}], "-", "hand", "-", RowBox[{ "side", " ", "congruences", " ", "directly", " ", "from", " ", "the", " ", "generalized", " ", "convergent", " ", "function"}]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["Conv", "2"], "(", RowBox[{ RowBox[{"\[PlusMinus]", "\[Alpha]"}], ",", RowBox[{"R", ";", "z"}]}], ")"}], ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653256960689838*^9, 3.653256967804407*^9}, {3.653257041425804*^9, 3.653257095555008*^9}, {3.655245601268608*^9, 3.655245627106114*^9}, { 3.6552456705689898`*^9, 3.655245720639481*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hval", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convFn", "=", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"hval", ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"scfFn", "=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"convFn", ",", " ", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "scfFn", ")"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"(", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}], ")"}]}], ")"}]}], "]"}], " ", "//", " ", "TeXForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655245747090082*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"hval", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convFn", "=", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"hval", ",", RowBox[{"-", "a"}], ",", " ", "R", ",", " ", "z"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"scfFn", "=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"convFn", ",", " ", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "scfFn", ")"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"(", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}], ")"}]}], ")"}]}], "]"}], " ", "//", " ", "TeXForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552457513676443`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Compute", " ", "the", " ", "right"}], "-", "hand", "-", RowBox[{ "side", " ", "congruences", " ", "directly", " ", "from", " ", "the", " ", "generalized", " ", "convergent", " ", "function"}]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["Conv", "2"], "(", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"n", ";", "z"}]}], ")"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653256960689838*^9, 3.653256967804407*^9}, {3.653257041425804*^9, 3.653257095555008*^9}, {3.653257141355448*^9, 3.6532571444980783`*^9}, { 3.6552457172394047`*^9, 3.655245723156365*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hval", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"convFn", "=", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"hval", ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scfFn", "=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"convFn", ",", " ", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}], " ", "//", " ", "FS"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"scfFn2", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"scfFn", "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"-", "a"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "scfFn2", ")"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"(", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}], ")"}]}], ")"}]}], "]"}], " ", "//", " ", "TeXForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655245759497609*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[171]:="], Cell[BoxData[ FormBox[ RowBox[{ "Tables", " ", "of", " ", "the", " ", "generalized", " ", "result", " ", RowBox[{"(", RowBox[{"modulo", " ", "2"}], ")"}], " ", "for", " ", "several", " ", "specific", " ", "choices", " ", "of", " ", RowBox[{"\[Alpha]", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653256960689838*^9, 3.653256967804407*^9}, {3.653257041425804*^9, 3.653257095555008*^9}, {3.653257141355448*^9, 3.6532571444980783`*^9}, { 3.6552457172394047`*^9, 3.655245723156365*^9}, 3.655245800348094*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"amin", ",", "amax"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sfn", "=", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}]], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"IndexAlpha", "\[Rule]", "alpha"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "sfn", ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "alpha"}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "amin", ",", "amax"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920371849656*^9, {3.655245835847383*^9, 3.655245905645607*^9}}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[188]:="], Cell[BoxData[{ RowBox[{ RowBox[{"aval", "=", "1"}], ";", RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"safn", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}]], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "aval"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"FnMod", "\[Rule]", "2"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", "2"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"2", "*", "\[Alpha]"}], "]"}], "\[Rule]", RowBox[{"2", "*", "aval"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"2", "*", "aval"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"2", "*", "aval"}]}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", "aval", ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", "aval"}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"Power", "[", RowBox[{"\[Alpha]", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"aval", "^", "2"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"aval", "^", "2"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"aval", "^", "2"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"aval", "+", "1"}], ",", " ", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655246608053691*^9, 3.655246610090662*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[252]:="], Cell[BoxData[{ RowBox[{ RowBox[{"aval", "=", "2"}], ";", RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"safn", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}]], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "aval"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"FnMod", "\[Rule]", "2"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", "2"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"2", "*", "\[Alpha]"}], "]"}], "\[Rule]", RowBox[{"2", "*", "aval"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"2", "*", "aval"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"2", "*", "aval"}]}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", "aval", ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", "aval"}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"Power", "[", RowBox[{"\[Alpha]", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"aval", "^", "2"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"aval", "^", "2"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"aval", "^", "2"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"aval", "+", "1"}], ",", " ", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655246608053691*^9, 3.655246610090662*^9}, {3.655246641231145*^9, 3.6552466414027853`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[255]:="], Cell[BoxData[{ RowBox[{ RowBox[{"aval", "=", "3"}], ";", RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"safn", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}]], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "aval"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"FnMod", "\[Rule]", "2"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", "2"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"2", "*", "\[Alpha]"}], "]"}], "\[Rule]", RowBox[{"2", "*", "aval"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"2", "*", "aval"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"2", "*", "aval"}]}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", "aval", ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", "aval"}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"Power", "[", RowBox[{"\[Alpha]", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"aval", "^", "2"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"aval", "^", "2"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"aval", "^", "2"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"aval", "+", "1"}], ",", " ", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655246608053691*^9, 3.655246610090662*^9}, {3.655246647656433*^9, 3.655246647833633*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[252]:="], Cell[BoxData[{ RowBox[{ RowBox[{"aval", "=", "4"}], ";", RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"safn", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}]], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "aval"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"FnMod", "\[Rule]", "2"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", "2"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"2", "*", "\[Alpha]"}], "]"}], "\[Rule]", RowBox[{"2", "*", "aval"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"2", "*", "aval"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"2", "*", "aval"}]}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", "aval", ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", "aval"}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"Power", "[", RowBox[{"\[Alpha]", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"aval", "^", "2"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"aval", "^", "2"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"aval", "^", "2"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"aval", "+", "1"}], ",", " ", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655246608053691*^9, 3.655246610090662*^9}, {3.655246650008987*^9, 3.655246650473466*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[252]:="], Cell[BoxData[{ RowBox[{ RowBox[{"aval", "=", "5"}], ";", RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"safn", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}]], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "aval"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"FnMod", "\[Rule]", "2"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", "2"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"2", "*", "\[Alpha]"}], "]"}], "\[Rule]", RowBox[{"2", "*", "aval"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"2", "*", "aval"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"2", "*", "aval"}]}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", "aval", ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", "aval"}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"Power", "[", RowBox[{"\[Alpha]", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"aval", "^", "2"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"aval", "^", "2"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"aval", "^", "2"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"aval", "+", "1"}], ",", " ", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655246608053691*^9, 3.655246610090662*^9}, {3.655246656148341*^9, 3.655246656275289*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[252]:="], Cell[BoxData[{ RowBox[{ RowBox[{"aval", "=", "6"}], ";", RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"safn", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]], "+", "R"}], ")"}], "n"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}]}]]}]], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "a"}], "]"}], "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "aval"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"FnMod", "\[Rule]", "2"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", "2"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"2", "*", "\[Alpha]"}], "]"}], "\[Rule]", RowBox[{"2", "*", "aval"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"2", "*", "aval"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"2", "*", "aval"}]}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", "aval", ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", "aval"}], "]"}]}], "}"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Alpha", "[", "\[Alpha]", "]"}], "\[Rule]", "aval"}], ",", RowBox[{ RowBox[{"FnMod", "[", RowBox[{"Power", "[", RowBox[{"\[Alpha]", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"aval", "^", "2"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"aval", ",", " ", "n"}], "]"}], ",", " ", RowBox[{"aval", "^", "2"}], ",", " ", "0"}], "]"}], ",", " ", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FS", "[", "safn", "]"}], ",", " ", RowBox[{"aval", "^", "2"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"aval", "+", "1"}], ",", " ", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655246608053691*^9, 3.655246610090662*^9}, {3.655246658646677*^9, 3.655246658888791*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[252]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the \[Alpha]-factorial functions modulo 3:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, 3.655244608530673*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"hval", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{"convFn", "=", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"hval", ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"convFn", ",", " ", RowBox[{"{", RowBox[{"z", ",", " ", "0", ",", " ", "n"}], "}"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}], " ", "//", " ", "Simplify"}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "%", ")"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"Root", "[", RowBox[{"reqn_", ",", " ", "ri_"}], "]"}], "\[Rule]", RowBox[{"r", "[", "ri", "]"}]}], ")"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655246769867679*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[258]:="], Cell[BoxData[{ RowBox[{ RowBox[{"rootExpr", "=", RowBox[{"FS", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "R"}], "-", RowBox[{"6", " ", RowBox[{"r", "[", "1", "]"}]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "1", "]"}]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"r", "[", "1", "]"}], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "3", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "R"}], "-", RowBox[{"6", " ", RowBox[{"r", "[", "3", "]"}]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"r", "[", "3", "]"}], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "2", "]"}]}], "+", RowBox[{"r", "[", "3", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "R"}], "-", RowBox[{"6", " ", RowBox[{"r", "[", "2", "]"}]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "2", "]"}]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"r", "[", "2", "]"}], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "[", "2", "]"}], "-", RowBox[{"r", "[", "1", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "2", "]"}], "-", RowBox[{"r", "[", "3", "]"}]}], ")"}]}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"(", "rootExpr", ")"}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"-", "a"}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", "%%", ")"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "ri_", "]"}], "\[Rule]", RowBox[{"HoldForm", "[", RowBox[{"rootri", "[", RowBox[{"ri", ",", "a", ",", "R"}], "]"}], "]"}]}], ")"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655246774295095*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[262]:="], Cell[BoxData[{ RowBox[{ RowBox[{"rootri", "[", RowBox[{"i_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["a", "2"], " ", "R"}], "-", RowBox[{"3", " ", "a", " ", SuperscriptBox["R", "2"]}], "-", SuperscriptBox["R", "3"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"9", " ", "a", " ", "R"}], "+", RowBox[{"3", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", "#1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "a"}], "-", RowBox[{"3", " ", "R"}]}], ")"}], " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], ")"}], "&"}], ",", "i"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R3", "[", RowBox[{"a_", ",", "n_", ",", "R_"}], "]"}], ":=", RowBox[{"ReleaseHold", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "R"}], "-", RowBox[{"6", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "R"}], "-", RowBox[{"6", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "R"}], "-", RowBox[{"6", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}]]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655246783650262*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[265]:="], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "8"}], ";", RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"afact", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "3", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"R3", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "+", "alpha"}], ")"}], "/", "alpha"}], "]"}], ",", "n"}], "]"}], "]"}], ",", "3", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"3", " ", "alpha"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"R3", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "+", "alpha"}], ")"}], "/", "alpha"}], "]"}], ",", "n"}], "]"}], "]"}], ",", RowBox[{"3", "alpha"}], ",", "0"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655246787173602*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[267]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the \[Alpha]-factorial functions modulo 4:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, {3.6552446095459967`*^9, 3.655244611370541*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"hval", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{"convFn", "=", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"hval", ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"convFn", ",", " ", RowBox[{"{", RowBox[{"z", ",", " ", "0", ",", " ", "n"}], "}"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}], " ", "//", " ", "Simplify"}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "%", ")"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"Root", "[", RowBox[{"reqn_", ",", " ", "ri_"}], "]"}], "\[Rule]", RowBox[{"r", "[", "ri", "]"}]}], ")"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655246895428307*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"rootExpr", "=", RowBox[{"FS", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", RowBox[{"r", "[", "1", "]"}]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", RowBox[{"r", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "1", "]"}]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "1", "]"}]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ RowBox[{"r", "[", "1", "]"}], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "4", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", RowBox[{"r", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", RowBox[{"r", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "2", "]"}]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "2", "]"}]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ RowBox[{"r", "[", "2", "]"}], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "2", "]"}], "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "2", "]"}], "-", RowBox[{"r", "[", "4", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", RowBox[{"r", "[", "3", "]"}]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", RowBox[{"r", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "3", "]"}]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ RowBox[{"r", "[", "3", "]"}], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "2", "]"}]}], "+", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "3", "]"}], "-", RowBox[{"r", "[", "4", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", RowBox[{"r", "[", "4", "]"}]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", RowBox[{"r", "[", "4", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "4", "]"}]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "4", "]"}]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ RowBox[{"r", "[", "4", "]"}], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "2", "]"}]}], "+", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "3", "]"}]}], "+", RowBox[{"r", "[", "4", "]"}]}], ")"}]}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"(", "rootExpr", ")"}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"-", "a"}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", "%%", ")"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "ri_", "]"}], "\[Rule]", RowBox[{"HoldForm", "[", RowBox[{"rootri", "[", RowBox[{"ri", ",", "a", ",", "R"}], "]"}], "]"}]}], ")"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552468904904833`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"rootri", "[", RowBox[{"i_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["a", "3"], " ", "R"}], "+", RowBox[{"11", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", "a", " ", SuperscriptBox["R", "3"]}], "+", SuperscriptBox["R", "4"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"44", " ", SuperscriptBox["a", "2"], " ", "R"}], "-", RowBox[{"24", " ", "a", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", "#1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"36", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"30", " ", "a", " ", "R"}], "+", RowBox[{"6", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", "a"}], "-", RowBox[{"4", " ", "R"}]}], ")"}], " ", SuperscriptBox["#1", "3"]}], "+", SuperscriptBox["#1", "4"]}], ")"}], "&"}], ",", "i"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R4", "[", RowBox[{"a_", ",", "n_", ",", "R_"}], "]"}], ":=", RowBox[{"ReleaseHold", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"18", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"R", "-", RowBox[{"2", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "R"}], "-", RowBox[{"12", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "3"]}], ")"}], " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm], "n"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}]]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655246884125005*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "8"}], ";", RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"afact", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "4", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"R4", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "+", "alpha"}], ")"}], "/", "alpha"}], "]"}], ",", "n"}], "]"}], "]"}], ",", "4", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"4", " ", "alpha"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"R4", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "+", "alpha"}], ")"}], "/", "alpha"}], "]"}], ",", "n"}], "]"}], "]"}], ",", RowBox[{"4", " ", "alpha"}], ",", "0"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655246879624007*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the \[Alpha]-factorial functions modulo 5:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, {3.65524461300066*^9, 3.655244632223556*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"hval", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{"convFn", "=", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"hval", ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"convFn", ",", " ", RowBox[{"{", RowBox[{"z", ",", " ", "0", ",", " ", "n"}], "}"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}], " ", "//", " ", "Simplify"}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "%", ")"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"Root", "[", RowBox[{"reqn_", ",", " ", "ri_"}], "]"}], "\[Rule]", RowBox[{"r", "[", "ri", "]"}]}], ")"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655246937436805*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"rootExpr", "=", RowBox[{"FS", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "1", "]"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "1", "]"}]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "1", "]"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "1", "]"}]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "1", "]"}]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "1", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "1", "]"}], "-", RowBox[{"r", "[", "5", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "2", "]"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "2", "]"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "2", "]"}]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "2", "]"}]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", RowBox[{"r", "[", "2", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "2", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "2", "]"}], "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "2", "]"}], "-", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "2", "]"}], "-", RowBox[{"r", "[", "5", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "3", "]"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "3", "]"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "3", "]"}]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", RowBox[{"r", "[", "3", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "3", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "2", "]"}]}], "+", RowBox[{"r", "[", "3", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "3", "]"}], "-", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "3", "]"}], "-", RowBox[{"r", "[", "5", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "4", "]"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "4", "]"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "4", "]"}]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "4", "]"}]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", RowBox[{"r", "[", "4", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "4", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "2", "]"}]}], "+", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "3", "]"}]}], "+", RowBox[{"r", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "4", "]"}], "-", RowBox[{"r", "[", "5", "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "5", "]"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "5", "]"}]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "5", "]"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "5", "]"}]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", RowBox[{"r", "[", "5", "]"}]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", RowBox[{"r", "[", "5", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "5", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "1", "]"}]}], "+", RowBox[{"r", "[", "5", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "2", "]"}]}], "+", RowBox[{"r", "[", "5", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "3", "]"}]}], "+", RowBox[{"r", "[", "5", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"r", "[", "4", "]"}]}], "+", RowBox[{"r", "[", "5", "]"}]}], ")"}]}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"(", "rootExpr", ")"}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", "n"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"-", "a"}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", "%%", ")"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "ri_", "]"}], "\[Rule]", RowBox[{"HoldForm", "[", RowBox[{"rootri", "[", RowBox[{"ri", ",", "a", ",", "R"}], "]"}], "]"}]}], ")"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552469467265053`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"rootri", "[", RowBox[{"i_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox["a", "4"], " ", "R"}], "-", RowBox[{"50", " ", SuperscriptBox["a", "3"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"35", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"10", " ", "a", " ", SuperscriptBox["R", "4"]}], "-", SuperscriptBox["R", "5"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"250", " ", SuperscriptBox["a", "3"], " ", "R"}], "+", RowBox[{"175", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"50", " ", "a", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"5", " ", SuperscriptBox["R", "4"]}]}], ")"}], " ", "#1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "240"}], " ", SuperscriptBox["a", "3"]}], "-", RowBox[{"260", " ", SuperscriptBox["a", "2"], " ", "R"}], "-", RowBox[{"90", " ", "a", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"10", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"70", " ", "a", " ", "R"}], "+", RowBox[{"10", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "20"}], " ", "a"}], "-", RowBox[{"5", " ", "R"}]}], ")"}], " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], ")"}], "&"}], ",", "i"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R5", "[", RowBox[{"a_", ",", "n_", ",", "R_"}], "]"}], ":=", RowBox[{"ReleaseHold", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", RowBox[{"60", " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", RowBox[{"60", " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", RowBox[{"60", " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm], "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", RowBox[{"60", " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm], "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm], "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"120", " ", SuperscriptBox["a", "4"]}], "+", RowBox[{"48", " ", SuperscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "-", RowBox[{"5", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "R"}], "-", RowBox[{"20", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"23", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"79", " ", "R", " ", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", RowBox[{"60", " ", SuperscriptBox[ TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm], "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"1", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"2", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"3", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", TagBox[ RowBox[{"rootri", "[", RowBox[{"4", ",", "a", ",", "R"}], "]"}], HoldForm]}], "+", TagBox[ RowBox[{"rootri", "[", RowBox[{"5", ",", "a", ",", "R"}], "]"}], HoldForm]}], ")"}]}], ")"}]}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655246954786992*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "8"}], ";", RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"afact", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "5", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"R5", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "+", "alpha"}], ")"}], "/", "alpha"}], "]"}], ",", "n"}], "]"}], "]"}], ",", "5", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"5", " ", "alpha"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"R5", "[", RowBox[{ RowBox[{"-", "alpha"}], ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "+", "alpha"}], ")"}], "/", "alpha"}], "]"}], ",", "n"}], "]"}], "]"}], ",", RowBox[{"5", " ", "alpha"}], ",", "0"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655246931080048*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Examples of the new congruences \ for the Stirling numbers modulo 2: \ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.6547896966550303`*^9, 3.654789710138956*^9}, {3.654790247621573*^9, 3.654790248127049*^9}, 3.655244300194251*^9, 3.655245432038595*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Examples", " ", "of", " ", "the", " ", "new", " ", "Stirling", " ", "number", " ", "Congruences", " ", "expanded", " ", "by", " ", "the", " ", "binomial", " ", "coefficients", " ", "modulo", " ", "2"}], ":", "\[IndentingNewLine]", RowBox[{ RowBox[{"[", GridBox[{ {"n"}, {"m"} }], "]"}], " ", "\[Congruent]", " ", TagBox[ FormBox[ TagBox[ TemplateBox[{TemplateBox[{ FractionBox["n", "2"]}, "Floor"],RowBox[{"m", "-", TemplateBox[{ FractionBox["n", "2"]}, "Ceiling"]}]}, "Binomial"], HoldForm], TraditionalForm], TraditionalForm, Editable->True]}]}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"[", SuperscriptBox["x", "m"], "]"}], RowBox[{"x", "(", RowBox[{"x", "+", "1"}], ")"}]}], " ", "..."}], " ", RowBox[{"(", RowBox[{"x", "+", "n", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"mod", " ", "2"}], ")"}]}], " ", "=", " ", RowBox[{ RowBox[{"[", SuperscriptBox["x", "m"], "]"}], RowBox[{"(", " ", TagBox[ RowBox[{ SuperscriptBox["x", TemplateBox[{FractionBox["n", "2"]}, "Ceiling"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], TemplateBox[{FractionBox["n", "2"]}, "Floor"]]}], HoldForm], ")"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65325852289855*^9, 3.653258545880082*^9}, {3.6552449303396997`*^9, 3.655245054357683*^9}, {3.655245123781245*^9, 3.6552451738292313`*^9}, { 3.6552453127327003`*^9, 3.6552453135090733`*^9}, {3.655245346360334*^9, 3.6552453601010933`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ "Examples", " ", "of", " ", "the", " ", "power", " ", "series", " ", "expansion", " ", "of", " ", "the", " ", "generalized", " ", "convergent", " ", "functions", " ", "with", " ", "respect", " ", "to", " ", RowBox[{"R", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65325852289855*^9, 3.653258545880082*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convh", "=", "2"}], ";", RowBox[{"rcfupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{"convhFn", "=", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"convh", ",", "1", ",", "R", ",", "z"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{"convhFn", ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "rcfupper"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655245368786516*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[164]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"convh", ",", "mlower", ",", "mupper"}], "}"}], "=", RowBox[{"{", RowBox[{"2", ",", "0", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"LowerCfIndex", "\[Rule]", "m"}], ",", RowBox[{"FS", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"convh", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "mlower", ",", "mupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6552452116490393`*^9, 3.655245267000939*^9}, {3.655245302374048*^9, 3.655245302585944*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[161]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "to", " ", "verify", " ", "the", " ", "results", " ", "cited", " ", "in", " ", "the", " ", "examples", " ", "from", " ", "the", " ", RowBox[{"introduction", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653258548157641*^9, 3.653258564898069*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"p2nm", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "/", "4"}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"3", "/", "16"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "7"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"9", "n"}], "-", "20"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "9"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "10"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "7"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "5"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "13"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"27", " ", RowBox[{"n", "^", "3"}]}], "-", RowBox[{"279", " ", RowBox[{"n", "^", "2"}]}], "+", RowBox[{"934", "n"}], "-", "1008"}], ")"}], "*", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "6"}], ",", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "15"}]}], "]"}], "/", "5"}], "*", RowBox[{"(", RowBox[{ RowBox[{"9", " ", RowBox[{"n", "^", "2"}]}], "-", RowBox[{"71", "n"}], "+", "120"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "14"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "11"}], ")"}], "*", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", "True", ",", "0"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2nmCongFn", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "<", "m"}], ",", "0", ",", "\[IndentingNewLine]", RowBox[{"n", "\[Equal]", "m"}], ",", "1", ",", "\[IndentingNewLine]", RowBox[{"n", ">", "m"}], ",", RowBox[{"p2nm", "[", RowBox[{"n", ",", "m"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6552454061596746`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[167]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "18"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cong", "[", RowBox[{"m", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "2", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"Ceiling", "[", RowBox[{"n", "/", "2"}], "]"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"x", "+", "1"}], ",", RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "m"}], "}"}]}], "]"}], ",", "2", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}], ",", RowBox[{"m", "-", RowBox[{"Ceiling", "[", RowBox[{"n", "/", "2"}], "]"}]}]}], "]"}], ",", "2", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"p2nmCongFn", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "2", ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "6"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65524541553981*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[169]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Rational generating functions \ for the harmonic number sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.6552443024361897`*^9, 3.655260938926455*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp_", ",", "m_", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "m", ",", "n"}], "]"}], "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"convp", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{"cfFn_", ",", "z_", ",", "nupper_", ",", RowBox[{"nmin_:", "4"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "fsfData", ",", "linrec", ",", "denom", ",", "num", ",", "coeffs", ",", "gfz"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fsfData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"cfFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"linrec", "=", RowBox[{"FindLinearRecurrence", "[", "fsfData", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"denom", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "linrec", ")"}], "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "linrec", "]"}]}], "}"}]}], "]"}]}], ")"}], " ", "//", " ", "Factor"}]}], ";", "\[IndentingNewLine]", RowBox[{"num", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "i", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "linrec", "]"}], "+", "nmin"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"coeffs", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"num", "/", "denom"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "==", RowBox[{"cfFn", "[", "n", "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "linrec", "]"}], "+", "nmin"}]}], "}"}]}], "]"}], " ", "//", " ", "Solve"}]}], ";", "\[IndentingNewLine]", RowBox[{"gfz", "=", RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{"(", RowBox[{"num", "/", "denom"}], ")"}], "/.", RowBox[{"(", "coeffs", ")"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "gfz", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cfFnV1", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "2"}], "-", RowBox[{"2", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cfFnV2", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}], "+", RowBox[{"3", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "4", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cfFnV3", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "4"}], "-", RowBox[{"4", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}], "+", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "4", ",", "n"}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}], "^", "2"}], ")"}]}], "-", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "3"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "5", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gfSimpFn", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ConvP", "\[Rule]", "convp"}], ",", RowBox[{"ROrder", "\[Rule]", RowBox[{ RowBox[{"First", "[", "#2", "]"}], "+", "1"}]}], ",", RowBox[{"ConvFnGFDenom", "\[Rule]", RowBox[{"Factor", "[", RowBox[{"Denominator", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "]"}]}], ",", RowBox[{"ConvFnGFApart", "\[Rule]", RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}]}], ",", RowBox[{"ConvFnGFApartTeXForm", "\[Rule]", RowBox[{"TeXForm", "[", RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "]"}]}], ",", RowBox[{"ConvFnGF", "\[Rule]", RowBox[{"Factor", "[", "#1", "]"}]}], ",", RowBox[{"ConvFnGFTeXForm", "\[Rule]", RowBox[{"TeXForm", "[", RowBox[{"Factor", "[", "#1", "]"}], "]"}]}], ",", RowBox[{"ConvFnGFV2", "\[Rule]", RowBox[{"FS", "[", "#1", "]"}]}], ",", RowBox[{"ConvFnGFSeries", "\[Rule]", RowBox[{"Series", "[", RowBox[{ RowBox[{"Factor", "[", "#1", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "12"}], "}"}]}], "]"}]}]}], "}"}], "&"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"printRationalHNum1GFs", "[", RowBox[{"convfnh_", ",", "rpow_", ",", "denomPow_", ",", "nupper_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "sc", ",", "numfn", ",", "denomfn", ",", "convFnData", ",", "gfzv2", ",", "gfzv1", ",", "gfzv0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sc", "=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"convfnh", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "rpow"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], ";", "\[IndentingNewLine]", RowBox[{"numfn", "=", RowBox[{"Factor", "[", RowBox[{"Numerator", "[", "sc", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"denomfn", "=", RowBox[{"Factor", "[", RowBox[{"PE", "[", RowBox[{"Power", "[", RowBox[{ RowBox[{"Denominator", "[", "sc", "]"}], ",", RowBox[{"1", "/", RowBox[{"(", "rpow", ")"}]}]}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"convFnData", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ConvFn", ",", "sc", ",", RowBox[{"Factor", "[", "sc", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ConvNumFn", ",", "numfn"}], "}"}], ",", RowBox[{"{", RowBox[{"ConvDenomFn", ",", "denomfn"}], "}"}], ",", RowBox[{"{", RowBox[{"ConvDenomPowFn", ",", "denomPow"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", "convFnData", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"OverZPow", "\[Rule]", "#1"}], ",", RowBox[{"Apart", "[", RowBox[{ RowBox[{"FS", "[", "sc", "]"}], "/", RowBox[{"Power", "[", RowBox[{"z", ",", "#1"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", RowBox[{"Reverse", "[", RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"OverZPow", "\[Rule]", "#1"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Apart", "[", RowBox[{ RowBox[{"FS", "[", "sc", "]"}], "/", RowBox[{"Power", "[", RowBox[{"z", ",", "#1"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"(", "denomPow", ")"}], "^", "_"}], ",", "Factor"}], "]"}]}], "}"}], "&"}], ",", RowBox[{"Reverse", "[", RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"gfzv2", ",", "gfzv1", ",", "gfzv0"}], "}"}], "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Apart", "[", RowBox[{ RowBox[{"FS", "[", "sc", "]"}], "/", RowBox[{"Power", "[", RowBox[{"z", ",", "#1"}], "]"}]}], "]"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "!"}], ")"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ",", "convfnh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv2", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "convfnh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv1", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convfnh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv0", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "convfnh", ",", "modOffset"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp_", ",", "cfnupper_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"gfzv1", ",", "gfzv2", ",", "modCoeffsTbl"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"gfzv1", "=", RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{ RowBox[{ RowBox[{"cfFnV1", "[", RowBox[{"convp", ",", "#1"}], "]"}], "&"}], ",", "z", ",", "cfnupper"}], "]"}], "/", "z"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"gfSimpFn", "[", RowBox[{"gfzv1", ",", RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"gfzv2", "=", RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{ RowBox[{ RowBox[{"cfFnV2", "[", RowBox[{"convp", ",", "#1"}], "]"}], "&"}], ",", "z", ",", "cfnupper"}], "]"}], "/", "z"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"gfSimpFn", "[", RowBox[{"gfzv2", ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"modCoeffsTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", "n", ")"}], "!"}], ",", "2"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "2"}], "]"}]}], ",", "convp", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv1", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convp", ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", "n", ")"}], "!"}], ",", "3"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "3"}], "]"}]}], ",", "convp", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv2", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convp", ",", "modOffset"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"10", ",", RowBox[{"5", "+", RowBox[{"2", "*", "convp"}]}]}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", "modCoeffsTbl", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.654964926093532*^9, { 3.65526081145087*^9, 3.655260811703671*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[916]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "2"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267762225025*^9}, {3.654965059705739*^9, 3.654965064084105*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "2"}], ";", RowBox[{"cfnupper", "=", "50"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[924]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "3"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267770363381*^9}, {3.654965071606339*^9, 3.654965071831122*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "3"}], ";", RowBox[{"cfnupper", "=", "50"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654964942918263*^9, 3.65496496843253*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[926]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "for", " ", "the", " ", "first"}], "-", RowBox[{"order", " ", "sequence", " ", "modulo", " ", "4"}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655260834004464*^9, 3.655260845822853*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convfnh", "=", "4"}], ";", RowBox[{"rpow", "=", "2"}], ";", RowBox[{"nupper", "=", "25"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"denomPow", "=", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "z"}], "-", RowBox[{"36", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"24", " ", SuperscriptBox["z", "3"]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum1GFs", "[", RowBox[{ "convfnh", ",", "rpow", ",", "denomPow", ",", "nupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6549711684589853`*^9, 3.654971192349987*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[456]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Variants of Wilson\[CloseCurlyQuote]s and \ Clement\[CloseCurlyQuote]s theorem", FontVariations->{"Underline"->True}], ": \n Expansions of the two congruences for the twin prime pairs:" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789815479521*^9, 3.654789870612516*^9}, {3.655244307803681*^9, 3.655244308061675*^9}, 3.6552470367845173`*^9, {3.6552472164984617`*^9, 3.655247220260511*^9}, 3.6552475981401587`*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{"Example", ":", RowBox[{ "Expansions", " ", "of", " ", "two", " ", "congruence", " ", "results", " ", "characterizing", " ", "the", " ", "twin", " ", "prime", " ", "pairs"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "3"}]}], ")"}], ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"Compute", " ", "cases", " ", "of", " ", "the", " ", "first", " ", RowBox[{"congruence", ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653259321949102*^9, 3.653259329544312*^9}, {3.655247162285323*^9, 3.655247163761766*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"(", RowBox[{"#1", "+", "2"}], ")"}], "]"}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"IsPrime", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{ RowBox[{"IsPrime", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}], "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}]}], ",", RowBox[{ RowBox[{"IsTwinPrimePair", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "3"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}]}]}]}], "}"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"2", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"10", "n"}], "+", "7"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655247188547461*^9, { 3.6552472486916733`*^9, 3.655247339148864*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[355]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "cases", " ", "of", " ", "the", " ", "second", " ", RowBox[{"congruence", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653259332512018*^9, 3.653259336159245*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"(", RowBox[{"#1", "+", "2"}], ")"}], "]"}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"IsPrime", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{ RowBox[{"IsPrime", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}], "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}]}], ",", RowBox[{ RowBox[{"IsTwinPrimePair", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "3"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}]}]}]}], "}"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", " ", "n"}]}], "}"}]}], "]"}]}], "+", "4", "+", RowBox[{"2", "*", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655247188547461*^9, { 3.6552472486916733`*^9, 3.655247339148864*^9}, 3.655247508868587*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[357]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "cases", " ", "of", " ", "both", " ", "congruences", " ", "for", " ", "comparison", " ", RowBox[{"together", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532593376056356`*^9, 3.6532593511178093`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"(", RowBox[{"#1", "+", "2"}], ")"}], "]"}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"IsPrime", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{ RowBox[{"IsPrime", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}], "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}]}], ",", RowBox[{ RowBox[{"IsTwinPrimePair", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "3"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], "]"}]}]}]}], "}"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"2", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"10", "n"}], "+", "7"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", " ", "n"}]}], "}"}]}], "]"}]}], "+", "4", "+", RowBox[{"2", "*", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655247188547461*^9, { 3.6552472486916733`*^9, 3.655247339148864*^9}, {3.655247552455686*^9, 3.6552475716688004`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[361]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Examples of the congruences for \ the Wilson primes:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, {3.654789886408168*^9, 3.654789907343388*^9}, 3.65524431790056*^9, 3.655249677572679*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{"WilsonPrimePrimeCondFn", "[", "m_", "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], "&&", RowBox[{"IntegerQ", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"m", "-", "1"}], "]"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"m", "^", "2"}], ")"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightGreen", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Green", "]"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", RowBox[{"PrimeQ", "[", "m", "]"}], ",", RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightBlue", "]"}]}], ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Blue", "]"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"(", "#1", ")"}], "&"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"WilsonPrimeCongSumV1", "[", "n_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "/", RowBox[{"Factorial", "[", "i", "]"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"n", "^", "2"}]}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"WilsonPrimeCongSumV2", "[", "n_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"WilsonPrimeCongSumV3", "[", "n_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "-", "n"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "i"}]}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n", "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "n"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "n"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n", "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "n"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}]}]}], FontSlant->"Plain"]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, {3.655249128208531*^9, 3.655249136420477*^9}, {3.65524917918307*^9, 3.655249203024795*^9}, { 3.6552492550526657`*^9, 3.655249326428063*^9}, {3.655249431729933*^9, 3.6552494329553537`*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[429]:="], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "first", " ", "two", " ", "congruence", " ", RowBox[{"sums", ":"}]}], FontSlant->"Plain"], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532600001451607`*^9, 3.653260019580592*^9}}, FontSlant->"Italic", Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"numPrimes", "=", "50"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"WPrimes", "=", RowBox[{"{", RowBox[{"5", ",", "13", ",", "563"}], "}"}]}], ";", RowBox[{"PrimesList", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "numPrimes"}], "}"}]}], "]"}], ",", "WPrimes"}], "]"}]}], ";"}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"WilsonPrimePrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"MemberQ", "[", RowBox[{"WPrimes", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"WilsonPrimeCongSumV1", "[", "n", "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"WilsonPrimeCongSumV2", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"WilsonPrimeCongSumV3", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], FontSlant->"Plain"]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655249668967969*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "last", " ", "multiple", " ", "sum", " ", RowBox[{"congruences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532600001451607`*^9, 3.6532600407754307`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"numPrimes", "=", "10"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"WPrimes", "=", RowBox[{"{", RowBox[{"5", ",", "13"}], "}"}]}], ";", RowBox[{"PrimesList", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "numPrimes"}], "}"}]}], "]"}], ",", "WPrimes"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"WilsonPrimePrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655249661100806*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "all", " ", "three", " ", "congruences", " ", "together", " ", "for", " ", RowBox[{"comparison", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532600001451607`*^9, 3.6532600407754307`*^9}, {3.653260157793839*^9, 3.653260165899535*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"numPrimes", "=", "11"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"WPrimes", "=", RowBox[{"{", RowBox[{"5", ",", "13"}], "}"}]}], ";", RowBox[{"PrimesList", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "numPrimes"}], "}"}]}], "]"}], ",", "WPrimes"}], "]"}]}], ";"}], FontSlant->"Plain"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"WilsonPrimePrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"MemberQ", "[", RowBox[{"WPrimes", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"WilsonPrimeCongSumV1", "[", "n", "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"WilsonPrimeCongSumV2", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"WilsonPrimeCongSumV3", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n", "]"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], FontSlant->"Plain"]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65524964828995*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[454]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Convergent function identities \ generating the single factorial function squares:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654789922453814*^9, 3.6547899487074013`*^9}, 3.6552443166556683`*^9, 3.6552487951785593`*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ "Convergent", " ", "Generating", " ", "Function", " ", "Identities", " ", "for", " ", "the", " ", "Factorial", " ", "Square", " ", RowBox[{"Powers", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655247681095089*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"PrimeQ", "[", "p", "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", "p", "]"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"p", ",", "4", ",", "0"}], "]"}], "\[Equal]", "1"}], ")"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], "]"}], "^", "2"}], ",", "p", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], "]"}], "^", "2"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "2"}], ",", RowBox[{"p", "-", "1"}], ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "2"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{ RowBox[{"z", "/", "4"}], "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "2"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{ RowBox[{"z", "/", "2"}], "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "2"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"x", "/", "2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"p", ",", "\"\< of \>\"", ",", "pupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "3", ",", "pupper", ",", "2"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552477061155567`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[363]:="], Cell[BoxData[ FormBox[ RowBox[{ "Examples", " ", "of", " ", "the", " ", "fractional", " ", "series", " ", "expansions", " ", "mentioned", " ", "in", " ", "the", " ", RowBox[{"introduction", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655247820102417*^9, 3.655247844798506*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getConvFnFractionalSeriesData", "[", RowBox[{"n_", ",", RowBox[{"xcfMin_:", "1"}], ",", RowBox[{"xcfMax_:", "3"}]}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"CoeffOfXPow", "\[Rule]", "m"}], ",", RowBox[{"Expand", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "m"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "m"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "xcfMin", ",", "xcfMax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"getConvFnFractionalSeriesData", "[", RowBox[{"n", ",", "1", ",", "3"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"ConvFnSeriesData", "[", "n", "]"}], ",", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", " ", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", " ", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "1"}], ",", "n", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655247907292688*^9, 3.655247948355768*^9}, {3.655247992149102*^9, 3.655248035624329*^9}, { 3.6552481983890667`*^9, 3.655248439325938*^9}, {3.655248509138631*^9, 3.6552485097627277`*^9}, {3.6552485430387373`*^9, 3.655248545504908*^9}, { 3.655248576568428*^9, 3.6552487513266497`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[400]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compare", " ", "the", " ", "previous", " ", "coefficients", " ", "with", " ", "a", " ", "few", " ", "tables", " ", "of", " ", "the", " ", RowBox[{"(", "generalized", ")"}], " ", "harmonic", " ", "number", " ", RowBox[{"sequences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655247820102417*^9, 3.655247844798506*^9}, { 3.655248103434319*^9, 3.655248130062192*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"hn", "[", RowBox[{"r", ",", "n"}], "]"}], "\[Rule]", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "6"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655248084484087*^9, 3.6552481010322447`*^9}, 3.655248141864402*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"hn", "[", RowBox[{"r", ",", "n"}], "]"}], "\[Rule]", RowBox[{"Hn", "[", RowBox[{"1", ",", "n", ",", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "6"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655248084484087*^9, 3.6552481010322447`*^9}, 3.6552481497971487`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"hn", "[", RowBox[{"r", ",", "n"}], "]"}], "\[Rule]", RowBox[{"Hn", "[", RowBox[{"2", ",", "1", ",", "n", ",", "r", ",", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "6"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655248084484087*^9, 3.6552481010322447`*^9}, 3.655248157953333*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"hn", "[", RowBox[{"r", ",", "n"}], "]"}], "\[Rule]", RowBox[{"Hn", "[", RowBox[{"3", ",", "2", ",", "n", ",", "r", ",", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "6"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655248084484087*^9, 3.6552481010322447`*^9}, 3.655248163982933*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Expansions of the necessary \ condition from Wolstenholme\[CloseCurlyQuote]s theorem:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654789983703834*^9, 3.6547900064005013`*^9}, 3.655244315170282*^9, 3.65524901686655*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "some", " ", "example", " ", "convergent", " ", "function", " ", RowBox[{"series", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532588688743362`*^9, 3.653258878350971*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"scfupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"SeriesExpV1", "[", "n", "]"}], ",", RowBox[{"Series", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], ",", RowBox[{"SeriesExpV2", "[", "n", "]"}], ",", RowBox[{"Series", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "scfupper"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655248870574903*^9, 3.655248910952592*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[403]:="], Cell[BoxData[ FormBox[ RowBox[{ "Tables", " ", "to", " ", "verify", " ", "the", " ", "first", " ", "cases", " ", "of", " ", "these", " ", "identities", " ", "for", " ", "the", " ", "necessary", " ", RowBox[{"condition", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532588810289297`*^9, 3.653258901490376*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"S1", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "1"}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655248969649494*^9, 3.655249006672565*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[407]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Examples of the semi-polynomial \ congruence expansions for the central binomial coefficients:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654790028764174*^9, 3.6547900572470913`*^9}, {3.654795192472108*^9, 3.654795194782295*^9}, 3.6552443139158907`*^9, 3.655261511630289*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"(", RowBox[{ "See", " ", "also", " ", "the", " ", "extended", " ", "cases", " ", "of", " ", "the", " ", "congrunec", " ", "computations", " ", "in", " ", "the", " ", "Section", " ", "7", " ", "listings", " ", "expanded", " ", RowBox[{"below", "."}]}], ")"}], FontSlant->"Italic"], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653400713564693*^9, 3.653400739024806*^9}, {3.6534007854504013`*^9, 3.6534007941966887`*^9}, {3.655259150519518*^9, 3.655259154292634*^9}, { 3.655261470914633*^9, 3.655261476304459*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], "-", RowBox[{"2", "x"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "n"}]}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", "x"}], ")"}]}], ",", RowBox[{ RowBox[{"2", "x"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", "i"}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"2", "x"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "n"}]}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", "x"}], ")"}]}], ",", RowBox[{ RowBox[{"2", "x"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "0"}], "]"}]}], "}"}], "\[Equal]", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", "3"}], "]"}]}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655261491864711*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{"n", "^", "p"}]}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{"n", "^", "p"}]}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "i"}]}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"8", ",", "i"}], "]"}], "*", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"x", "^", "p"}]}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", "n", "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "n"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "n"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "]"}], ",", RowBox[{"x", "^", "p"}]}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{"n", "^", "p"}]}], "]"}], ",", "4"}], "]"}]}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{"n", "^", "p"}]}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655261497941083*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Examples of congruences for the \ double and triple factorial functions:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654790065874702*^9, 3.654790079218306*^9}, 3.6552443122233458`*^9, 3.6552518676152363`*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getModHTableV1", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"FnMod", "\[Rule]", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\<`1`\[Times]`2`^{`3`}\>\"", ",", "h", ",", "2", ",", "s"}], "]"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "*", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "*", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", "n", "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "n", "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hupper", "=", "6"}], ";", RowBox[{"nupper", "=", "10"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ModIndexHN", "[", RowBox[{"h", ",", "n"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"getModHTableV1", "[", RowBox[{"n", ",", "h", ",", "modOffset"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655250520993813*^9, 3.65525053448925*^9}, {3.6552505654088297`*^9, 3.655250612761566*^9}, { 3.655250670517329*^9, 3.655250834722793*^9}, {3.655250886564053*^9, 3.655250922017942*^9}, {3.655250966367427*^9, 3.6552510170260773`*^9}, { 3.6552510517255497`*^9, 3.6552510778847027`*^9}, {3.6552511109547167`*^9, 3.655251165891326*^9}, {3.655251236003972*^9, 3.655251309169573*^9}, { 3.6552513407642393`*^9, 3.655251342435699*^9}, {3.65525137844305*^9, 3.655251381595392*^9}, {3.655251443815158*^9, 3.6552514456874866`*^9}, { 3.655251509312437*^9, 3.6552516317626467`*^9}, {3.6552518524814987`*^9, 3.655251856096899*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[533]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getModHTableV2", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"FnMod", "\[Rule]", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\<`1`\[Times]`2`^{`3`}\>\"", ",", "h", ",", "3", ",", "s"}], "]"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"3", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"3", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "*", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "3"}], "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"3", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "3"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "*", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "3"}], "+", "n", "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "3"}], "-", "n", "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"3", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hupper", "=", "6"}], ";", RowBox[{"nupper", "=", "10"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ModIndexHN", "[", RowBox[{"h", ",", "n"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"getModHTableV2", "[", RowBox[{"n", ",", "h", ",", "modOffset"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655251605041039*^9, { 3.655251646848662*^9, 3.6552516620464783`*^9}, {3.655251843485717*^9, 3.655251846408839*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[530]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getModHTableV3", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"FnMod", "\[Rule]", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\<`1`\[Times]`2`^{`3`}\>\"", ",", "h", ",", "3", ",", "s"}], "]"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", "n"}], "-", "2"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"3", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"3", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "*", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "3"}], "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"3", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "3"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "*", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "3"}], "+", "n", "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "3"}], "-", "n", "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"3", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hupper", "=", "6"}], ";", RowBox[{"nupper", "=", "10"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ModIndexHN", "[", RowBox[{"h", ",", "n"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"getModHTableV3", "[", RowBox[{"n", ",", "h", ",", "modOffset"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.65525167787891*^9, 3.655251838053628*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[527]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section]4: Alternate exact expansions of the convergent \ functions:", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, {3.654789442546795*^9, 3.6547894525972767`*^9}, {3.654790186006219*^9, 3.6547902184028273`*^9}, { 3.654898342758011*^9, 3.654898344199046*^9}, {3.654959259960443*^9, 3.6549592601646137`*^9}, 3.6549604532942963`*^9}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Convergent function recurrences \ involving the denominator function sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654790303426939*^9, 3.6547903325369864`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Recurrence", " ", "relations", " ", "satisfied", " ", "by", " ", "the", " ", "convergent", " ", "functions", " ", "in", " ", "terms", " ", "of", " ", "the", " ", "denominator", " ", "functions"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["FQ", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{"R", ";", "z"}]}], ")"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.6528469720142727`*^9, 3.652846972566516*^9}, { 3.652849281226425*^9, 3.652849283399892*^9}, {3.652947350493155*^9, 3.6529474807744017`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", "a", ",", "R", ",", "z"}], "]"}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"h", "-", "1"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"h", "-", "1"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", "a", ",", "R"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}]}]}], "]"}], "/", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}]}], "/", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", "a", ",", "R", ",", "z"}], "]"}]}]}]}], "]"}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654959054448262*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[366]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "12"}], ";", RowBox[{"kupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"h", "-", "k"}], ",", "a", ",", "R", ",", "z"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"h", "-", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"h", "-", "1", "-", "i"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"h", "-", "1", "-", "i"}], ",", "a", ",", "R"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"h", "-", "1", "-", "i"}], ")"}]}]}], "]"}], "/", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "i"}], ",", "a", ",", "R", ",", "z"}], "]"}]}], "/", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1", "-", "i"}], ",", "a", ",", "R", ",", "z"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"k", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "kupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "k", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654959059798571*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[368]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"h", "-", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"h", "-", "1", "-", "i"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"h", "-", "1", "-", "i"}], ",", "a", ",", "R"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"h", "-", "1", "-", "i"}], ")"}]}]}], "]"}], "/", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "i"}], ",", "a", ",", "R", ",", "z"}], "]"}]}], "/", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1", "-", "i"}], ",", "a", ",", "R", ",", "z"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549590671296167`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[370]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Convergent function recurrences \ involving the reciprocals of the Laguerre polynomial sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654790338708005*^9, 3.654790353413519*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ "Recurrence", " ", "relations", " ", "satisfied", " ", "by", " ", "the", " ", "convergent", " ", "functions", " ", "expanded", " ", "in", " ", "terms", " ", "of", " ", "the", " ", "Laguerre", " ", "polynomial", " ", RowBox[{"sequences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.6528469720142727`*^9, 3.652846972566516*^9}, { 3.652849281226425*^9, 3.652849283399892*^9}, {3.652947350493155*^9, 3.6529474807744017`*^9}, {3.6529475449967546`*^9, 3.6529475592612886`*^9}, 3.6549594454965076`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "*", "z"}], ")"}]}], "*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "+", "i", "-", "2"}], ",", RowBox[{"i", "-", "1"}]}], "]"}], "/", RowBox[{"(", "i", ")"}]}], "/", RowBox[{"LaguerreL", "[", RowBox[{"i", ",", RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}]}], "]"}]}], "/", RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "h"}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654959091509747*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[372]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "*", "z"}], ")"}]}], "*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "+", "i", "-", "1"}], ",", "i"}], "]"}], "/", RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}]}], "/", RowBox[{"LaguerreL", "[", RowBox[{"i", ",", RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}]}], "]"}]}], "/", RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654959097687311*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[374]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Convergent function recurrences \ involving Kummer\[CloseCurlyQuote]s confluent hypergeometric function:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654790403492467*^9, 3.654790462499243*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "the", " ", "component", " ", "formulas", " ", "in", " ", "the", " ", "statement", " ", "of", " ", RowBox[{"Halpen", "'"}], "s", " ", "product", " ", "rule", " ", "for", " ", "these", " ", RowBox[{"cases", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.6528469720142727`*^9, 3.652846972566516*^9}, { 3.652849281226425*^9, 3.652849283399892*^9}, {3.652947350493155*^9, 3.6529474807744017`*^9}, {3.6529475449967546`*^9, 3.6529475592612886`*^9}, {3.652947647605844*^9, 3.652947706625161*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", RowBox[{"h", "-", "k"}]}], "]"}], "*", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"R", "/", "a"}], "+", "h", "-", "1"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"R", "/", "a"}], "+", "k", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "h"}], "}"}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654959113915938*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[376]:="], Cell[BoxData[ RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", RowBox[{"2", RowBox[{"(", RowBox[{"h", "-", "1", "-", "i"}], ")"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"h", "-", "1", "-", "i"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"h", "-", "i", "-", "1"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", RowBox[{"h", "-", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"h", "-", "i"}]}], "]"}], "*", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "i"}], ")"}]}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", RowBox[{"h", "-", "i", "-", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"h", "-", "i", "-", "1"}]}], "]"}], "*", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "i", "-", "1"}], ")"}]}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}]}], ")"}]}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6549591220950947`*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[377]:="], Cell[BoxData[ FormBox[ RowBox[{ "Recurrence", " ", "relations", " ", "expanded", " ", "in", " ", "in", " ", "terms", " ", "of", " ", "these", " ", RowBox[{"formulas", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.6528469720142727`*^9, 3.652846972566516*^9}, { 3.652849281226425*^9, 3.652849283399892*^9}, {3.652947350493155*^9, 3.6529474807744017`*^9}, {3.6529475449967546`*^9, 3.6529475592612886`*^9}, {3.652947751275198*^9, 3.6529477670960417`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", RowBox[{"2", RowBox[{"(", RowBox[{"h", "-", "1", "-", "i"}], ")"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"h", "-", "1", "-", "i"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"h", "-", "i", "-", "1"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", RowBox[{"h", "-", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"h", "-", "i"}]}], "]"}], "*", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "i"}], ")"}]}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", "z"}], ",", RowBox[{"h", "-", "i", "-", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"h", "-", "i", "-", "1"}]}], "]"}], "*", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "i", "-", "1"}], ")"}]}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"Gamma", "[", RowBox[{"h", "-", "i"}], "]"}], RowBox[{"a", " ", "z", " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "h"}], "+", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "h", "+", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ FractionBox["R", "a"], ",", RowBox[{"h", "-", "i"}]}], "]"}]}]]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65495916352411*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[378]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"h", "-", "k"}], ",", "a", ",", "R", ",", "z"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"Gamma", "[", RowBox[{"h", "-", "i"}], "]"}], RowBox[{"a", " ", "z", " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "h"}], "+", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "h", "+", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ FractionBox["R", "a"], ",", RowBox[{"h", "-", "i"}]}], "]"}]}]]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"k", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654959168899434*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[380]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"i", "-", "1"}], "]"}], "/", RowBox[{"(", RowBox[{"a", " ", "z"}], ")"}]}], RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"-", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ FractionBox["R", "a"], ",", "i"}], "]"}]}]]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "h"}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654959179212023*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[382]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"diff", "[", RowBox[{"k", ",", "h"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"h", ",", "a", ",", "R", ",", "z"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Together", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "+", "i", "-", "1"}], ",", RowBox[{"i", "-", "1"}]}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], FractionBox[ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"-", "R"}], " ", "z"}], ")"}]}], RowBox[{"FS", "[", RowBox[{ RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"-", "i"}], ",", FractionBox["R", "a"], ",", FractionBox["1", RowBox[{"a", " ", "z"}]]}], "]"}]}], "]"}]]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "h"}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654959188978335*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[384]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section]5: Properties of the generalized convergent functions:", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, {3.654789442546795*^9, 3.6547894525972767`*^9}, {3.654790186006219*^9, 3.6547902184028273`*^9}, { 3.654790491696991*^9, 3.654790491764077*^9}, {3.654898289135676*^9, 3.654898296073145*^9}, {3.654899390993061*^9, 3.654899392697098*^9}, { 3.6548996433741207`*^9, 3.654899646504183*^9}, {3.654955347644734*^9, 3.6549553479845123`*^9}, 3.6549604728698673`*^9}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] The convergent denominator \ function sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654790587604587*^9, 3.654790597396611*^9}, {3.654790630223916*^9, 3.6547906366671743`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Tables to \ verify the recurrence relation formulas:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.6547907153948708`*^9, {3.654792587750538*^9, 3.654792609503133*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"hupper", ",", "smin", ",", "smax"}], "}"}], "=", RowBox[{"{", RowBox[{"8", ",", "0", ",", "8"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"rdiff", "[", RowBox[{"h", ",", " ", "s"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", RowBox[{"a", "*", "s"}], ",", " ", "z"}], "]"}], "-", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "+", "s", "-", "1"}], ",", "a", ",", " ", RowBox[{"a", "*", RowBox[{"(", RowBox[{"2", "-", "s"}], ")"}]}], ",", " ", "z"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", " ", "hupper"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"s", ",", " ", "smin", ",", " ", "smax"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654899032431932*^9, 3.654899051664456*^9}, { 3.654899162142391*^9, 3.654899204048706*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1005]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"hupper", ",", "smin", ",", "smax"}], "}"}], "=", RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "12"}], ",", "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"rdiff", "[", RowBox[{"h", ",", " ", "s"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", RowBox[{"a", "*", "s"}], ",", " ", "z"}], "]"}], "-", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "+", "s", "-", "1"}], ",", "a", ",", " ", RowBox[{"a", "*", RowBox[{"(", RowBox[{"2", "-", "s"}], ")"}]}], ",", " ", "z"}], "]"}]}], ")"}], "*", RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{"s", "\[GreaterEqual]", RowBox[{"1", "-", "h"}]}], ",", " ", "True"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", " ", "hupper"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"s", ",", " ", "smin", ",", " ", "smax"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654899032431932*^9, 3.654899051664456*^9}, 3.654899162142391*^9, {3.654899210248576*^9, 3.654899233330222*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1007]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "a"}]}], ")"}], "*", "z", "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", RowBox[{"R", "-", "a"}], ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "R"}], ")"}], "*", "z"}], "-", "1"}], ")"}], "*", RowBox[{"FQ", "[", " ", RowBox[{"h", ",", " ", "a", ",", " ", "R", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", "1", ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", RowBox[{"R", "+", "a"}], ",", " ", "z"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", "1", ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "*", "h", "*", "z"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", " ", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", RowBox[{"R", "-", "a"}], ",", " ", "z"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"a", "*", "h"}]}], ")"}], "*", "z", "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", "1", ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "+", "1"}], ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", RowBox[{"R", "+", "a"}], ",", " ", "z"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"a", "*", "h", "*", "z"}]}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", RowBox[{"R", "+", "a"}], ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"a", "*", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "a"}]}], ")"}], "*", "h", "*", "z"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"h", "+", "1"}], ")"}], "*", "a", "*", "z"}]}], ")"}], "*", RowBox[{"FQ", "[", " ", RowBox[{"h", ",", " ", "a", ",", " ", "R", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "+", "1"}], ",", " ", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "a"}]}], ")"}], "*", "z", "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", RowBox[{"R", "-", "a"}], ",", " ", "z"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "h"}], ")"}], "*", "a", "*", "z"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "2"}], ",", " ", "a", ",", " ", RowBox[{"R", "+", RowBox[{"2", "*", "a"}]}], ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"R", "*", "z"}]}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", " ", "a", ",", " ", RowBox[{"R", "+", "a"}], ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "+", RowBox[{"KroneckerDelta", "[", RowBox[{"h", ",", "0"}], "]"}]}], "]"}], ",", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "a", "*", "z"}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "2"}], ",", " ", "a", ",", " ", RowBox[{"R", "+", RowBox[{"2", "*", "a"}]}], ",", " ", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"R", "*", "z"}]}], ")"}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", " ", "a", ",", " ", RowBox[{"R", "+", "a"}], ",", " ", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", "1", ")"}], "*", RowBox[{"FQ", "[", RowBox[{"h", ",", " ", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"h", ",", "0"}], "]"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654899032431932*^9, 3.654899051664456*^9}, 3.654899162142391*^9, 3.654899313052204*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1015]:="] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Addition theorems:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.6547907153948708`*^9, {3.654792622367425*^9, 3.654792634355826*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fqdiff", "[", "h", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", "-", "w"}]}], "]"}], "]"}], "-", RowBox[{"Simplify", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", " ", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "w"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{"z", "-", "w"}], ")"}], ",", RowBox[{"h", "-", "n"}]}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"z", ",", "h"}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "n"}], ",", "a", ",", " ", RowBox[{"R", "+", RowBox[{"n", "*", "a"}]}], ",", " ", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "h"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"Simplify", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", "-", "w"}]}], "]"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", " ", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654899032431932*^9, 3.654899051664456*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1013]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fqdiff", "[", "h", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", "-", "w"}]}], "]"}], "]"}], "-", RowBox[{"Simplify", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", " ", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "h", "-", RowBox[{"R", "/", "a"}]}], ",", " ", "n"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"a", " ", "w"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"FQ", "[", " ", RowBox[{ RowBox[{"h", "-", "n"}], ",", " ", "a", ",", " ", "R", ",", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "h"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"Simplify", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", "-", "w"}]}], "]"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", " ", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654899032431932*^9, 3.654899058465458*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1019]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fqdiff", "[", "h", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", "-", "w"}]}], "]"}], "]"}], "-", RowBox[{"Simplify", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "n"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", RowBox[{"R", "/", "a"}], "-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"a", " ", "w"}], ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"FQ", "[", " ", RowBox[{ RowBox[{"h", "-", "n"}], ",", " ", "a", ",", " ", "R", ",", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "h"}], "}"}]}], "]"}], "]"}], "]"}]}], ",", RowBox[{"Simplify", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", "-", "w"}]}], "]"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", " ", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654899032431932*^9, 3.654899065306465*^9, 3.654899248951461*^9, 3.654899308531974*^9, 3.6548993440120773`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1017]:="] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Multiplication theorems:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.6547907153948708`*^9, {3.654792636244165*^9, 3.654792640567622*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fqdiff", "[", "h", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", " ", "w"}]}], "]"}], "]"}], "-", "\n", " ", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", " ", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"w", "-", "1"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"w", ",", RowBox[{"h", "-", "n"}]}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "n"}], ",", " ", "a", ",", " ", RowBox[{"R", "+", RowBox[{"n", "*", "a"}]}], ",", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "h"}], "}"}]}], "]"}], "]"}]}], ",", "\n", " ", RowBox[{"FS", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", " ", "w"}]}], "]"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654899032431932*^9, 3.65489908377323*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fqdiff", "[", "h", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", " ", "w"}]}], "]"}], "]"}], "-", "\n", " ", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", " ", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "h", "-", RowBox[{"R", "/", "a"}]}], ",", " ", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"a", " ", "z"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "w"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"FQ", "[", RowBox[{ RowBox[{"h", "-", "n"}], ",", "a", ",", " ", "R", ",", " ", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "h"}], "}"}]}], "]"}], "]"}]}], ",", "\n", " ", RowBox[{"FS", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", " ", "w"}]}], "]"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", " ", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654899032431932*^9, 3.6548990904467154`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fqdiff", "[", "h", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", " ", "w"}]}], "]"}], "]"}], "-", "\n", " ", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "n"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "h", "-", RowBox[{"R", "/", "a"}]}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"a", " ", "z", "*", RowBox[{"(", RowBox[{"w", "-", "1"}], ")"}]}], ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"FQ", "[", " ", RowBox[{ RowBox[{"h", "-", "n"}], ",", " ", "a", ",", " ", "R", ",", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "h"}], "}"}]}], "]"}], "]"}], "]"}]}], ",", "\n", " ", RowBox[{"FS", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"z", " ", "w"}]}], "]"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"h", ",", " ", "0", ",", " ", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654899032431932*^9, 3.654899100099133*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] The convergent numerator \ function sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654790663537084*^9, 3.654790670532468*^9}, {3.654899387071761*^9, 3.654899388927163*^9}, 3.6549553350336027`*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Compute \ special cases of the first two formula expansions:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654792715208843*^9, 3.654792740409292*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{"Erasing", " ", RowBox[{"Operator", "/", "Coefficients"}], " ", "of", " ", RowBox[{"z", "^", RowBox[{"k", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653269404904002*^9, 3.653269422500451*^9}, {3.654955200672715*^9, 3.654955208971311*^9}, 3.654955272402463*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "12"}], ";", RowBox[{"nupper", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"mod", "[", RowBox[{"h", ",", "s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "<", "h"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{"i", ",", RowBox[{"-", "a"}], ",", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "a"}]}]}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "i"}], ",", "a", ",", "R"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "0"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "<", "h"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "h", "-", RowBox[{"R", "/", "a"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "0"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "3", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654955270667994*^9, 3.654955279576301*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[364]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Computations of the first five identities expanding the auxiliary sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]], "Output", CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], ", and table listings:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654792820056831*^9, 3.654792869244314*^9}, {3.6549537364921503`*^9, 3.654953747728773*^9}, { 3.654954296345254*^9, 3.6549542986294518`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "Generate", " ", "special", " ", "cases", " ", "of", " ", "the", " ", "Table", " ", "formulas"}], FontWeight->"Bold", FontVariations->{"Underline"->True}], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{ RowBox[{ "Special", " ", "Cases", " ", "of", " ", "the", " ", "auxiliary", " ", "numerator", " ", "subsequences"}], ",", FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{"(", RowBox[{ "See", " ", "the", " ", "tables", " ", "in", " ", "the", " ", "last", " ", "appendix", " ", "section", " ", "of", " ", "this", " ", RowBox[{"notebook", "."}]}], ")"}], FontSlant->"Italic"], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653269404904002*^9, 3.653269422500451*^9}, {3.6549537726323757`*^9, 3.6549537909665947`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"First", " ", "Expansion", " ", "of", FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "n"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", SuperscriptBox["a", "n"], " ", SuperscriptBox["h", "s"], " ", TemplateBox[{"h","k"}, "Binomial"], " ", RowBox[{ TemplateBox[{"m","s"}, "Binomial"], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["R", "a"], "-", "1"}], ")"}], RowBox[{"m", "-", "s"}]], " ", TemplateBox[{FractionBox["R", "a"],RowBox[{"n", "-", "k"}]}, "Pochhammer"]}]}]}], ")"}]}]}], TraditionalForm]}], "DisplayFormula",\ PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, { 3.65495387296793*^9, 3.6549538780674267`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", "ChnIdentV1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChnIdentV1", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChnIdentV1", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"h", ",", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654953916478744*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[324]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"ChnIdentV1", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654953921781872*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[326]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "s"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", RowBox[{"i", "!"}], " ", SuperscriptBox["a", "n"], " ", TemplateBox[{"h","i"}, "Binomial"], " ", TemplateBox[{"h","k"}, "Binomial"], " ", TemplateBox[{"m","s"}, "Binomial"], " ", RowBox[{ RowBox[{"{", GridBox[{ {"s"}, {"i"} }], "}"}], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["R", "a"], "-", "1"}], ")"}], RowBox[{"m", "-", "s"}]], " ", TemplateBox[{FractionBox["R", "a"],RowBox[{"n", "-", "k"}]}, "Pochhammer"]}]}]}], ")"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, { 3.652533772540811*^9, 3.652533784779984*^9}, 3.652534046386978*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654953945484908*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[329]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"Second", " ", "Expansion", " ", "of", FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "0"}], "s"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", SuperscriptBox["R", "s"], " ", SuperscriptBox["a", RowBox[{"n", "-", "s"}]], " ", TemplateBox[{"h","k"}, "Binomial"], " ", TemplateBox[{"m","t"}, "Binomial"], " ", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], RowBox[{"m", "-", "t"}]], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], " ", "[", GridBox[{ { RowBox[{"n", "-", "k"}]}, { RowBox[{"s", "-", "t"}]} }], "]"}]}]}]}], ")"}]}]}]}], TraditionalForm]}], "DisplayFormula",\ PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, 3.652533772540811*^9, {3.6525341905552998`*^9, 3.652534190894397*^9}, { 3.6532714761714067`*^9, 3.65327147632898*^9}, {3.654954046346444*^9, 3.654954047013699*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", "ChnIdentV2", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChnIdentV2", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChnIdentV2", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{"s", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", RowBox[{"m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"R", ",", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654954026177184*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[331]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"ChnIdentV2", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654954029792923*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[333]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"Third", " ", "Expansion", " ", "of", FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "s"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], " ", RowBox[{"i", "!"}], " ", SuperscriptBox["a", "n"], " ", TemplateBox[{"h","i"}, "Binomial"], " ", TemplateBox[{"h","k"}, "Binomial"], " ", TemplateBox[{"m","s"}, "Binomial"], " ", RowBox[{ RowBox[{"{", GridBox[{ {"s"}, {"i"} }], "}"}], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["R", "a"], "-", "1"}], ")"}], RowBox[{"m", "-", "s"}]], " ", TemplateBox[{FractionBox["R", "a"],RowBox[{"n", "-", "k"}]}, "Pochhammer"]}]}]}], ")"}]}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, { 3.652533772540811*^9, 3.652533784779984*^9}, 3.652534046386978*^9, { 3.654954067408689*^9, 3.654954068334752*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", "ChnIdentV3", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChnIdentV3", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChnIdentV3", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654954083874743*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[336]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"ChnIdentV3", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654954093261917*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[338]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"Fourth", " ", "Expansion", " ", "of", FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "s"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"v", "=", "0"}], "i"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ RowBox[{"i", "!"}], " ", TemplateBox[{"h","k"}, "Binomial"], " ", TemplateBox[{RowBox[{"h", "+", "v"}],"v"}, "Binomial"], " ", TemplateBox[{"i","v"}, "Binomial"], " ", TemplateBox[{"m","s"}, "Binomial"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"i", "+", "m", "-", "v"}]], " ", RowBox[{ RowBox[{"{", GridBox[{ {"s"}, {"i"} }], "}"}], "[", GridBox[{ {"k"}, {"m"} }], "]"}], " ", SuperscriptBox["a", RowBox[{ RowBox[{"-", "m"}], "+", "n", "+", "s"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", "a"}], ")"}], RowBox[{"m", "-", "s"}]], " ", TemplateBox[{FractionBox["R", "a"],RowBox[{"n", "-", "k"}]}, "Pochhammer"]}]}]}], ")"}]}]}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, { 3.652533772540811*^9, 3.652533784779984*^9}, 3.652534036411985*^9, { 3.6549541100227337`*^9, 3.6549541116155357`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", "ChnIdentV4", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChnIdentV4", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChnIdentV4", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6549541299630747`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[340]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"ChnIdentV4", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654954136188169*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[342]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "+", "s", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"R", "-", "a"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654954144601617*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[344]:="], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"Fifth", " ", "Expansion", " ", "of", FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], " ", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "n"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "0"}], "s"], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ TemplateBox[{"h","k"}, "Binomial"], " ", TemplateBox[{"m","t"}, "Binomial"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], RowBox[{"m", "-", "t"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "i"}], "+", "m", "+", "s"}]], " ", RowBox[{ RowBox[{ RowBox[{"{", GridBox[{ {"s"}, {"i"} }], "}"}], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], " ", "[", GridBox[{ { RowBox[{"n", "-", "k"}]}, { RowBox[{"s", "-", "t"}]} }], "]"}]}]}]}], ")"}], " ", "\[Times]", " ", SuperscriptBox["a", "n"], " ", TemplateBox[{FractionBox["R", "a"],"i"}, "Pochhammer"]}]}]}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, { 3.652533772540811*^9, 3.652533784779984*^9}, {3.6525339952350407`*^9, 3.652534012388529*^9}, {3.653271538438366*^9, 3.653271538618923*^9}, { 3.654954323191709*^9, 3.65495432390458*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", "ChnIdentV5", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChnIdentV5", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChnIdentV5", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{"s", "-", "t"}]}], "]"}], "*", RowBox[{"S2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "s", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", RowBox[{"m", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "s"}], "}"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654954365310389*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[346]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"ChnIdentV5", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549543614965*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[348]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generate particular cases of the polynomial identities for the sequence, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]], "Output", CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], ", with respect to h:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654792878107291*^9, 3.654792922032915*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ "Compute", " ", "cases", " ", "of", " ", "the", " ", "polynomials", " ", "only", " ", "in", " ", RowBox[{"h", ":"}]}], FontWeight->"Bold"], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.654954773253684*^9, 3.654955076502446*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"getStirlingNumberPolySum", "[", RowBox[{"n_", ",", "i_", ",", "h_"}], "]"}], ":=", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{"s", "-", "t"}]}], "]"}], "*", RowBox[{"S2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "s", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", RowBox[{"m", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "s"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", RowBox[{"Product", "[", RowBox[{ RowBox[{"h", "-", "n", "+", "j"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"knownFactorsV2", "[", RowBox[{"n_", ",", "i_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Binomial", "[", RowBox[{"n", ",", "i"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"knownFactorsV3", "[", RowBox[{"n_", ",", "i_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Binomial", "[", RowBox[{"n", ",", "i"}], "]"}], "*", RowBox[{"m", "[", RowBox[{"n", ",", "h"}], "]"}]}], ")"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, {3.6549548262909946`*^9, 3.654954933690593*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[350]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"i", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Factor", "[", RowBox[{"getStirlingNumberPolySum", "[", RowBox[{"n", ",", "i", ",", "h"}], "]"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549549490135*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[356]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"i", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[GreaterEqual]", "i"}], ",", RowBox[{ RowBox[{"getStirlingNumberPolySum", "[", RowBox[{"n", ",", "i", ",", "h"}], "]"}], "/", RowBox[{"(", RowBox[{"knownFactorsV2", "[", RowBox[{"n", ",", "i"}], "]"}], ")"}]}], ",", "0"}], "]"}], "]"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654954965003997*^9, 3.6549549860258083`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[358]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"m", "[", RowBox[{"n", ",", "h"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654954997491938*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[360]:="], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "10"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"i", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[GreaterEqual]", "i"}], ",", RowBox[{ RowBox[{"getStirlingNumberPolySum", "[", RowBox[{"n", ",", "i", ",", "h"}], "]"}], "/", RowBox[{"(", RowBox[{"knownFactorsV3", "[", RowBox[{"n", ",", "i"}], "]"}], ")"}]}], ",", "0"}], "]"}], "]"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6549550263806343`*^9, 3.6549550438926477`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[362]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Verify \ the stated identities expanding the sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["R", RowBox[{"h", ",", "k"}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], ":" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654792951470611*^9, 3.654793004517646*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "Generate", " ", "special", " ", "cases", " ", "of", " ", "the", " ", "Table", " ", "formulas"}], FontWeight->"Bold", FontVariations->{"Underline"->True}], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{ RowBox[{ "Special", " ", "Cases", " ", "of", " ", "the", " ", "auxiliary", " ", "numerator", " ", "subsequences"}], ",", FormBox[ RowBox[{ SubscriptBox["R", RowBox[{"h", ",", "k"}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}], TraditionalForm], ",", RowBox[{"in", " ", "the", " ", "following", " ", "forms"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"h", "-", "k"}]], " ", SuperscriptBox["z", RowBox[{"k", "-", "h"}]], " ", "\[Times]", " ", RowBox[{ SubscriptBox["R", RowBox[{"h", ",", RowBox[{"h", "-", "k"}]}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}]}], TraditionalForm], "and", " ", RowBox[{"k", "!"}], "\[Times]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"h", "-", "k"}]], " ", SuperscriptBox["z", RowBox[{"k", "-", "h"}]], " ", "\[Times]", " ", RowBox[{ SubscriptBox["R", RowBox[{"h", ",", RowBox[{"h", "-", "k"}]}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}]}], TraditionalForm]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{"(", RowBox[{ "See", " ", "the", " ", "tables", " ", "in", " ", "the", " ", "last", " ", "appendix", " ", "section", " ", "of", " ", "this", " ", RowBox[{"notebook", "."}]}], ")"}], FontSlant->"Italic"], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653269404904002*^9, 3.653269422500451*^9}, {3.654953591485467*^9, 3.654953619780616*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"First", " ", "stated", " ", "expansion", " ", "of", FormBox[ RowBox[{ SubscriptBox["R", RowBox[{"h", ",", "k"}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}], TraditionalForm]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, { 3.652533772540811*^9, 3.652533784779984*^9}, {3.6525339952350407`*^9, 3.652534012388529*^9}, {3.653271538438366*^9, 3.653271538618923*^9}, { 3.654953467851203*^9, 3.6549534841368856`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Rhk", "[", RowBox[{"h", ",", "k", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"i", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "i"}], ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", RowBox[{"m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{"h", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "i"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549535356676683`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[320]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Second", " ", "stated", " ", "expansion", " ", "of", FormBox[ RowBox[{ SubscriptBox["R", RowBox[{"h", ",", "k"}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}], TraditionalForm]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525334128879213`*^9, {3.6525334836843357`*^9, 3.652533484523328*^9}, { 3.652533772540811*^9, 3.652533784779984*^9}, {3.6525339952350407`*^9, 3.652534012388529*^9}, {3.653271538438366*^9, 3.653271538618923*^9}, { 3.654953467851203*^9, 3.6549535060040827`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "16"}], ";", RowBox[{"nupper", "=", "hupper"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cfs", "[", RowBox[{"h", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"Rhk", "[", RowBox[{"h", ",", "k", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", "p"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"i", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "i"}], ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{ RowBox[{"m", "-", "t"}], ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "p", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{"h", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "i"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"m", "-", "t"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654953546390429*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[322]:="] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section]6: Applications and motivating examples:", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, {3.654789442546795*^9, 3.6547894525972767`*^9}, {3.654790186006219*^9, 3.6547902184028273`*^9}, { 3.654790491696991*^9, 3.654790491764077*^9}, {3.65479306937361*^9, 3.654793080818492*^9}, 3.65496050625207*^9}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] New congruences for the \ Stirling numbers of the first kind:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.6547934073862762`*^9, 3.65479344975705*^9}, {3.654797676393167*^9, 3.654797681127089*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Compute \ the Stirling and \[Alpha]-factorial coefficient triangles from the series \ expansions of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Conv", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{"R", ";", "z"}]}], ")"}], TraditionalForm]], "Input", CellChangeTimes->{{3.647861512356234*^9, 3.647861512568672*^9}}], " over R and z:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654797886528064*^9, 3.654797927504972*^9}, {3.654797994101177*^9, 3.6547980058703527`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "Verify", " ", "the", " ", "formal", " ", "coefficient", " ", "identities", " ", RowBox[{"for", " ", "[", GridBox[{ {"n"}, {"k"} }], "]"}], " ", SubscriptBox[ RowBox[{"and", "[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "Tables", " ", "of", " ", "the", " ", "coefficient", " ", "triangles", " ", "computed", " ", "from", " ", "the", " ", "coefficients", " ", "of", " ", "R", " ", "and", " ", "z"}], TraditionalForm], "\n", FormBox[ RowBox[{"in", FormBox[ RowBox[{ SubscriptBox["Conv", "h"], "(", RowBox[{"1", ",", RowBox[{"R", ";", "z"}]}], ")"}], TraditionalForm], "for", " ", "the", " ", "Stirling", " ", "numbers", " ", "and"}], TraditionalForm], "\n", FormBox[ RowBox[{ RowBox[{"in", FormBox[ RowBox[{ RowBox[{ SubscriptBox["Conv", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{ RowBox[{"R", "+", "1"}], ";", "z"}]}], ")"}], " ", "for", " ", "the", " ", "generalized", " ", "triangle", " ", "cases"}], TraditionalForm]}], ":"}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262559727309*^9, 3.653262561319997*^9}, {3.654934962195413*^9, 3.6549349929129267`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Modulo", " ", "2"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262559727309*^9, 3.653262561319997*^9}, 3.6549350448519907`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "2"}], ";", RowBox[{"nmupper", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654935114146591*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[231]:="], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "2"}], ";", RowBox[{"nmupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", "n", ",", "m"}], "]"}], ",", "modh"}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "a", ",", RowBox[{"R", "+", "1"}], ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "modh"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654935117460018*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[233]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Modulo", " ", "3"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262559727309*^9, 3.653262561319997*^9}, {3.65326259476291*^9, 3.653262594924897*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "3"}], ";", RowBox[{"nmupper", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65493513544945*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[235]:="], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "3"}], ";", RowBox[{"nmupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", "n", ",", "m"}], "]"}], ",", "modh"}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "a", ",", RowBox[{"R", "+", "1"}], ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "modh"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654935140272676*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[237]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Modulo", " ", "4"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262559727309*^9, 3.653262561319997*^9}, {3.653262604092787*^9, 3.6532626046774063`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "4"}], ";", RowBox[{"nmupper", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654935152813739*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[239]:="], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "4"}], ";", RowBox[{"nmupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", "n", ",", "m"}], "]"}], ",", "modh"}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "a", ",", RowBox[{"R", "+", "1"}], ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "modh"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549351562863283`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[241]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Modulo", " ", "5"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262559727309*^9, 3.653262561319997*^9}, {3.653262613070148*^9, 3.6532626131930933`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "5"}], ";", RowBox[{"nmupper", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549350785385437`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[243]:="], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "5"}], ";", RowBox[{"nmupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"s1", "[", RowBox[{"n", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", "n", ",", "m"}], "]"}], ",", "modh"}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "a", ",", RowBox[{"R", "+", "1"}], ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "modh"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nmupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654935083005946*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[245]:="], Cell[BoxData[ FormBox[ RowBox[{ StyleBox[" ", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{ "Examples", " ", "of", " ", "special", " ", "case", " ", "series", " ", "in", " ", "z", " ", "for", " ", "the", " ", "Stirling", " ", "numbers", " ", "obtained", " ", "from", " ", SuperscriptBox["theh", "th"], "convergent", " ", RowBox[{"functions", ":"}]}], FontWeight->"Bold"], "\[IndentingNewLine]", RowBox[{ RowBox[{"Series", " ", "expansions", " ", "modulo", " ", "2"}], ",", "3", ",", "4", ",", "5", ",", " ", RowBox[{ RowBox[{"and", " ", "6"}], ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262798275796*^9, 3.6532628158041267`*^9}, {3.654935762481556*^9, 3.654935777957341*^9}, {3.654935814129459*^9, 3.654935816442005*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"convhlower", ",", "convhupper", ",", "scfupper"}], "}"}], "=", RowBox[{"{", RowBox[{"2", ",", "6", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getConvSeriesDataList", "[", "convh_", "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"convh", ",", "1", ",", "R", ",", "z"}], "]"}], "]"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"R", "^", "_"}], ",", "Factor"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{ RowBox[{"2", "*", "convh"}], "+", "1"}]}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "^", "_"}], ",", "Factor"}], "]"}], "&"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ConvHIndex", "\[Rule]", "convh"}], ",", RowBox[{"CF", "[", RowBox[{"getConvSeriesDataList", "[", "convh", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"convh", ",", "convhlower", ",", "convhupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549358051194973`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[283]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the Stirling numbers modulo 2:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654798011884602*^9, 3.654798027586685*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Series", " ", "expansions", " ", "of", " ", "the", " ", "convergent", " ", "function", " ", "in", " ", "powers", " ", "of", " ", RowBox[{"R", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262963890737*^9, 3.653262985684697*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"modh", ",", "seriesRUpper"}], "}"}], "=", RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"modh", ",", "1", ",", "R", ",", "z"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "seriesRUpper"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654936770154093*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "several", " ", "particular", " ", "cases", " ", "of", " ", "the", " ", "series", " ", RowBox[{"coefficients", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262963890737*^9, 3.653263020722637*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"getS1CoeffModData", "[", RowBox[{"modh_", ",", "m_", ",", "n_", ",", "simpFnsList_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"scfFull", ",", "scfPartialTerms", ",", "rData"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"scfFull", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "m", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"scfPartialTerms", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"modh", ",", "m", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", ">", "m"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rData", "=", RowBox[{"{", RowBox[{ RowBox[{"S1ModMFullV1", "[", "m", "]"}], ",", "scfFull", ",", RowBox[{"S1ModMV2", "[", "m", "]"}], ",", "scfPartialTerms", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#1", "[", "scfPartialTerms", "]"}], "&"}], ",", "simpFnsList"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Flatten", "[", "rData", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.654936810246296*^9, { 3.654937266364661*^9, 3.6549372999800987`*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[356]:="], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "2"}], ";", RowBox[{"mupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simpFnsList", "=", RowBox[{"{", RowBox[{"Factor", ",", "FS", ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "#", "]"}], ",", RowBox[{"n", "^", "_"}], ",", "FS"}], "]"}], "&"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "m"}], ",", RowBox[{"CF", "[", RowBox[{"getS1CoeffModData", "[", RowBox[{"modh", ",", "m", ",", "n", ",", "simpFnsList"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "mupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654936795039075*^9, 3.6549368167693977`*^9}, {3.654937089892674*^9, 3.654937101901383*^9}, { 3.654937135587524*^9, 3.654937141506611*^9}, {3.654937275391687*^9, 3.654937280562861*^9}, {3.654937368125411*^9, 3.65493737431174*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[357]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "to", " ", "verify", " ", "special", " ", "cases", " ", "of", " ", "these", " ", RowBox[{"congruences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262963890737*^9, 3.653263020722637*^9}, {3.6532632796908484`*^9, 3.6532633059683533`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"p2nm", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "/", "4"}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"3", "/", "16"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "7"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"9", "n"}], "-", "20"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "9"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "10"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "7"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "5"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "13"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"27", " ", RowBox[{"n", "^", "3"}]}], "-", RowBox[{"279", " ", RowBox[{"n", "^", "2"}]}], "+", RowBox[{"934", "n"}], "-", "1008"}], ")"}], "*", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "6"}], ",", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "15"}]}], "]"}], "/", "5"}], "*", RowBox[{"(", RowBox[{ RowBox[{"9", " ", RowBox[{"n", "^", "2"}]}], "-", RowBox[{"71", "n"}], "+", "120"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "14"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "-", "11"}], ")"}], "*", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "7"}], ",", RowBox[{ FractionBox["1", "15"], " ", SuperscriptBox["2", RowBox[{ RowBox[{"-", "18"}], "+", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "411840"}], "+", RowBox[{"494792", " ", "n"}], "-", RowBox[{"229630", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"51705", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"5670", " ", SuperscriptBox["n", "4"]}], "+", RowBox[{"243", " ", SuperscriptBox["n", "5"]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "8"}], ",", RowBox[{ FractionBox["1", "35"], " ", SuperscriptBox["2", RowBox[{ RowBox[{"-", "20"}], "+", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"120120", "-", RowBox[{"112582", " ", "n"}], "+", RowBox[{"36873", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"5022", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"243", " ", SuperscriptBox["n", "4"]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "9"}], ",", RowBox[{ FractionBox["1", "105"], " ", SuperscriptBox["2", RowBox[{ RowBox[{"-", "25"}], "+", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "326726400"}], "+", RowBox[{"454695280", " ", "n"}], "-", RowBox[{"261810612", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"81223688", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"14717115", " ", SuperscriptBox["n", "4"]}], "+", RowBox[{"1562085", " ", SuperscriptBox["n", "5"]}], "-", RowBox[{"90153", " ", SuperscriptBox["n", "6"]}], "+", RowBox[{"2187", " ", SuperscriptBox["n", "7"]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "10"}], ",", RowBox[{ FractionBox["1", "105"], " ", SuperscriptBox["2", RowBox[{ RowBox[{"-", "27"}], "+", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "22"}], "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "19"}], "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2970240", "-", RowBox[{"3487048", " ", "n"}], "+", RowBox[{"1614466", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"379279", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"47925", " ", SuperscriptBox["n", "4"]}], "-", RowBox[{"3105", " ", SuperscriptBox["n", "5"]}], "+", RowBox[{"81", " ", SuperscriptBox["n", "6"]}]}], ")"}]}], ",", "\[IndentingNewLine]", "True", ",", "\"\\""}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2nmCongFn", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "<", "m"}], ",", "0", ",", "\[IndentingNewLine]", RowBox[{"n", "\[Equal]", "m"}], ",", "1", ",", "\[IndentingNewLine]", RowBox[{"n", ">", "m"}], ",", RowBox[{"p2nm", "[", RowBox[{"n", ",", "m"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654936984083128*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[344]:="], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "2"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nupper", "=", "18"}], ";", RowBox[{"mupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cong", "[", RowBox[{"m", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "\[IndentingNewLine]", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"Ceiling", "[", RowBox[{"n", "/", "2"}], "]"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"x", "+", "1"}], ",", RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "m"}], "}"}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}], ",", RowBox[{"m", "-", RowBox[{"Ceiling", "[", RowBox[{"n", "/", "2"}], "]"}]}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"p2nmCongFn", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "mupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654936972020026*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[341]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the Stirling numbers modulo 3:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.65479803388971*^9, 3.654798035402141*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Series", " ", "expansions", " ", "of", " ", "the", " ", "convergent", " ", "function", " ", "in", " ", "powers", " ", "of", " ", RowBox[{"R", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262963890737*^9, 3.653262985684697*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"modh", ",", "seriesRUpper"}], "}"}], "=", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{"Conv", "[", RowBox[{"modh", ",", "1", ",", "R", ",", "z"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "seriesRUpper"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.654936770154093*^9, { 3.654938025863905*^9, 3.654938026010273*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[404]:="], Cell[BoxData[ FormBox[ RowBox[{"Reflected", " ", "denominator", " ", RowBox[{"roots", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262963890737*^9, 3.653262985684697*^9}, {3.6532636956891737`*^9, 3.653263701456419*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"6", " ", "z"}], "+", RowBox[{"6", " ", SuperscriptBox["z", "2"]}]}], ")"}], "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", RowBox[{"1", "/", "z"}]}], ")"}]}], ")"}], ")"}]}], " ", "//", " ", "Expand"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{"%", "\[Equal]", "0"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654938050355151*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[409]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "several", " ", "particular", " ", "cases", " ", "of", " ", "the", " ", "series", " ", RowBox[{"coefficients", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262963890737*^9, 3.653263020722637*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "3"}], ";", RowBox[{"mupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rootSubsts", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", "-", SqrtBox["3"]}], "\[Rule]", RowBox[{"r", "[", "1", "]"}]}], ",", RowBox[{ RowBox[{"3", "+", SqrtBox["3"]}], "\[Rule]", RowBox[{"r", "[", "2", "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simpFnsList", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "/.", "rootSubsts"}], ")"}], "&"}], ",", RowBox[{ RowBox[{"Factor", "[", RowBox[{"#", "/.", "rootSubsts"}], "]"}], "&"}], ",", RowBox[{ RowBox[{ RowBox[{"FS", "[", "#", "]"}], "/.", "rootSubsts"}], "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", "#", "]"}], "/.", "rootSubsts"}], "]"}], ",", RowBox[{ RowBox[{"r", "[", "_", "]"}], "^", "_"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"n", "^", "_"}], ",", "FS"}], "]"}], "&"}]}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", "#", "]"}], "/.", "rootSubsts"}], "]"}], ",", RowBox[{ RowBox[{"r", "[", "_", "]"}], "^", "_"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"Sqrt", "[", "3", "]"}], ",", "Factor"}], "]"}], "&"}]}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", "#", "]"}], "/.", "rootSubsts"}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"Sqrt", "[", "3", "]"}], ",", "Factor"}], "]"}], "&"}]}], "]"}], "&"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "m"}], ",", RowBox[{"CF", "[", RowBox[{"getS1CoeffModData", "[", RowBox[{"modh", ",", "m", ",", "n", ",", "simpFnsList"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "mupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654936795039075*^9, 3.6549368167693977`*^9}, {3.654937089892674*^9, 3.654937101901383*^9}, { 3.654937135587524*^9, 3.654937141506611*^9}, {3.654937275391687*^9, 3.654937280562861*^9}, {3.6549373260364428`*^9, 3.654937332894045*^9}, { 3.654937383984233*^9, 3.654937400045327*^9}, {3.6549374679594917`*^9, 3.654937485664981*^9}, {3.6549375168959312`*^9, 3.65493756074129*^9}, { 3.6549376224956627`*^9, 3.654937636856324*^9}, {3.6549377133245087`*^9, 3.654937832638295*^9}, 3.6549382717643433`*^9, {3.654940595544853*^9, 3.654940603284443*^9}, {3.654940636715288*^9, 3.6549406631888866`*^9}, { 3.6549407042232847`*^9, 3.654940704443255*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[450]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "to", " ", "verify", " ", "special", " ", "cases", " ", "of", " ", "these", " ", RowBox[{"congruences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653262963890737*^9, 3.653263020722637*^9}, {3.6532632796908484`*^9, 3.6532633059683533`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"p3nm", "[", RowBox[{"n_", ",", "m_", ",", "j_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{"9", "-", RowBox[{"5", "*", "j", "*", RowBox[{"Sqrt", "[", "3", "]"}]}]}], ")"}], "/", "36"}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"44", "n"}], "-", "41"}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"24", "-", RowBox[{"25", "n"}]}], ")"}], "*", "j", "*", RowBox[{"Sqrt", "[", "3", "]"}]}]}], ")"}], "/", "216"}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1299", " ", RowBox[{"n", "^", "2"}]}], "-", RowBox[{"3837", " ", "n"}], "+", "2412"}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "745"}], " ", RowBox[{"n", "^", "2"}]}], "+", RowBox[{"2217", " ", "n"}], "-", "1418"}], ")"}], "*", "j", "*", RowBox[{"Sqrt", "[", "3", "]"}]}]}], ")"}], "/", "15552"}], ",", "\[IndentingNewLine]", RowBox[{"m", "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6409", " ", RowBox[{"n", "^", "3"}]}], "-", RowBox[{"38778", " ", RowBox[{"n", "^", "2"}]}], "+", RowBox[{"70901", " ", "n"}], "-", "37092"}], ")"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3690", " ", RowBox[{"n", "^", "3"}]}], "-", RowBox[{"22374", " ", RowBox[{"n", "^", "2"}]}], "+", RowBox[{"41088", " ", "n"}], "-", "21708"}], ")"}], "*", "j", "*", RowBox[{"Sqrt", "[", "3", "]"}]}]}], ")"}], "/", "279936"}], ",", "\[IndentingNewLine]", "True", ",", "\"\\""}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3nmCongFn", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "<", "m"}], ",", "0", ",", "\[IndentingNewLine]", RowBox[{"n", "\[Equal]", "m"}], ",", "1", ",", "\[IndentingNewLine]", RowBox[{"n", ">", "m"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"p3nm", "[", RowBox[{"n", ",", "m", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"3", "+", RowBox[{"j", "*", RowBox[{"Sqrt", "[", "3", "]"}]}]}], ",", "n"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654938292551629*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[426]:="], Cell[BoxData[{ RowBox[{ RowBox[{"modh", "=", "3"}], ";", RowBox[{"modOffset", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nupper", "=", "18"}], ";", RowBox[{"mupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cong", "[", RowBox[{"m", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"Ceiling", "[", RowBox[{"n", "/", "3"}], "]"}]}], "]"}], RowBox[{"Power", "[", RowBox[{ RowBox[{"x", "+", "1"}], ",", RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "3"}], "]"}]}], "]"}], RowBox[{"Power", "[", RowBox[{ RowBox[{"x", "+", "2"}], ",", RowBox[{"Floor", "[", RowBox[{"n", "/", "3"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "m"}], "}"}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "3"}], "]"}], ",", "k"}], "]"}], RowBox[{"Binomial", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"n", "/", "3"}], "]"}], ",", RowBox[{"m", "-", "k", "-", RowBox[{"Ceiling", "[", RowBox[{"n", "/", "3"}], "]"}]}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{"n", "/", "3"}], "]"}], "+", RowBox[{"Floor", "[", RowBox[{"n", "/", "3"}], "]"}], "-", RowBox[{"(", RowBox[{"m", "-", "k"}], ")"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}], ",", "modh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"p3nmCongFn", "[", RowBox[{"n", ",", "m"}], "]"}], ",", "modh", ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "mupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.6549382993502083`*^9, { 3.654938337669815*^9, 3.654938339695345*^9}, {3.654940477573842*^9, 3.6549405622730637`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[431]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] New congruence properties and \ rational generating functions for the r-order harmonic number sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.6547934073862762`*^9, 3.65479344975705*^9}, 3.654797686357279*^9, { 3.654798092511286*^9, 3.654798101566085*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Rational \ generating functions for the first-order harmonic numbers:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654798109189517*^9, 3.654798125540959*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ RowBox[{ RowBox[{"printRationalHNum1GFs", "[", RowBox[{"convfnh_", ",", "rpow_", ",", "denomPow_", ",", "nupper_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "sc", ",", "numfn", ",", "denomfn", ",", "convFnData", ",", "gfzv2", ",", "gfzv1", ",", "gfzv0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sc", "=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"convfnh", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "rpow"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], ";", "\[IndentingNewLine]", RowBox[{"numfn", "=", RowBox[{"Factor", "[", RowBox[{"Numerator", "[", "sc", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"denomfn", "=", RowBox[{"Factor", "[", RowBox[{"PE", "[", RowBox[{"Power", "[", RowBox[{ RowBox[{"Denominator", "[", "sc", "]"}], ",", RowBox[{"1", "/", RowBox[{"(", "rpow", ")"}]}]}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"convFnData", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ConvFn", ",", "sc", ",", RowBox[{"Factor", "[", "sc", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ConvNumFn", ",", "numfn"}], "}"}], ",", RowBox[{"{", RowBox[{"ConvDenomFn", ",", "denomfn"}], "}"}], ",", RowBox[{"{", RowBox[{"ConvDenomPowFn", ",", "denomPow"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", "convFnData", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"OverZPow", "\[Rule]", "#1"}], ",", RowBox[{"Apart", "[", RowBox[{ RowBox[{"FS", "[", "sc", "]"}], "/", RowBox[{"Power", "[", RowBox[{"z", ",", "#1"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", RowBox[{"Reverse", "[", RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"OverZPow", "\[Rule]", "#1"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Apart", "[", RowBox[{ RowBox[{"FS", "[", "sc", "]"}], "/", RowBox[{"Power", "[", RowBox[{"z", ",", "#1"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"(", "denomPow", ")"}], "^", "_"}], ",", "Factor"}], "]"}]}], "}"}], "&"}], ",", RowBox[{"Reverse", "[", RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"gfzv2", ",", "gfzv1", ",", "gfzv0"}], "}"}], "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Apart", "[", RowBox[{ RowBox[{"FS", "[", "sc", "]"}], "/", RowBox[{"Power", "[", RowBox[{"z", ",", "#1"}], "]"}]}], "]"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "2"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "!"}], ")"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ",", "convfnh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv2", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "convfnh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv1", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convfnh", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv0", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "convfnh", ",", "modOffset"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.654964926093532*^9, 3.6549657028714247`*^9, 3.654970459052285*^9, {3.6549705629925327`*^9, 3.654970574919005*^9}, {3.654970703641932*^9, 3.654971057720769*^9}, { 3.6549712930785627`*^9, 3.654971299177931*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[449]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Congruences", " ", "modulo", " ", "2"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653266923144956*^9, 3.653266937063912*^9}, {3.653267008478457*^9, 3.6532670179889936`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convfnh", "=", "2"}], ";", RowBox[{"rpow", "=", "2"}], ";", RowBox[{"nupper", "=", "25"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"denomPow", "=", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum1GFs", "[", RowBox[{ "convfnh", ",", "rpow", ",", "denomPow", ",", "nupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549711150642967`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[450]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Congruences", " ", "modulo", " ", "3"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653266923144956*^9, 3.653266937063912*^9}, {3.653267008478457*^9, 3.6532670179889936`*^9}, {3.6549714072755404`*^9, 3.654971407346019*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convfnh", "=", "3"}], ";", RowBox[{"rpow", "=", "2"}], ";", RowBox[{"nupper", "=", "25"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"denomPow", "=", RowBox[{"(", RowBox[{"1", "-", RowBox[{"6", " ", "z"}], "+", RowBox[{"6", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum1GFs", "[", RowBox[{ "convfnh", ",", "rpow", ",", "denomPow", ",", "nupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65497111645333*^9, 3.6549711535496883`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[453]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Congruences", " ", "modulo", " ", "4"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653266923144956*^9, 3.653266937063912*^9}, {3.653267008478457*^9, 3.6532670179889936`*^9}, {3.654971411072351*^9, 3.654971411201262*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convfnh", "=", "4"}], ";", RowBox[{"rpow", "=", "2"}], ";", RowBox[{"nupper", "=", "25"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"denomPow", "=", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "z"}], "-", RowBox[{"36", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"24", " ", SuperscriptBox["z", "3"]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum1GFs", "[", RowBox[{ "convfnh", ",", "rpow", ",", "denomPow", ",", "nupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6549711684589853`*^9, 3.654971192349987*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[456]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Congruences", " ", "modulo", " ", "5"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653266923144956*^9, 3.653266937063912*^9}, {3.653267008478457*^9, 3.6532670179889936`*^9}, {3.6549714199023952`*^9, 3.654971420040716*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convfnh", "=", "5"}], ";", RowBox[{"rpow", "=", "2"}], ";", RowBox[{"nupper", "=", "25"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"denomPow", "=", RowBox[{"(", RowBox[{"1", "-", RowBox[{"20", " ", "z"}], "+", RowBox[{"120", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"240", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"120", " ", SuperscriptBox["z", "4"]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum1GFs", "[", RowBox[{ "convfnh", ",", "rpow", ",", "denomPow", ",", "nupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6549711684589853`*^9, 3.654971215273386*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[459]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Congruences", " ", "modulo", " ", "6"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653266923144956*^9, 3.653266937063912*^9}, {3.653267008478457*^9, 3.6532670179889936`*^9}, {3.654971424846302*^9, 3.65497142522394*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convfnh", "=", "6"}], ";", RowBox[{"rpow", "=", "2"}], ";", RowBox[{"nupper", "=", "25"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"denomPow", "=", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"30", " ", "z"}], "-", RowBox[{"300", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"1200", " ", SuperscriptBox["z", "3"]}], "-", RowBox[{"1800", " ", SuperscriptBox["z", "4"]}], "+", RowBox[{"720", " ", SuperscriptBox["z", "5"]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum1GFs", "[", RowBox[{ "convfnh", ",", "rpow", ",", "denomPow", ",", "nupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6549711684589853`*^9, 3.654971235037941*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[462]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Rational \ generating functions for the second-order and third-order harmonic numbers:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654798132440301*^9, 3.654798146850974*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp_", ",", "m_", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "m", ",", "n"}], "]"}], "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"convp", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{"cfFn_", ",", "z_", ",", "nupper_", ",", RowBox[{"nmin_:", "4"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "fsfData", ",", "linrec", ",", "denom", ",", "num", ",", "coeffs", ",", "gfz"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fsfData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"cfFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"linrec", "=", RowBox[{"FindLinearRecurrence", "[", "fsfData", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"denom", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "linrec", ")"}], "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "linrec", "]"}]}], "}"}]}], "]"}]}], ")"}], " ", "//", " ", "Factor"}]}], ";", "\[IndentingNewLine]", RowBox[{"num", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "i", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "linrec", "]"}], "+", "nmin"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"coeffs", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"num", "/", "denom"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "==", RowBox[{"cfFn", "[", "n", "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "linrec", "]"}], "+", "nmin"}]}], "}"}]}], "]"}], " ", "//", " ", "Solve"}]}], ";", "\[IndentingNewLine]", RowBox[{"gfz", "=", RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{"(", RowBox[{"num", "/", "denom"}], ")"}], "/.", RowBox[{"(", "coeffs", ")"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "gfz", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cfFnV1", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "2"}], "-", RowBox[{"2", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cfFnV2", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}], "+", RowBox[{"3", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "4", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cfFnV3", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "4"}], "-", RowBox[{"4", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}], "+", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "4", ",", "n"}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}], "^", "2"}], ")"}]}], "-", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "3"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "5", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gfSimpFn", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ConvP", "\[Rule]", "convp"}], ",", RowBox[{"ROrder", "\[Rule]", RowBox[{ RowBox[{"First", "[", "#2", "]"}], "+", "1"}]}], ",", RowBox[{"ConvFnGFDenom", "\[Rule]", RowBox[{"Factor", "[", RowBox[{"Denominator", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "]"}]}], ",", RowBox[{"ConvFnGFApart", "\[Rule]", RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}]}], ",", RowBox[{"ConvFnGFApartTeXForm", "\[Rule]", RowBox[{"TeXForm", "[", RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "]"}]}], ",", RowBox[{"ConvFnGF", "\[Rule]", RowBox[{"Factor", "[", "#1", "]"}]}], ",", RowBox[{"ConvFnGFTeXForm", "\[Rule]", RowBox[{"TeXForm", "[", RowBox[{"Factor", "[", "#1", "]"}], "]"}]}], ",", RowBox[{"ConvFnGFV2", "\[Rule]", RowBox[{"FS", "[", "#1", "]"}]}], ",", RowBox[{"ConvFnGFSeries", "\[Rule]", RowBox[{"Series", "[", RowBox[{ RowBox[{"Factor", "[", "#1", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "12"}], "}"}]}], "]"}]}]}], "}"}], "&"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp_", ",", "cfnupper_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"gfzv1", ",", "gfzv2", ",", "modCoeffsTbl"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"gfzv1", "=", RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{ RowBox[{ RowBox[{"cfFnV1", "[", RowBox[{"convp", ",", "#1"}], "]"}], "&"}], ",", "z", ",", "cfnupper"}], "]"}], "/", "z"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"gfSimpFn", "[", RowBox[{"gfzv1", ",", RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"gfzv2", "=", RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{ RowBox[{ RowBox[{"cfFnV2", "[", RowBox[{"convp", ",", "#1"}], "]"}], "&"}], ",", "z", ",", "cfnupper"}], "]"}], "/", "z"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"gfSimpFn", "[", RowBox[{"gfzv2", ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"modCoeffsTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", "n", ")"}], "!"}], ",", "2"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "2"}], "]"}]}], ",", "convp", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv1", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convp", ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", "n", ")"}], "!"}], ",", "3"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "3"}], "]"}]}], ",", "convp", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv2", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convp", ",", "modOffset"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"10", ",", RowBox[{"5", "+", RowBox[{"2", "*", "convp"}]}]}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", "modCoeffsTbl", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654964926093532*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "2"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267762225025*^9}, {3.654965059705739*^9, 3.654965064084105*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "2"}], ";", RowBox[{"cfnupper", "=", "50"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[422]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "3"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267770363381*^9}, {3.654965071606339*^9, 3.654965071831122*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "3"}], ";", RowBox[{"cfnupper", "=", "50"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654964942918263*^9, 3.65496496843253*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[424]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "4"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267770363381*^9}, {3.6532678197727213`*^9, 3.653267819919437*^9}, {3.654965074281869*^9, 3.654965074507057*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "4"}], ";", RowBox[{"cfnupper", "=", "150"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9, 3.654964981839899*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[426]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "5"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267770363381*^9}, {3.653267806360503*^9, 3.653267806507112*^9}, {3.654965078764456*^9, 3.654965079077546*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "5"}], ";", RowBox[{"cfnupper", "=", "200"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum23GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9, 3.654964994626111*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[428]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Computational routines to generate further cases of the rational generating \ functions for the second-order, third-order, and fourth-order harmonic number \ sequences:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654798132440301*^9, 3.654798146850974*^9}, {3.654953318969521*^9, 3.654953321152398*^9}, { 3.654971636317478*^9, 3.6549717276300497`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp_", ",", "m_", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "m", ",", "n"}], "]"}], "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"convp", ",", "1", ",", "R", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{"cfFn_", ",", "z_", ",", "nupper_", ",", RowBox[{"nmin_:", "4"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "fsfData", ",", "linrec", ",", "denom", ",", "num", ",", "coeffs", ",", "gfz"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fsfData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"cfFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"linrec", "=", RowBox[{"FindLinearRecurrence", "[", "fsfData", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"denom", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "linrec", ")"}], "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "linrec", "]"}]}], "}"}]}], "]"}]}], ")"}], " ", "//", " ", "Factor"}]}], ";", "\[IndentingNewLine]", RowBox[{"num", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "i", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "linrec", "]"}], "+", "nmin"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"coeffs", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"num", "/", "denom"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "==", RowBox[{"cfFn", "[", "n", "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "linrec", "]"}], "+", "nmin"}]}], "}"}]}], "]"}], " ", "//", " ", "Solve"}]}], ";", "\[IndentingNewLine]", RowBox[{"gfz", "=", RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{"(", RowBox[{"num", "/", "denom"}], ")"}], "/.", RowBox[{"(", "coeffs", ")"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "gfz", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cfFnV1", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "2"}], "-", RowBox[{"2", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cfFnV2", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}], "+", RowBox[{"3", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "4", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cfFnV3", "[", RowBox[{"convp_", ",", "n_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "4"}], "-", RowBox[{"4", "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}]}], "+", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "2", ",", "n"}], "]"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "4", ",", "n"}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "3", ",", "n"}], "]"}], "^", "2"}], ")"}]}], "-", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"scn", "[", RowBox[{"convp", ",", "1", ",", "n"}], "]"}], "^", "3"}], ")"}], "*", RowBox[{"scn", "[", RowBox[{"convp", ",", "5", ",", "n"}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gfSimpFn", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ConvP", "\[Rule]", "convp"}], ",", RowBox[{"ROrder", "\[Rule]", RowBox[{ RowBox[{"First", "[", "#2", "]"}], "+", "1"}]}], ",", RowBox[{"ConvFnGFDenom", "\[Rule]", RowBox[{"Factor", "[", RowBox[{"Denominator", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "]"}]}], ",", RowBox[{"ConvFnGFApart", "\[Rule]", RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}]}], ",", RowBox[{"ConvFnGFApartTeXForm", "\[Rule]", RowBox[{"TeXForm", "[", RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "]"}]}], ",", RowBox[{"ConvFnGF", "\[Rule]", RowBox[{"Factor", "[", "#1", "]"}]}], ",", RowBox[{"ConvFnGFTeXForm", "\[Rule]", RowBox[{"TeXForm", "[", RowBox[{"Factor", "[", "#1", "]"}], "]"}]}], ",", RowBox[{"ConvFnGFV2", "\[Rule]", RowBox[{"FS", "[", "#1", "]"}]}], ",", RowBox[{"ConvFnGFSeries", "\[Rule]", RowBox[{"Series", "[", RowBox[{ RowBox[{"Factor", "[", "#1", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "12"}], "}"}]}], "]"}]}]}], "}"}], "&"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"printRationalHNum234GFs", "[", RowBox[{"convp_", ",", "cfnupper_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"gfzv1", ",", "gfzv2", ",", "gfzv3", ",", "modCoeffsTbl"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"gfzv1", "=", RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{ RowBox[{ RowBox[{"cfFnV1", "[", RowBox[{"convp", ",", "#1"}], "]"}], "&"}], ",", "z", ",", "cfnupper"}], "]"}], "/", "z"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"gfSimpFn", "[", RowBox[{"gfzv1", ",", RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"gfzv2", "=", RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{ RowBox[{ RowBox[{"cfFnV2", "[", RowBox[{"convp", ",", "#1"}], "]"}], "&"}], ",", "z", ",", "cfnupper"}], "]"}], "/", "z"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"gfSimpFn", "[", RowBox[{"gfzv2", ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"gfzv3", "=", RowBox[{ RowBox[{"getRationalGF", "[", RowBox[{ RowBox[{ RowBox[{"cfFnV3", "[", RowBox[{"convp", ",", "#1"}], "]"}], "&"}], ",", "z", ",", "cfnupper"}], "]"}], "/", "z"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"CF", "[", RowBox[{"gfSimpFn", "[", RowBox[{"gfzv2", ",", RowBox[{"{", "3", "}"}]}], "]"}], "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"modCoeffsTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", "n", ")"}], "!"}], ",", "2"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "2"}], "]"}]}], ",", "convp", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv1", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convp", ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", "n", ")"}], "!"}], ",", "3"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "3"}], "]"}]}], ",", "convp", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv2", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convp", ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", "n", ")"}], "!"}], ",", "4"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "4"}], "]"}]}], ",", "convp", ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gfzv3", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "convp", ",", "modOffset"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"10", ",", RowBox[{"5", "+", RowBox[{"2", "*", "convp"}]}]}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", "modCoeffsTbl", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.654964926093532*^9, { 3.6549717807424517`*^9, 3.654971834711491*^9}, 3.654971872770719*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[472]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "2"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267762225025*^9}, {3.654965059705739*^9, 3.654965064084105*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "2"}], ";", RowBox[{"cfnupper", "=", "50"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum234GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9, 3.654971974829616*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[479]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "3"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267762225025*^9}, {3.654965059705739*^9, 3.654965064084105*^9}, {3.654972015496087*^9, 3.6549720155781116`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "3"}], ";", RowBox[{"cfnupper", "=", "125"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum234GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9, 3.654971974829616*^9, 3.654972034377116*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[481]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "4"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267762225025*^9}, {3.654965059705739*^9, 3.654965064084105*^9}, {3.654972015496087*^9, 3.6549720155781116`*^9}, { 3.6549720724529047`*^9, 3.65497207259144*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "4"}], ";", RowBox[{"cfnupper", "=", "250"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum234GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9, 3.654971974829616*^9, 3.654972034377116*^9, 3.654972093334347*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[485]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "congruence", " ", "expansions", " ", "modulo", " ", "5"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653267756686673*^9, 3.653267762225025*^9}, {3.654965059705739*^9, 3.654965064084105*^9}, {3.654972015496087*^9, 3.6549720155781116`*^9}, { 3.6549720724529047`*^9, 3.65497207259144*^9}, {3.654972147682334*^9, 3.654972148242634*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"convp", "=", "5"}], ";", RowBox[{"cfnupper", "=", "300"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRationalHNum234GFs", "[", RowBox[{"convp", ",", "cfnupper", ",", "modOffset"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654964942918263*^9, 3.654971974829616*^9, 3.654972034377116*^9, 3.654972093334347*^9, 3.6549721627095118`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[487]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Generalized cases of the \ congruence formulas for the \[Alpha]-factorial function sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654793530683991*^9, 3.6547935607463512`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "The", " ", "special", " ", "case", " ", "results", " ", "for", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{ "factorial", " ", "functions", " ", "given", " ", "in", " ", "the", " ", RowBox[{"introduction", ":"}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{ "See", " ", "the", " ", "expansions", " ", "given", " ", "in", " ", "Section", " ", "2", " ", "of", " ", "the", " ", "introduction", " ", RowBox[{"above", "."}]}], FontSlant->"Italic"], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652855249154272*^9, 3.652855249430101*^9}, {3.652948976917253*^9, 3.652948978008912*^9}, {3.6532614939372263`*^9, 3.653261509922638*^9}, { 3.654952427937476*^9, 3.654952441056028*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{"Tables", " ", "of", " ", "Reflected", " ", "Numerator", " ", RowBox[{"Polynomials", ":", " "}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ "The", " ", "reflected", " ", "numerator", " ", "polynomials", " ", "are", " ", "defined", " ", "by"}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ FormBox[ RowBox[{ OverscriptBox["FP", "~"], "(", RowBox[{"\[Alpha]", ",", "R", ",", "z"}], ")"}], TraditionalForm], " ", ":=", " ", FormBox[ RowBox[{ SuperscriptBox["z", RowBox[{"h", "-", "1"}]], " ", RowBox[{"FP", "(", RowBox[{"\[Alpha]", ",", "R", ",", FractionBox["1", "z"]}], ")"}]}], TraditionalForm]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"(", StyleBox[ RowBox[{ "See", " ", "the", " ", "tables", " ", "in", " ", "the", " ", "last", " ", "section", " ", "of", " ", "this", " ", "notebook", " ", RowBox[{"below", "."}]}], FontSlant->"Italic"], StyleBox[")", FontSlant->"Italic"]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652855249154272*^9, 3.652855249430101*^9}, {3.653261522175589*^9, 3.6532615470538177`*^9}, {3.654952456808413*^9, 3.654952474292316*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "Generating", " ", "the", " ", "Congruences", " ", "Modulo", " ", "p", " ", RowBox[{"(", RowBox[{"and", " ", "p\[Alpha]"}], ")"}], " ", "Tables", " ", "for", " ", "p"}], ":=", "2"}], ",", "3", ",", "4", ",", RowBox[{ RowBox[{"5", " ", "and", " ", "\[Alpha]"}], "\[Element]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}]}], FontWeight->"Bold", FontSlant->"Plain"], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{"(", RowBox[{ "See", " ", "the", " ", "appendix", " ", "section", " ", "at", " ", "the", " ", "end", " ", "of", " ", "the", " ", "notebook", " ", "for", " ", "generating", " ", "these", " ", "table", " ", RowBox[{"listings", "."}]}], ")"}], FontSlant->"Italic"], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652855249154272*^9, 3.652855249430101*^9}, {3.65294884131851*^9, 3.6529489026565733`*^9}, {3.6532616067204647`*^9, 3.653261609885826*^9}, { 3.6549524992451353`*^9, 3.654952525731605*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Compute", " ", "Additional", " ", "Tables", " ", "to", " ", "Verify", " ", "the", " ", "Generalized", " ", "Congruences", " ", "for", " ", "the", " ", "\[Alpha]"}], "-", RowBox[{"Factorial", " ", "Functions", " ", RowBox[{"(", RowBox[{"mod", " ", "p", " ", SuperscriptBox["\[Alpha]", "i"]}], ")"}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ StyleBox[ RowBox[{"(", RowBox[{ "See", " ", "the", " ", "appendix", " ", "section", " ", "at", " ", "the", " ", "end", " ", "of", " ", "the", " ", "notebook", " ", "for", " ", "generating", " ", "the", " ", "table", " ", RowBox[{"listings", "."}]}], ")"}], FontSlant->"Italic"], StyleBox["\[IndentingNewLine]", FontSlant->"Italic"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "The", " ", "following", " ", "code", " ", "is", " ", "also", " ", "used", " ", "to", " ", "compute", " ", "some", " ", "of", " ", "these", " ", "extended", " ", RowBox[{"tables", ":", " "}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652855249154272*^9, 3.652855249430101*^9}, {3.65294884131851*^9, 3.6529489026565733`*^9}, {3.653248694559626*^9, 3.653248699638008*^9}, { 3.654952550317091*^9, 3.65495257422377*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"p_", ",", "alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "alpha"}], ",", "n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"p_", ",", "alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"p", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "alpha", ",", "n", ",", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"RpConvFn", "[", RowBox[{"p", ",", "alpha", ",", "n"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getModString", "[", "modulo_", "]"}], ":=", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<(`1`)\>\"", ",", "modulo"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getCongruenceRowHeader", "[", RowBox[{"p_", ",", "alpha_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "tblHeaderCols", ",", "tblFnValueCols", ",", "computedFnModLabels", ",", "fullTblHeaderData"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tblHeaderCols", "=", RowBox[{"{", RowBox[{ RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\

\"", ",", "p"}], "]"}], "]"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<\[Alpha] \[RightTeeArrow] `1`\>\"", ",", "alpha"}], "]"}], "]"}], ",", "n"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"tblFnValueCols", "=", RowBox[{"{", RowBox[{ "\"\<\!\(TraditionalForm\`\*SubscriptBox[\(n!\), \ \((\[Alpha])\)]\)\>\"", ",", "\"\<\!\(\*SubsuperscriptBox[OverscriptBox[\(R\), \(~\)], \(p\), \((\ \[Alpha])\)]\)(n)\>\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"computedFnModLabels", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "\"\<\!\(TraditionalForm\`\*SubscriptBox[\(n!\), \((\[Alpha])\)]\) \ \>\"", " ", "<>", " ", RowBox[{"getModString", "[", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], "]"}]}], ",", RowBox[{ "\"\<\!\(\*SubsuperscriptBox[OverscriptBox[\(R\), \(~\)], \(p\), \ \((\[Alpha])\)]\)(n) \>\"", " ", "<>", " ", RowBox[{"getModString", "[", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "p"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fullTblHeaderData", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "tblHeaderCols", ",", "tblFnValueCols", ",", "computedFnModLabels"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fullTblHeaderData", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold"}], "]"}], "&"}], ",", "fullTblHeaderData"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "fullTblHeaderData", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"p_", ",", "alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"p", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "alpha", ",", "n", ",", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"RpConvFn", "[", RowBox[{"p", ",", "alpha", ",", "n"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "TableGrid", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableGrid", "[", RowBox[{"table_", ",", RowBox[{"maxCols_:", "10"}]}], "]"}], ":=", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{"table", ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"LightCyan", ",", "Green", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}], ",", "LightGreen", ",", "LightPurple"}], "}"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "Center", ",", "Center", ",", "Center", ",", "Left", ",", "Left", ",", "Center", ",", "Center", ",", "Center", ",", "Center"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "False", ",", "True", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "1", ",", "maxCols"}], "}"}]}], "]"}]}], "}"}], "]"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, {3.65495276455621*^9, 3.654952830609909*^9}, {3.654952862911127*^9, 3.6549528892522573`*^9}, { 3.6549529545398483`*^9, 3.654952970150691*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[311]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"pval", ",", "alphamin", ",", "alphamax", ",", "nupper"}], "}"}], "=", RowBox[{"{", RowBox[{"2", ",", "2", ",", "5", ",", "16"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"pval", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", RowBox[{"nupper", "+", RowBox[{"2", "*", "pval"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"getCongruenceRowHeader", "[", RowBox[{"pval", ",", "alpha"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "alphamin", ",", "alphamax"}], "}"}]}], "]"}], ",", "1"}], "]"}], " ", "//", " ", "TableGrid"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.654952616347444*^9, { 3.654952744697341*^9, 3.654952744816914*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[318]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"pval", ",", "alphamin", ",", "alphamax", ",", "nupper"}], "}"}], "=", RowBox[{"{", RowBox[{"3", ",", "2", ",", "5", ",", "16"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"pval", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", RowBox[{"nupper", "+", RowBox[{"2", "*", "pval"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"getCongruenceRowHeader", "[", RowBox[{"pval", ",", "alpha"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "alphamin", ",", "alphamax"}], "}"}]}], "]"}], ",", "1"}], "]"}], " ", "//", " ", "TableGrid"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.6549526218735723`*^9, { 3.654952730277306*^9, 3.654952730407316*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[282]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"pval", ",", "alphamin", ",", "alphamax", ",", "nupper"}], "}"}], "=", RowBox[{"{", RowBox[{"4", ",", "2", ",", "5", ",", "24"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"pval", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", RowBox[{"nupper", "+", RowBox[{"2", "*", "pval"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"getCongruenceRowHeader", "[", RowBox[{"pval", ",", "alpha"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "alphamin", ",", "alphamax"}], "}"}]}], "]"}], ",", "1"}], "]"}], " ", "//", " ", "TableGrid"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654952624489002*^9, 3.65495262950229*^9}, {3.654952710848323*^9, 3.65495271097721*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[280]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"pval", ",", "alphamin", ",", "alphamax", ",", "nupper"}], "}"}], "=", RowBox[{"{", RowBox[{"5", ",", "2", ",", "5", ",", "18"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"pval", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", RowBox[{"nupper", "+", RowBox[{"2", "*", "pval"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"getCongruenceRowHeader", "[", RowBox[{"pval", ",", "alpha"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "alphamin", ",", "alphamax"}], "}"}]}], "]"}], ",", "1"}], "]"}], " ", "//", " ", "TableGrid"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654952634394887*^9, 3.6549526449406433`*^9}, {3.6549526832940063`*^9, 3.654952699417378*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[278]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Examples of the hybrid rational \ generating function constructions:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.65479361896164*^9, 3.65479363697598*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the central binomial coefficients:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654793797356021*^9, 3.6547938082804956`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Generating", " ", "the", " ", "Central", " ", "Binomial", " ", "Coefficients"}], ",", RowBox[{ FormBox[ TemplateBox[{RowBox[{"2", " ", "n"}],"n"}, "Binomial"], TraditionalForm], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6525288122884903`*^9, 3.6525288397876368`*^9}, {3.6525289121436462`*^9, 3.652528920259849*^9}, {3.6525289746668987`*^9, 3.652529053735354*^9}, { 3.652529310432785*^9, 3.65252935105764*^9}, {3.6525294038203783`*^9, 3.652529476107011*^9}, {3.652529520294496*^9, 3.652529523544833*^9}, { 3.654941911280789*^9, 3.654941932921052*^9}, 3.654942022964056*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}]}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", " ", "n"}]}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "x"}], "]"}], "/", "x"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], " ", "//", " ", "Expand"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654942032849594*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[548]:="], Cell[BoxData[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{ RowBox[{"(", "%", ")"}], "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654942041976467*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[550]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"1", ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}]}], ",", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"2", ",", RowBox[{"2", "n"}]}], "]"}], "*", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", RowBox[{"z", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"BesselI", "[", RowBox[{"0", ",", RowBox[{"2", " ", SqrtBox["x1"]}]}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", RowBox[{"2", "n"}], ",", RowBox[{"z", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"BesselI", "[", RowBox[{"0", ",", RowBox[{"2", " ", SqrtBox["x1"]}]}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65494205502605*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[552]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Paired \ binomial coefficient products:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.6547938141741343`*^9, 3.6547938233062477`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Generating", " ", "the", " ", "Binomial", " ", "Coefficient", " ", "Products"}], ",", RowBox[{ RowBox[{ FormBox[ TemplateBox[{RowBox[{"3", "n"}],"n"}, "Binomial"], TraditionalForm], " ", "\[Times]", FormBox[ TemplateBox[{RowBox[{"2", "n"}],"n"}, "Binomial"], TraditionalForm]}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6525288122884903`*^9, 3.6525288397876368`*^9}, {3.6525289121436462`*^9, 3.652528920259849*^9}, {3.6525289746668987`*^9, 3.652529053735354*^9}, { 3.652529310432785*^9, 3.65252935105764*^9}, {3.6525294038203783`*^9, 3.652529476107011*^9}, {3.652529520294496*^9, 3.652529523544833*^9}, { 3.654941911280789*^9, 3.654941932921052*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{ RowBox[{"(", "%", ")"}], "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "3"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654942092905797*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[554]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"3", "n"}], ",", "3"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"3", ",", RowBox[{"3", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"3", ",", "n"}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", "n"}], "-", "1"}]}], "]"}], "*", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", "n"}], "-", "2"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "1", ",", RowBox[{"3", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"BesselI", "[", RowBox[{"0", ",", RowBox[{"2", " ", SqrtBox["x1"]}]}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", "n"}], "-", "1"}], ",", RowBox[{"3", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", "n"}], "-", "2"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"BesselI", "[", RowBox[{"0", ",", RowBox[{"2", " ", SqrtBox["x1"]}]}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549421050520163`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[557]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Footnote", FontVariations->{"Underline"->True}], ": Computations of the special case modified exponential series generating \ function sums:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654793853914154*^9, 3.6547938793402042`*^9}, {3.654794300204105*^9, 3.654794300721176*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Sum", " ", "explicit", " ", "special", " ", "cases", " ", "of", " ", "the", " ", "exponential", " ", "series", " ", "generating", " ", "functions"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["E", "^"], "a"], "(", "z", ")"}], " ", ":=", " ", RowBox[{ RowBox[{ UnderscriptBox["\[Sum]", RowBox[{"n", "\[GreaterEqual]", "0"}]], FractionBox[ SuperscriptBox["z", "n"], RowBox[{ RowBox[{"(", "an", ")"}], "!"}]]}], " ", "=", " ", RowBox[{ FractionBox["1", "a"], "\[Times]", RowBox[{"(", " ", RowBox[{ UnderscriptBox["\[Sum]", RowBox[{"0", "\[LessEqual]", "m", "<", " ", "a"}]], RowBox[{"exp", "(", RowBox[{ SuperscriptBox["z", FractionBox["1", "a"]], " ", SubsuperscriptBox["\[Omega]", "a", "m"]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"for", " ", "a"}], "\[Element]", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], " ", "where", " ", SubscriptBox["\[Omega]", "a"]}]}], ":=", " ", RowBox[{ RowBox[{"exp", "(", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", "\[ScriptDotlessI]"}], "a"], ")"}], " ", "denotes", " ", "the", " ", "primitive", " ", SuperscriptBox["a", "th"], " ", "root", " ", "of", " ", RowBox[{"unity", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6525288122884903`*^9, 3.6525288397876368`*^9}, {3.6525289121436462`*^9, 3.652528920259849*^9}, {3.6525289746668987`*^9, 3.652529053735354*^9}, { 3.652529310432785*^9, 3.65252935105764*^9}, {3.6525294038203783`*^9, 3.652529476107011*^9}, {3.652529520294496*^9, 3.652529523544833*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], " ", "//", " ", "Factor"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{"%", "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], " ", "//", " ", "Factor"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{"%", "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], " ", "//", " ", "Factor"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{"%", "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], " ", "//", " ", "Factor"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654942161060441*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[559]:="], Cell[BoxData[ FormBox[ RowBox[{ "Powers", " ", "of", " ", "the", " ", "roots", " ", "of", " ", "unity", " ", "in", " ", "the", " ", "previous", " ", "exponential", " ", "series", " ", "generating", " ", "function", " ", RowBox[{"formulas", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6525288122884903`*^9, 3.6525288397876368`*^9}, {3.6525289121436462`*^9, 3.652528920259849*^9}, {3.6525289746668987`*^9, 3.652529053735354*^9}, { 3.652529310432785*^9, 3.65252935105764*^9}, {3.6525294038203783`*^9, 3.652529476107011*^9}, {3.652529520294496*^9, 3.652529566198586*^9}, 3.652529625944272*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "*", "Pi", "*", RowBox[{"I", "/", "3"}]}], "]"}], " ", "//", " ", "FE"}], " ", "//", " ", "CE"}], "\[IndentingNewLine]", RowBox[{"FactorTerms", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "*", "Pi", "*", RowBox[{"I", "/", "3"}], "*", "2"}], "]"}], " ", "//", " ", "FE"}], " ", "//", " ", "CE"}], "\[IndentingNewLine]", RowBox[{"FactorTerms", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "*", "Pi", "*", RowBox[{"I", "/", "4"}]}], "]"}], " ", "//", " ", "FE"}], " ", "//", " ", "CE"}], "\[IndentingNewLine]", RowBox[{"FactorTerms", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654942165522744*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[565]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the special case factorial function ratios and binomial \ coefficient identities:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654793982745796*^9, 3.6547940196802597`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Related", " ", "Identitied", " ", "for", " ", "Generating", " ", "the", " ", "Binomial", " ", "Coefficients"}], ",", FormBox[ TemplateBox[{RowBox[{"4", "n"}],RowBox[{"2", "n"}]}, "Binomial"], TraditionalForm], ",", FormBox[ RowBox[{" ", TemplateBox[{RowBox[{"6", "n"}],RowBox[{"3", "n"}]}, "Binomial"]}], TraditionalForm], " ", ",", RowBox[{ RowBox[{"and", FormBox[ TemplateBox[{RowBox[{"8", "n"}],RowBox[{"4", "n"}]}, "Binomial"], TraditionalForm]}], ":"}]}], FontWeight->"Bold"], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.654942280842208*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Convergent", "-", RowBox[{ "based", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", RowBox[{"identities", ":", "\[IndentingNewLine]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"4", " ", "n"}], ")"}], "!"}], RowBox[{ RowBox[{"(", RowBox[{"2", " ", "n"}], ")"}], "!"}]]}]}]}], "=", RowBox[{ RowBox[{ SuperscriptBox["4", RowBox[{"3", " ", "n"}]], " ", TemplateBox[{FractionBox["1", "4"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["3", "4"],"n"}, "Pochhammer"], " ", "and", " ", TemplateBox[{RowBox[{"4", " ", "n"}],RowBox[{"2", " ", "n"}]}, "Binomial"]}], "=", FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"3", " ", "n"}]], " ", TemplateBox[{FractionBox["1", "4"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["3", "4"],"n"}, "Pochhammer"]}], RowBox[{ RowBox[{"(", RowBox[{"2", " ", "n"}], ")"}], "!"}]]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652528688210683*^9, 3.652528707095624*^9}, {3.652529770693761*^9, 3.652529790975781*^9}, {3.65252986019191*^9, 3.652529875832732*^9}, { 3.652530332126708*^9, 3.6525303369500513`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], " ", "//", " ", "Factor"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{"%", "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], " ", "//", " ", "Factor"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654945824867465*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"3", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", "n"}], "-", "3"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", "n"}], "-", "1"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"4", "*", RowBox[{"z", "/", "x1"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "3"}], ",", RowBox[{"4", RowBox[{"z", "/", "x1"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "1"}], ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654945831312603*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"4", "n"}], ",", RowBox[{"2", "n"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"3", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"2", "n"}], "]"}]}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"4", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"Cosh", "[", SqrtBox["x1"], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "3"}], ",", RowBox[{"4", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"4", "n"}], "-", "1"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"Cosh", "[", SqrtBox["x1"], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549458357220182`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Convergent", "-", RowBox[{ "based", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", RowBox[{"identities", ":", "\[IndentingNewLine]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"6", " ", "n"}], ")"}], "!"}], RowBox[{ RowBox[{"(", RowBox[{"3", " ", "n"}], ")"}], "!"}]]}]}]}], "=", RowBox[{ RowBox[{ SuperscriptBox["1728", "n"], " ", TemplateBox[{FractionBox["1", "6"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["1", "2"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["5", "6"],"n"}, "Pochhammer"], " ", "and", " ", TemplateBox[{RowBox[{"6", " ", "n"}],RowBox[{"3", " ", "n"}]}, "Binomial"]}], "=", FractionBox[ RowBox[{ SuperscriptBox["1728", "n"], " ", TemplateBox[{FractionBox["1", "6"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["1", "2"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["5", "6"],"n"}, "Pochhammer"]}], RowBox[{ RowBox[{"(", RowBox[{"3", " ", "n"}], ")"}], "!"}]]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652528688210683*^9, 3.652528707095624*^9}, {3.652529770693761*^9, 3.652529790975781*^9}, {3.65252986019191*^9, 3.652529875832732*^9}, { 3.652530105915723*^9, 3.65253012241405*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"6", " ", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"1728", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "6"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "6"}], ",", "n"}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "5", ",", RowBox[{"24", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920371849656*^9, 3.654945824867465*^9, { 3.654945892310144*^9, 3.65494590272346*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[39]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], " ", "//", " ", "Factor"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{"%", "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], " ", "//", " ", "Factor"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920371849656*^9, 3.654945824867465*^9, { 3.654945871514284*^9, 3.654945878473981*^9}}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[41]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"6", " ", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"1728", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "6"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "6"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"8", ",", "n"}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "n"}], "-", "5"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "n"}], "-", "3"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "n"}], "-", "1"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "5", ",", RowBox[{"24", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "5", ",", RowBox[{"8", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "3", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "6"}], ",", RowBox[{ RowBox[{"6", "n"}], "-", "5"}], ",", RowBox[{"8", "*", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "6"}], ",", RowBox[{ RowBox[{"6", "n"}], "-", "3"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "6"}], ",", RowBox[{ RowBox[{"6", "n"}], "-", "1"}], ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920371849656*^9, 3.654945824867465*^9, { 3.654945892310144*^9, 3.654945933806951*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[43]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"6", " ", "n"}], ",", RowBox[{"3", "n"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"1728", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "6"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "6"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"3", "n"}], "]"}]}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "5", ",", RowBox[{"8", "*", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "6", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x1", RowBox[{"1", "/", "3"}]], "2"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", SuperscriptBox["x1", RowBox[{"1", "/", "3"}]]}], "2"]], "+", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["3"], " ", SuperscriptBox["x1", RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "6"}], ",", RowBox[{ RowBox[{"6", "n"}], "-", "5"}], ",", RowBox[{"8", "*", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "6"}], ",", RowBox[{ RowBox[{"6", "n"}], "-", "3"}], ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "6"}], ",", RowBox[{ RowBox[{"6", "n"}], "-", "1"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x1", RowBox[{"1", "/", "3"}]], "2"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", SuperscriptBox["x1", RowBox[{"1", "/", "3"}]]}], "2"]], "+", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["3"], " ", SuperscriptBox["x1", RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920371849656*^9, 3.654945824867465*^9, { 3.654945892310144*^9, 3.6549459380516787`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[45]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Convergent", "-", RowBox[{ "based", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", RowBox[{"identities", ":", "\[IndentingNewLine]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", " ", "n"}], ")"}], "!"}], RowBox[{ RowBox[{"(", RowBox[{"4", " ", "n"}], ")"}], "!"}]]}]}]}], "=", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"16", " ", "n"}]], " ", TemplateBox[{FractionBox["1", "8"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["3", "8"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["5", "8"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["7", "8"],"n"}, "Pochhammer"], " ", "and", " ", TemplateBox[{RowBox[{"8", " ", "n"}],RowBox[{"4", " ", "n"}]}, "Binomial"]}], "=", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"16", " ", "n"}]], " ", TemplateBox[{FractionBox["1", "8"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["3", "8"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["5", "8"],"n"}, "Pochhammer"], " ", TemplateBox[{FractionBox["7", "8"],"n"}, "Pochhammer"]}], RowBox[{ RowBox[{"(", RowBox[{"4", " ", "n"}], ")"}], "!"}]]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652528688210683*^9, 3.652528707095624*^9}, {3.652529770693761*^9, 3.652529790975781*^9}, {3.65252986019191*^9, 3.652529875832732*^9}, { 3.6525303035025253`*^9, 3.6525303210403967`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], " ", "//", " ", "Factor"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FS", "[", RowBox[{"%", "/.", RowBox[{"(", RowBox[{"z", "\[Rule]", "x1"}], ")"}]}], "]"}], " ", "//", " ", "Factor"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654946001154029*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[47]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"8", " ", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"16", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "8"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "8"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "8"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"7", "/", "8"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"4", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"8", ",", RowBox[{ RowBox[{"8", "n"}], "-", "7"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"8", ",", RowBox[{ RowBox[{"8", "n"}], "-", "5"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"8", ",", RowBox[{ RowBox[{"8", "n"}], "-", "3"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"8", ",", RowBox[{ RowBox[{"8", "n"}], "-", "1"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "7", ",", RowBox[{"16", "*", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "5", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "3", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549460052988443`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[49]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"8", "n"}], ",", RowBox[{"4", "n"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"16", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "8"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "8"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "8"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"7", "/", "8"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}]}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "7", ",", RowBox[{"16", "*", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "5", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "8", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", SuperscriptBox["x1", RowBox[{"1", "/", "4"}]], "]"}], "+", RowBox[{"Cosh", "[", SuperscriptBox["x1", RowBox[{"1", "/", "4"}]], "]"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654946012535584*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[51]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Initial \ examples of the convergent-based generating function identities enumerating \ the subfactorial function (sequence of derangements):\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.65479403996279*^9, 3.6547940872138653`*^9}, {3.654946067513743*^9, 3.654946078206194*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"!", RowBox[{"n", " ", "===", RowBox[{"Subfactorial", "(", "n", ")"}]}]}], " ", ":=", " ", FormBox[ RowBox[{ RowBox[{"n", "!"}], " ", "\[Times]", RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], RowBox[{"k", "!"}]]}]}]}], TraditionalForm]}], ")"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"n", "!"}], RowBox[{"0", "!"}]], "-", FractionBox[ RowBox[{"n", "!"}], RowBox[{"1", "!"}]], "+"}], "..."}], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], RowBox[{"n", "!"}]}], RowBox[{"n", "!"}]]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{ RowBox[{"(", RowBox[{ "See", " ", "also", " ", "the", " ", "convergent", " ", "generating", " ", "function", " ", "expansions", " ", "of", " ", "the", " ", "series", " ", "for", " ", "the", " ", "identities", " ", "in", " ", "the", " ", "previous", " ", "section"}], ")"}], ":"}], FontSlant->"Italic"], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, 3.6525346751694403`*^9, {3.6525347119108562`*^9, 3.652534787373395*^9}, { 3.654946182581211*^9, 3.654946205490262*^9}, {3.65494623561661*^9, 3.654946241034328*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Subfactorial", "[", "n", "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "n", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654946154760581*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[53]:="], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ "Note", " ", "that", " ", "a", " ", "known", " ", "EGF", " ", "for", " ", "the", " ", "subfactorial", " ", "function", " ", "is", " ", "given", " ", RowBox[{"by", ":", " ", RowBox[{ SubscriptBox[ OverscriptBox["D", "^"], "superfactorial"], "(", "z", ")"}]}]}], " ", "=", " ", FractionBox[ SuperscriptBox["e", RowBox[{"-", "z"}]], RowBox[{"1", "-", "z"}]]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"First", " ", "perform", " ", "the", " ", "Laplace"}], "-", RowBox[{"Borel", " ", "transform", " ", RowBox[{"(", RowBox[{ "or", " ", "corresponding", " ", "regularized", " ", "sums", " ", "for", " ", "the", " ", "sequence", " ", "OGF"}], ")"}], " ", "by", " ", "integrating", " ", "over", " ", "the", " ", "previous", " ", "EGF"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ "and", " ", "then", " ", "compare", " ", "to", " ", "the", " ", "previous", " ", "results", " ", "for", " ", "the", " ", "regularized", " ", "sum", " ", "generating", " ", "functions", " ", "from", " ", "the", " ", RowBox[{"introduction", ":"}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652534942341343*^9, 3.652534952576151*^9}, {3.6525350104200277`*^9, 3.652535034362561*^9}, {3.6532496662142153`*^9, 3.653249669731449*^9}, { 3.6549462526918697`*^9, 3.65494639010938*^9}, {3.654946425004953*^9, 3.6549464693725567`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", " ", "x"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "x"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "t"}], " ", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654946130322315*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[55]:="], Cell[BoxData[{ RowBox[{ RowBox[{"scfupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]], " ", RowBox[{"Gamma", "[", RowBox[{"0", ",", RowBox[{"-", FractionBox["1", "x"]}]}], "]"}]}], "x"]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "x"}], ")"}], SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1", "/", "x"}]}], ")"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"0", ",", RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", FractionBox["1", "x"]}], ")"}]}]}], "]"}]}], ")"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "scfupper"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Subfactorial", "[", "n", "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "scfupper"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654946139252182*^9, 3.654946398594894*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[63]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Expansions of arithmetic \ progressions of the single factorial function:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654794109115406*^9, 3.6547941515580883`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Verify \ the Expansions by Multiplication Formulas for the Pochhammer Symbol:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794212878587*^9, 3.654794236299911*^9}, 3.654933854497645*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "The", " ", "multiplication", " ", "formula", " ", "expansions", " ", "of", " ", "the", " ", "Pochhammer", " ", RowBox[{"symbol", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652949271301477*^9, 3.652949343621725*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"aupper", "=", "6"}], ";", RowBox[{"rupper", "=", "6"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"facts", "[", RowBox[{"a", ",", "r", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"a", " ", "n"}], "+", "r"}], "]"}], "-", RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "n"}], "+", "r", "-", "j"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"a", " ", "n"}], "+", "r"}], "]"}], "-", RowBox[{ RowBox[{"Factorial", "[", "r", "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"a", " ", "n"}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"j", "+", "r", "+", "1"}], ")"}], "/", "a"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"a", " ", "n"}], "+", "r"}], "]"}], "-", RowBox[{ RowBox[{"Factorial", "[", "r", "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"a", " ", "n"}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"r", "-", "j"}], ")"}], "/", "a"}]}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "2", ",", "aupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654933916838873*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[221]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Another", " ", "example", " ", "of", " ", "a", " ", "product"}], "-", RowBox[{ "based", " ", "identity", " ", "expanding", " ", "the", " ", "single", " ", "factorial", " ", "function"}]}], ",", " ", RowBox[{ RowBox[{"(", "\[Alpha]n", ")"}], "!"}], ",", RowBox[{ "by", " ", "products", " ", "of", " ", "sums", " ", "over", " ", "the", " ", "generalized", " ", RowBox[{"coefficients", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652949271301477*^9, 3.6529493168732433`*^9}, {3.654934436568198*^9, 3.654934444593408*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"alphaupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"aprog", "[", RowBox[{"a", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"a", " ", "n"}], "]"}], "-", RowBox[{"Product", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "n"}], "+", "1", "-", "i"}], ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, {3.654933905222259*^9, 3.654933908919273*^9}}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[219]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Double \ factorial function expansion cases (a := 2):\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794212878587*^9, 3.654794236299911*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "n", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "3", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6549339561861763`*^9, 3.6549339682660913`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[198]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "n", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "3", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"2", " ", RowBox[{"z", "/", "x"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65493396035852*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[200]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Triple \ factorial function expansion cases (a := 3):\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.6547942403928022`*^9, 3.654794250483552*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "The", " ", "triple", " ", "factorial", " ", "function", " ", "and", " ", "Pochhammer", " ", "symbol", " ", "expansions", " ", "generated", " ", "by", " ", "the", " ", "identities", " ", "stated", " ", "in", " ", "the", " ", RowBox[{"article", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529495392404337`*^9, 3.652949590380394*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"3", ",", RowBox[{"3", " ", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"1", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{"3", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", " ", "n"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", " ", "n"}], "-", "2"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"3", ",", RowBox[{"3", " ", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"1", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"4", "/", "3"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{"3", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", " ", "n"}], "-", "1"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "4", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}], "]"}], ",", RowBox[{"2", "*", RowBox[{"Power", "[", RowBox[{"3", ",", RowBox[{"3", " ", "n"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"1", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "3"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"4", "/", "3"}], ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{"3", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.6549341113428783`*^9, { 3.654934156813641*^9, 3.654934160609819*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[203]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "additional", " ", "cases", " ", "of", " ", "the", " ", "convergent", " ", "function", " ", "identities", " ", "for", " ", "these", " ", "arithmetic", " ", "progression", " ", RowBox[{"sequences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529495392404337`*^9, 3.652949630802256*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "4", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "4", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934117234253*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[205]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "4", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "4", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934124711948*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[207]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "4", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"2", "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "5", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "3", ",", "4", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934129513727*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[209]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"3", " ", "n"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", " ", "n"}], "-", "1"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", " ", "n"}], "-", "2"}], ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", " ", "n"}], "-", "1"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"3", " ", RowBox[{"z", "/", "x2"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", " ", "n"}], "+", "2"}], ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"3", " ", "n"}], "+", "1"}], ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549341360599613`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[211]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Quadruple \ factorial function expansion cases (a := 4):\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794242529683*^9, 3.654794275692998*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Pochhammer", " ", "symbol", " ", "expansions", " ", "of", " ", "these", " ", "arithmetic", " ", "progression", " ", RowBox[{"sequences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65294984490287*^9, 3.652949861964733*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"4", " ", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "4"}], ",", "n"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"4", " ", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "4"}], ",", "n"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"(", "3", ")"}], "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"6", "/", "4"}], ",", "n"}], "]"}], "*", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "4"}], ",", "n"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "3"}], "]"}], ",", RowBox[{"(", RowBox[{"6", "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"(", "7", ")"}], "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"6", "/", "4"}], ",", "n"}], "]"}]}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "4"}], ",", "n"}], "]"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934253877337*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[213]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "coefficients", " ", "generated", " ", "by", " ", "several", " ", "other", " ", "of", " ", "the", " ", "arithmetic", " ", "progression", " ", "sequences"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"an", "+", "r"}], ")"}], "!"}], ",", " ", RowBox[{ RowBox[{"when", " ", "a"}], " ", ":=", " ", RowBox[{"4", ":", " "}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652949910000312*^9, 3.652949949768075*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], ",", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{"4", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", " ", "n"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "2"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "3"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "1"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "3"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654934595847662*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[223]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{"4", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", " ", "n"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "2"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "3"}]}], "]"}]}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"4", " ", "n"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "3"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934278564002*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[215]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{"4", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", " ", "n"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "2"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "3"}]}], "]"}]}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"2", "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"(", "3", ")"}], "/", "4"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"6", "/", "4"}], ",", "n"}], "]"}]}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"4", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "4"}], ",", "n"}], "]"}]}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"2", "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "6", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "5", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"4", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"4", RowBox[{"z", "/", "x3"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "4", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934286033648*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[217]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Quintuple \ factorial function expansion cases (a := 5):\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794242529683*^9, 3.654794272114686*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Pochhammer", " ", "symbol", " ", "expansions", " ", "of", " ", "these", " ", "arithmetic", " ", "progression", " ", RowBox[{"sequences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65294984490287*^9, 3.652949861964733*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"5", " ", "n"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"5", ",", RowBox[{"5", " ", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"4", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "5"}], ",", "n"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"5", ",", RowBox[{"5", " ", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"4", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"6", "/", "5"}], ",", "n"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "2"}], "]"}], ",", RowBox[{"2", "*", RowBox[{"Power", "[", RowBox[{"5", ",", RowBox[{"5", " ", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"4", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"7", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"6", "/", "5"}], ",", "n"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "3"}], "]"}], ",", RowBox[{"6", "*", RowBox[{"Power", "[", RowBox[{"5", ",", RowBox[{"5", " ", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"4", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"8", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"7", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"6", "/", "5"}], ",", "n"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "4"}], "]"}], ",", RowBox[{"24", "*", RowBox[{"Power", "[", RowBox[{"5", ",", RowBox[{"5", " ", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"9", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"8", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"7", "/", "5"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"6", "/", "5"}], ",", "n"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934660479954*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[225]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Convergent", "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "for", " ", "the", " ", "single", " ", "factorial", " ", "function", " ", "sequences", " ", "when", " ", "a"}]}], ":=", RowBox[{"5", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65294984490287*^9, 3.652949861964733*^9}, {3.652950159991523*^9, 3.652950186213339*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "3"}], "]"}], ",", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{"5", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", " ", "n"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "2"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "3"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "4"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"5", " ", "n"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "1"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "2"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "3"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "4"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654934666596797*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[227]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "3"}], "]"}], "-", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{"5", " ", "n"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", " ", "n"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "2"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "3"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"5", ",", RowBox[{ RowBox[{"5", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], "-", "4"}]}], "]"}]}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "3"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"6", "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "8", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "7", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "6", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"5", " ", "n"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "1"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "2"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "3"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"5", " ", "n"}], "+", "4"}], "]"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"5", RowBox[{"z", "/", "x4"}]}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "4", ",", RowBox[{"x4", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "3", ",", RowBox[{"x3", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "5", ",", "1", ",", "x1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654934673213682*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[229]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle] Superfactorial \ functions:", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654794344923915*^9, 3.654794351107736*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the ordinary superfactorial function sequence case:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.6547943681183863`*^9, 3.654794390312792*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{"Computing", " ", "the", " ", "superfactorial", " ", "sequence"}], ",", " ", RowBox[{ SubscriptBox["S", RowBox[{"1", ",", "0"}]], "(", "n", ")"}], ",", RowBox[{ RowBox[{"and", " ", "the", " ", "Barnes", " ", "G"}], "-", "Function"}], ",", RowBox[{"G", "(", RowBox[{"n", "+", "2"}], ")"}], ",", RowBox[{ RowBox[{ RowBox[{"for", " ", "integers", " ", "n"}], "\[GreaterEqual]", "2"}], ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"Tables", " ", "of", " ", "the", " ", "sequence", " ", RowBox[{"values", ":", " "}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65295077872563*^9, 3.6529507912503633`*^9}, {3.654923035903933*^9, 3.6549230365928307`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2"}], "]"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Product", "[", RowBox[{ RowBox[{"k", "!"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"k", "!"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654922947664649*^9, 3.654922982955043*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1137]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Generating", " ", "function", " ", "identities", " ", "to", " ", "enumerate", " ", "the", " ", "superfactorial", " ", "function", " ", "sequence"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "1"], "(", "n", ")"}], "\[LongEqual]", RowBox[{"G", "(", RowBox[{"n", "+", "2"}], ")"}]}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652950817942843*^9, 3.652950843575774*^9}, {3.652951008324711*^9, 3.652951008552265*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "4"}], ";", RowBox[{"Print", "[", RowBox[{ RowBox[{ RowBox[{"fn", "[", RowBox[{"x", ",", "##"}], "]"}], "&"}], "@@", RowBox[{"Reverse", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "j", "]"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "n", "]"}], ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], "]"}], ";", RowBox[{"Clear", "[", "n", "]"}]}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, {3.654922884185355*^9, 3.6549228962494698`*^9}}, FontSize->10, Background->RGBColor[1, 0.85, 0.85], CellLabel->"In[1132]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "i"}], ",", RowBox[{ RowBox[{"x", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"x", "[", RowBox[{"n", "-", "i", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"x", "[", "1", "]"}]}], "]"}]}], ",", "##"}], "]"}], "&"}], "@@", RowBox[{"Reverse", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "j", "]"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "n", "]"}], ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "i"}], ",", RowBox[{ RowBox[{"x", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"x", "[", RowBox[{"n", "-", "i", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"x", "[", "1", "]"}]}], "]"}]}], ",", "##"}], "]"}], "&"}], "@@", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "j", "]"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "n", "]"}], ",", "0", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{ RowBox[{"x", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"x", "[", RowBox[{"n", "-", "i", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"x", "[", "1", "]"}]}], "]"}]}], ",", "##"}], "]"}], "&"}], "@@", RowBox[{"Reverse", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "j", "]"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "n", "]"}], ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654922914325264*^9, 3.654922919735038*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1133]:="], Cell[BoxData[ FormBox[ RowBox[{ "Listings", " ", "of", " ", "some", " ", "particular", " ", "cases", " ", "of", " ", "the", " ", "simplified", " ", "convergent", " ", "function", " ", "products", " ", "from", " ", "the", " ", "previous", " ", RowBox[{"tables", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529508504790993`*^9, 3.65295088237961*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"ProductGFFormV1", "[", "n", "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "i"}], ",", RowBox[{ RowBox[{"x", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"x", "[", RowBox[{"n", "-", "i", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"x", "[", "1", "]"}]}], "]"}]}], "]"}], ",", RowBox[{"ProductGFFormV2", "[", "n", "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{ RowBox[{"x", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"x", "[", RowBox[{"n", "-", "i", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"x", "[", "1", "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654922668052784*^9, 3.654922821029841*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1128]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the generalized cases of the superfactorial function sequence \ products:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794414008024*^9, 3.6547944327657967`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Computing", " ", "the", " ", "generalized", " ", "superfactorial", " ", "sequences"}], ",", " ", RowBox[{ SubscriptBox["S", RowBox[{"\[Alpha]", ",", "r"}]], "(", "n", ")"}], ",", RowBox[{ RowBox[{"for", " ", "integers", " ", "n"}], "\[GreaterEqual]", RowBox[{ "2", "from", " ", "the", " ", "convergent", " ", "function", " ", "generating", " ", "functions", " ", "expanded", " ", "in", " ", "the", " ", RowBox[{"article", ":"}]}]}]}], FontWeight->"Bold"], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652951094603938*^9, 3.6529511359401903`*^9}, {3.6529511979484997`*^9, 3.652951199138908*^9}, {3.652951231093856*^9, 3.652951246383926*^9}, { 3.6549231289521437`*^9, 3.654923131665916*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";", RowBox[{"alphaupper", "=", "6"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfprod", "[", RowBox[{"a", ",", "d", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "a"}], ",", RowBox[{ RowBox[{"a", RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}]}], "-", "d"}], ",", RowBox[{ RowBox[{"x", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"x", "[", RowBox[{"n", "-", "i", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "a"}], ",", RowBox[{"a", "-", "d"}], ",", RowBox[{"x", "[", "1", "]"}]}], "]"}]}], ",", "##"}], "]"}], "&"}], "@@", RowBox[{"Reverse", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "j", "]"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "n", "]"}], ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "a", ",", RowBox[{"a", "-", "d"}], ",", RowBox[{ RowBox[{"x", "[", RowBox[{"n", "-", "i"}], "]"}], "/", RowBox[{"x", "[", RowBox[{"n", "-", "i", "-", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "a", ",", RowBox[{"a", "-", "d"}], ",", RowBox[{"x", "[", "1", "]"}]}], "]"}]}], ",", "##"}], "]"}], "&"}], "@@", RowBox[{"Reverse", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "j", "]"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "n", "]"}], ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "3"}], "]"}]}], ")"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "2", ",", "alphaupper"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "0", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923157359359*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1139]:="], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{"The", " ", "noted", " ", "identity", " ", "for", FormBox[ SubscriptBox[ RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", " ", "n"}], ")"}], "!"}], RowBox[{"(", "\[Alpha]", ")"}]], TraditionalForm]}], " ", "=", RowBox[{ FormBox[ SuperscriptBox["\[Alpha]", "n"], TraditionalForm], RowBox[{"n", "!"}]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"where", " ", "1"}], "+", "2", "+", "\[CenterEllipsis]", "+", "n"}], " ", "=", " ", TagBox[ TemplateBox[{RowBox[{"n", "+", "1"}],"2"}, "Binomial"], HoldForm]}], ")"}], ":"}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652951094603938*^9, 3.6529511359401903`*^9}, {3.6529511979484997`*^9, 3.652951199138908*^9}, {3.652951231093856*^9, 3.652951246383926*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";", RowBox[{"alphaupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfdiffs", "[", RowBox[{"a", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{"a", " ", "j"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2"}], "]"}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Factorial", "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923170631353*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1141]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Identities for special cases of the \[Alpha]-factorial products involving the \ Barnes G-function:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794442575118*^9, 3.654794485771432*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Some", " ", "of", " ", "the", " ", "known", " ", "special", " ", "case", " ", "product", " ", "cases", " ", "simplified", " ", "with", " ", RowBox[{"Mathematica", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529512761263533`*^9, 3.652951285095541*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"BarnesG", "[", RowBox[{"2", "-", RowBox[{"1", "/", "2"}]}], "]"}], ",", RowBox[{"Gamma", "[", RowBox[{"1", "/", "2"}], "]"}]}], "}"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.654923250662932*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[1143]:="], Cell[BoxData[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "j"}], "-", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"1", "/", "2"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"1", "/", "2"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923256469314*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1144]:="], Cell[BoxData[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"2", "/", "4"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"2", "/", "4"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549232626832314`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1147]:="], Cell[BoxData[ FormBox[ RowBox[{ "Identities", " ", "for", " ", "the", " ", "binomial", " ", "coefficient", " ", "and", " ", "Pochhammer", " ", "symnol", " ", "products", " ", "for", " ", "the", " ", "generalized", " ", RowBox[{"sequences", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652951674953499*^9, 3.65295170354263*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";", RowBox[{"alphaupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfprod", "[", RowBox[{"a", ",", "d", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"FS", "[", RowBox[{"{", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "j"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"d", "/", "a"}]}], ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", "1", "-", RowBox[{"d", "/", "a"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"d", "/", "a"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2"}], "]"}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"d", "/", "a"}]}], ",", "j"}], "]"}], "*", RowBox[{"Factorial", "[", "j", "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2"}], "]"}]}], "]"}], "*", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2"}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"d", "/", "a"}]}], ",", RowBox[{ RowBox[{"-", "d"}], "/", "a"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2"}], "]"}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"d", "/", "a"}]}], ",", "j"}], "]"}], "*", RowBox[{"Factorial", "[", "j", "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "}"}], "]"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "6"}], "]"}]}], ")"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"a", ",", "2", ",", "alphaupper"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "0", ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923387877795*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1149]:="], Cell[BoxData[ FormBox[ RowBox[{"Triple", " ", "factorial", " ", "product", " ", RowBox[{"identities", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652951368156845*^9, 3.652951374782501*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"3", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"2", "/", "3"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"2", "/", "3"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"3", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"1", "/", "3"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"1", "/", "3"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"FE", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BarnesG", "[", RowBox[{"5", "/", "3"}], "]"}], "/", RowBox[{"BarnesG", "[", RowBox[{"8", "/", "3"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "/", RowBox[{"Gamma", "[", RowBox[{"5", "/", "3"}], "]"}]}], ")"}]}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BarnesG", "[", RowBox[{"5", "/", "3"}], "]"}], "/", RowBox[{"BarnesG", "[", RowBox[{"8", "/", "3"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "/", RowBox[{"Gamma", "[", RowBox[{"5", "/", "3"}], "]"}]}], ")"}]}], "]"}]}], "}"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549234009018106`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1151]:="], Cell[BoxData[ FormBox[ RowBox[{"Quadruple", " ", "factorial", " ", "product", " ", RowBox[{"identities", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529513890918827`*^9, 3.65295139406888*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"3", "/", "4"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"3", "/", "4"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"2", "/", "4"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"2", "/", "4"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"1", "/", "4"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"nval", ",", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", "n"}]], " ", SuperscriptBox[ RowBox[{"BarnesG", "[", FractionBox["5", "4"], "]"}], RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], " ", SuperscriptBox[ RowBox[{"BarnesG", "[", FractionBox["9", "4"], "]"}], RowBox[{"-", "n"}]], " ", RowBox[{"BarnesG", "[", RowBox[{ FractionBox["5", "4"], "+", "n"}], "]"}]}], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", "nval"}], ")"}]}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", "n"}]], " ", SuperscriptBox[ RowBox[{"BarnesG", "[", FractionBox["5", "4"], "]"}], RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], " ", SuperscriptBox[ RowBox[{"BarnesG", "[", FractionBox["9", "4"], "]"}], RowBox[{"-", "n"}]], " ", RowBox[{"BarnesG", "[", RowBox[{ FractionBox["5", "4"], "+", "n"}], "]"}]}], ")"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", "nval"}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"nval", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923417511096*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1154]:="], Cell[BoxData[ FormBox[ RowBox[{"Quintuple", " ", "factorial", " ", "product", " ", RowBox[{"identities", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652951389874831*^9, 3.652951397569221*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"5", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"4", "/", "5"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"4", "/", "5"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"5", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"3", "/", "5"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"3", "/", "5"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"5", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"2", "/", "5"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"2", "/", "5"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"5", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"j", "+", RowBox[{"1", "/", "5"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"1", "/", "5"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923428450088*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1158]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Verify", " ", "the", " ", "inductive", " ", "guesses", " ", "at", " ", "the", " ", "formulas", " ", "for", " ", "the", " ", "generalized", " ", "superfactorial", " ", "products"}], ",", FormBox[ RowBox[{ SubscriptBox["S", RowBox[{"\[Alpha]", ",", "d"}]], "(", "n", ")"}], TraditionalForm], ",", RowBox[{"numerically", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, 3.652951407535844*^9, {3.652951514304946*^9, 3.652951514405609*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"alphaupper", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfdiffs", "[", RowBox[{"a", ",", "n", ",", "d"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"Binomial", "[", RowBox[{"n", ",", "2"}], "]"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "d"}], ")"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"BarnesG", "[", RowBox[{"2", "-", RowBox[{"d", "/", "a"}]}], "]"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"BarnesG", "[", RowBox[{"3", "-", RowBox[{"d", "/", "a"}]}], "]"}], ",", RowBox[{"-", "n"}]}], "]"}], "*", RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2", "-", RowBox[{"d", "/", "a"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "alphaupper"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "1", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923450830079*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1162]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"alphaupper", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfdiffs", "[", RowBox[{"a", ",", "n", ",", "d"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"Binomial", "[", RowBox[{"n", ",", "2"}], "]"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "d"}], ")"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"d", "/", "a"}]}], "]"}], ",", RowBox[{"-", "n"}]}], "]"}], "*", RowBox[{ RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2", "-", RowBox[{"d", "/", "a"}]}], "]"}], "/", RowBox[{"BarnesG", "[", RowBox[{"2", "-", RowBox[{"d", "/", "a"}]}], "]"}]}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "alphaupper"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "1", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923456770914*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1164]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";", RowBox[{"alphaupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfdiffs", "[", RowBox[{"a", ",", "n", ",", "d"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"Product", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"a", " ", "j"}], "-", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "/", RowBox[{"N", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"Binomial", "[", RowBox[{"n", ",", "2"}], "]"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "d"}], ")"}], "/", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"d", "/", "a"}]}], "]"}]}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"BarnesG", "[", RowBox[{"n", "+", "2", "-", RowBox[{"d", "/", "a"}]}], "]"}], "/", RowBox[{"BarnesG", "[", RowBox[{"2", "-", RowBox[{"d", "/", "a"}]}], "]"}]}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "alphaupper"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "1", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654923463492895*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1166]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Enumerating sums of \ factorial-related sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654794518735346*^9, 3.654794536437738*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Left factorials:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794552067832*^9, 3.654794565911057*^9}, {3.654795227457634*^9, 3.654795231633498*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Tables", " ", "to", " ", "verify", " ", "the", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "enumerating", " ", "the", " ", "sequence", " ", "of", " ", "\"\<\!\(\* StyleBox[\"left\", FontSlant->\"Italic\"]\)\!\(\* StyleBox[\" \", FontSlant->\"Italic\"]\)\!\(\* StyleBox[\"factorials\", FontSlant->\"Italic\"]\)\>\"", " ", "defined", " ", "by", " ", "the", " ", "following", " ", RowBox[{"sums", ":", " ", "\[IndentingNewLine]", RowBox[{"L", "[", RowBox[{"n", "!"}], "]"}]}]}]}], ":=", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"k", "!"}]}], HoldForm], TraditionalForm], " ", StyleBox[ RowBox[{"and", "/", "or"}], FontSize->10, FontSlant->"Italic"], StyleBox[ RowBox[{ StyleBox[" ", FontSlant->"Italic"], " "}]], TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{"k", "!"}]}], HoldForm], " ", StyleBox[ RowBox[{"and", "/", "or"}], FontSize->10, FontSlant->"Italic"], " ", TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{"k", "!"}]}], HoldForm]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "z"}], "]"}], "-", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"z", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654920354556486*^9, 3.654920356352375*^9}, 3.654920553706242*^9, {3.6549210475192347`*^9, 3.6549210813775387`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1044]:="] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Alternating factorials:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794567758375*^9, 3.654794572043379*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Tables", " ", "to", " ", "verify", " ", "the", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "enumerating", " ", "the", " ", "sequence", " ", "of", " ", "\"\<\!\(\* StyleBox[\"alternating\", FontSlant->\"Italic\"]\) \!\(\* StyleBox[\"factorials\", FontSlant->\"Italic\"]\)\>\"", " ", "defined", " ", "by", " ", "the", " ", "following", " ", RowBox[{"sums", ":", " ", "\[IndentingNewLine]", RowBox[{"af", "(", "n", ")"}]}]}]}], ":=", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], " ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "k"}]], " ", "\[Times]", RowBox[{"k", "!"}]}]}], HoldForm], TraditionalForm], " ", StyleBox[ RowBox[{"and", "/", "or"}], FontSize->10, FontSlant->"Italic"], StyleBox[ RowBox[{ StyleBox[" ", FontSize->10, FontSlant->"Italic"], " "}]], TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], " ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "k"}]], " ", "\[Times]", RowBox[{"k", "!"}]}]}], HoldForm]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "z"}], "]"}], "-", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.6549203583018227`*^9, 3.654920574270487*^9, { 3.654921036309433*^9, 3.6549210395157213`*^9}, {3.6549211012677794`*^9, 3.654921107872555*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1046]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the sums, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["sf", "2"], "(", "n", ")"}], TraditionalForm]], "Output", CellChangeTimes->{{3.647932246262062*^9, 3.6479322765832987`*^9}, 3.647932373038309*^9}], ", and the alternate identity for the sequence:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794611215963*^9, 3.654794653205332*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Tables", " ", "to", " ", "verify", " ", "the", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "enumerating", " ", "the", " ", "sequence", " ", "of", " ", RowBox[{ SubscriptBox["sf", "2"], "(", "n", ")"}], " ", "defined", " ", "by", " ", "the", " ", "following", " ", RowBox[{"sums", ":", " ", "\[IndentingNewLine]", RowBox[{ SubscriptBox["sf", "2"], "(", "n", ")"}]}]}]}], " ", ":=", RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"k", "\[Times]", RowBox[{"k", "!"}]}]}], HoldForm], TraditionalForm], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}], "-", "1"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"n", "*", RowBox[{"Factorial", "[", "n", "]"}]}], "]"}], "]"}], ",", RowBox[{"n", "*", RowBox[{"Factorial", "[", "n", "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "x"}], ",", "2"}], "]"}]}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"k", "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"k", "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{"x", "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "x"}], ",", "2"}], "]"}]}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654920354556486*^9, 3.654920356352375*^9}, 3.654920607087605*^9, {3.65492099239643*^9, 3.6549210119119377`*^9}, { 3.6549211298736143`*^9, 3.6549211380867157`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1048]:="], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Tables", " ", "to", " ", "verify", " ", "the", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "for", " ", "the", " ", "following", " ", "alternate", " ", "identity", " ", "for", " ", "the", " ", "sums"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["sf", "2"], "(", "n", ")"}], ":", "\[IndentingNewLine]", RowBox[{ SubscriptBox["sf", "2"], "(", "n", ")"}]}], " ", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}], "-", "1"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}], " ", "\[Times]", " ", TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], FractionBox["k", RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "!"}]]}], HoldForm]}]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ "where", " ", "the", " ", "OGF", " ", "for", " ", "the", " ", "inner", " ", "sum", " ", "terms", " ", "is", " ", "given", " ", "by"}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox["k", RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "!"}]]}], HoldForm], "\[Times]", " ", SuperscriptBox["x", "k"]}], " ", "=", " ", FractionBox[ RowBox[{"1", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}]}], "x"]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, {3.6528390386128893`*^9, 3.652839095194799*^9}, 3.652839127763036*^9, {3.652839184542321*^9, 3.652839247864936*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"k", "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"x", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654920623516342*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[1029]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"k", "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{"k", "*", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "/", "x"}], "-", RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "/", "x"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "/", "x"}], "-", RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "/", "x"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "/", "x"}], "-", RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "/", "x"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"n", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654920354556486*^9, 3.654920356352375*^9}, 3.6549206307631273`*^9, 3.654921022348872*^9, 3.654921255876829*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1050]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Squares \ of the single, double, and triple factorial functions:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794664069132*^9, 3.6547947206094027`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], "-", "1"}], ")"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.654920650406439*^9, { 3.65492088343015*^9, 3.6549209721095*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1079]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"Factorial2", "[", "n", "]"}], "^", "2"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Factorial2", "[", "n", "]"}], "^", "2"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "+", RowBox[{"z", "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "-", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "+", RowBox[{"z", "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "+", RowBox[{"z", "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "+", RowBox[{"z", "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x"}]}], "]"}]}], "-", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.654920659367394*^9, { 3.654921174939041*^9, 3.65492118962356*^9}, {3.654922120927965*^9, 3.654922189038512*^9}, {3.65492223139135*^9, 3.654922236623558*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1087]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", "n"}], "]"}], "^", "2"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "1"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", "k"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z", "^", "0"}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", "k"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "3"}], ",", "3", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "3"}], ",", "3", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"z", "^", "1"}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "3"}], ",", "3", ",", "4", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "3"}], ",", "3", ",", "4", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "3"}], ",", "3", ",", "5", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "3"}], ",", "3", ",", "5", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", "k"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "-", RowBox[{"1", "/", "z"}], "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "-", "1", "-", RowBox[{"1", "/", "z"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"3", ",", "k"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "3", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", "x"}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "3", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "3"}], "/", "x"}]}], "]"}]}], "-", "1", "-", RowBox[{"1", "/", "z"}], "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.654920668502944*^9, { 3.65492119808134*^9, 3.654921234058806*^9}, {3.6549213114659758`*^9, 3.654921336875626*^9}, 3.654921589116934*^9, {3.6549220135119677`*^9, 3.654922083790329*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1077]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Cubes of \ the single and double factorial functions:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794687882141*^9, 3.654794695944181*^9}, {3.6547947267647247`*^9, 3.65479473472964*^9}, 3.654920729691906*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "3"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "3"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", "x1"}], "]"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "k", "]"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", "x1"}], "]"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.6549207176508417`*^9, { 3.6549214438334627`*^9, 3.654921505434444*^9}, 3.6549215495611277`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1064]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"Factorial2", "[", "n", "]"}], "^", "3"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Factorial2", "[", "n", "]"}], "^", "3"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", "x1"}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", "x1"}], "]"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", "x1"}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "z"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", "x1"}], "]"}]}], "-", RowBox[{"1", "/", "z"}], "-", RowBox[{"1", "*", "0"}]}], ")"}]}], "+", "2"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "2", ",", "x1"}], "]"}]}], "+", RowBox[{"z", "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "3", ",", RowBox[{ RowBox[{"z", "^", "2"}], "/", "x2"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "3", ",", RowBox[{"x2", "/", "x1"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "3", ",", "x1"}], "]"}]}], "-", "1"}], ")"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.6549207176508417`*^9, { 3.654921526956431*^9, 3.654921539063662*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1089]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Enumerating more challenging cases of the double-factorial-related \ combinatorial sums from the references:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.6547947516686687`*^9, 3.65479479548213*^9}, {3.654798326082917*^9, 3.654798328694153*^9}, { 3.654920447208376*^9, 3.654920464209306*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", "inner"}], ",", " ", RowBox[{"non", "-", "double", "-", RowBox[{"factorial", " ", "terms", " ", "in", " ", "the", " ", RowBox[{"sum", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, {3.652839533575079*^9, 3.65283953427897*^9}, {3.652978199271031*^9, 3.652978205901582*^9}, { 3.652978354327016*^9, 3.652978374320986*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"k", "/", RowBox[{"Factorial", "[", RowBox[{"k", "-", "1"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"x", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "\n", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"k", "/", RowBox[{"Factorial", "[", RowBox[{"k", "-", "1"}], "]"}]}], ",", "k", ",", "x"}], "]"}]}], "Input",\ CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654922382970482*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[1091]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nkupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "k"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], "]"}]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "2", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "*", RowBox[{"Exp", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"k", "+", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"z", "^", "_"}], ",", "Expand"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "k"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"2", " ", "k"}], ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ",", "x"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "/", "x"}], "+", "1"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{"z", "/", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549223898795137`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1093]:="], Cell[BoxData[ FormBox[ RowBox[{ "Enumerate", " ", "the", " ", "complete", " ", "sum", " ", "by", " ", "another", " ", "application", " ", "of", " ", "the", " ", "convergent", " ", "function", " ", "generating", " ", "function", " ", RowBox[{"methods", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, {3.652839533575079*^9, 3.65283953427897*^9}, {3.652978199271031*^9, 3.652978205901582*^9}, { 3.652978354327016*^9, 3.652978374320986*^9}, {3.654922339551249*^9, 3.654922376371331*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nkupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], "*", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "2", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "[", "2", "]"}]}], ")"}]}], RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{ RowBox[{"x", "[", "2", "]"}], "/", RowBox[{"x", "[", "1", "]"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", "1"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{"x", "[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "2", "]"}], ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654922407526272*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1097]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nkupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{ RowBox[{"x", "[", "3", "]"}], "/", RowBox[{"x", "[", "2", "]"}]}]}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "[", "2", "]"}]}], ")"}]}], RowBox[{"Conv", "[", RowBox[{"n", ",", "2", ",", "1", ",", RowBox[{ RowBox[{"x", "[", "2", "]"}], "/", RowBox[{"x", "[", "1", "]"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", "1"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{"x", "[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "3", "]"}], ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654922414136571*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1099]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Expansions of generating functions for other subfactorial function identities:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654794804614461*^9, 3.6547948226757727`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Subfactorial", "[", "n", "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"x", "+", "z"}], ",", "n"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Subfactorial", "[", "n", "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"x3", "-", "x2", "+", "x1", "+", "x1"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "+", "x1"}], ")"}]}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{ RowBox[{"x3", "/", "x1"}], "/", "x2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654941193140637*^9, 3.6549412101895*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[504]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Subfactorial", "[", "n", "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "n", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "^", "2"}], "+", RowBox[{"z", "^", "3"}]}], ")"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", RowBox[{"-", "1"}], ",", "n", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z", "^", "2"}], ")"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", "z", ")"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6549224574112797`*^9, 3.6549224882233953`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1103]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Subfactorial", "[", "n", "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"n", "!"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"x3", "/", RowBox[{"(", RowBox[{"x2", " ", "x1"}], ")"}]}]}], "]"}], "*", RowBox[{"Exp", "[", "x2", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", "x3", "]"}], "-", "1"}], ")"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x1"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"n", "!"}], "-", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x3"}]}], "]"}], "*", RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"x3", "/", RowBox[{"(", RowBox[{"x2", " ", "x1"}], ")"}]}]}], "]"}], "*", RowBox[{"Exp", "[", "x2", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", "x3", "]"}], "-", "1"}], ")"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x1"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x3"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "x3"}], ")"}]}], "-", RowBox[{ RowBox[{"Conv", "[", RowBox[{"n", ",", "1", ",", "1", ",", RowBox[{"x3", "/", RowBox[{"(", RowBox[{"x2", " ", "x1"}], ")"}]}]}], "]"}], "*", RowBox[{"Exp", "[", "x2", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", "x3", "]"}], "-", "1"}], ")"}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x1"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x1"}], ")"}]}]}]}], ")"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654922462793643*^9, 3.65492249798249*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1105]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Generating several generalized \ variants of the sums of powers sequences by convergent function \ transformations:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654794518735346*^9, 3.654794536437738*^9}, {3.654794872580544*^9, 3.654794923761463*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Computations", " ", "of", " ", "the", " ", "first", " ", "identities", " ", "for", " ", "enumerating", " ", "the", " ", "sequences"}], ",", RowBox[{ FormBox[ RowBox[{ SuperscriptBox["m", "p"], "-", "1"}], TraditionalForm], ":"}]}], FontWeight->"Bold"], TraditionalForm]], "Input"] }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, 3.654923990998269*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"The", " ", "right"}], "-", "hand", "-", RowBox[{ "side", " ", "exponential", " ", "generating", " ", "function", " ", "for", " ", "the", " ", "sequences"}]}], ",", " ", RowBox[{ SuperscriptBox["m", "p"], "-", "1"}], ",", " ", RowBox[{"with", " ", "respect", " ", "to", " ", RowBox[{"p", ":", " "}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529533717918243`*^9, 3.652953408956153*^9}, {3.652953439116918*^9, 3.652953442928308*^9}, {3.654923760363934*^9, 3.654923760982217*^9}, { 3.654923987892405*^9, 3.654923988599633*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"m", "-", "1"}], ",", RowBox[{"p", "-", "k"}]}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "*", "p"}], ",", "p", ",", "x"}], "]"}], " ", "//", " ", "FS"}], " ", "//", " ", "Factor"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929437711174*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1184]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "first", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "enumerating", " ", "this", " ", RowBox[{"sequence", ":", " "}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529534562432623`*^9, 3.652953478619869*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929443498579*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1185]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"Series", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929450650509*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1187]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Examples \ of the generalized sums of powers sequences enumerated by the \ convergent-based generating function constructions given below:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, 3.654923975122754*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"Factor", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "1", ",", "0", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "1", ",", "0", ",", "u", ",", RowBox[{"n", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", "FS"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929484593954*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1189]:="], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "a", ",", "b", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "a", ",", "b", ",", "u", ",", RowBox[{"n", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", "FS"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929489658719*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1191]:="], Cell[BoxData[ FormBox[ RowBox[{ "Compare", " ", "with", " ", "the", " ", "noted", " ", "expansions", " ", "of", " ", "the", " ", "Bernoulli", " ", "and", " ", "Euler", " ", "polynomial", " ", "sequences", " ", "from", " ", "the", " ", RowBox[{"reference", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652975736227792*^9, 3.652975772746545*^9}, {3.652975834866519*^9, 3.652975840817163*^9}, 3.652976109882152*^9, 3.652976180892805*^9, { 3.6549238002529783`*^9, 3.654923800632909*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "a", ",", "b", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "p"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{ RowBox[{"p", "+", "1"}], ",", RowBox[{"n", "+", "1", "+", RowBox[{"b", "/", "a"}]}]}], "]"}], "-", RowBox[{"BernoulliB", "[", RowBox[{ RowBox[{"p", "+", "1"}], ",", RowBox[{"b", "/", "a"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"p", "+", "1"}], ")"}]}]}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", "Factor"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549295092695723`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1193]:="], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "a", ",", "b", ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", "FS"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "p"}], "]"}], "/", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"EulerE", "[", RowBox[{"p", ",", RowBox[{"n", "+", "1", "+", RowBox[{"b", "/", "a"}]}]}], "]"}]}], "+", RowBox[{"EulerE", "[", RowBox[{"p", ",", RowBox[{"b", "/", "a"}]}], "]"}]}], ")"}]}], "]"}], ",", RowBox[{"n", "^", "_"}], ",", "FS"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929514724825*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1195]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating function identities for the sequences, ", Cell[BoxData[ RowBox[{ SubscriptBox["S", "p"], RowBox[{"(", "n", ")"}]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.652952493991247*^9}], ", and the series defined by ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["B", "~"], "1"], "(", RowBox[{"w", ",", "x"}], ")"}], TraditionalForm]], "Input", CellChangeTimes->{3.65295315377803*^9}], ": " }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652953702680986*^9, 3.652953702933343*^9}, {3.652976184163775*^9, 3.652976238652906*^9}, 3.653249881235695*^9, {3.6549245104055367`*^9, 3.654924510856928*^9}, 3.6549297301506*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Series", " ", "expansions", " ", "of", " ", "the", " ", "inner", " ", "sum", " ", "generating", " ", "functions", " ", "over", " ", RowBox[{"x", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976271030622*^9, 3.652976318997766*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"n", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Normal", "[", "%", "]"}], ",", RowBox[{"x", "^", "_"}], ",", "Factor"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929653592812*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1197]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "sums", " ", "for", " ", "the", " ", "two"}], "-", RowBox[{ "variable", " ", "generating", " ", "functions", " ", "cases", " ", "of", " ", RowBox[{ SubscriptBox[ OverscriptBox["B", "~"], "1"], "(", RowBox[{"w", ",", "x"}], ")"}]}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976271030622*^9, 3.652976318997766*^9}, {3.652976370232512*^9, 3.652976395833705*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"n", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", "%", ")"}], "*", RowBox[{"Power", "[", RowBox[{"w", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"gfexp", "=", RowBox[{"FS", "[", "%", "]"}]}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Numerator", "[", "%", "]"}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{"%", ",", RowBox[{"w", "^", "_"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", "gfexp", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929658865305*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1201]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Expand", " ", "the", " ", "next", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "enumerating", " ", "these", " ", RowBox[{"sequences", ":", " "}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976431913865*^9, 3.652976487108714*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "4"}], ";", RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gfexp", "=", RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"w", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "w"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "w"}]}], ")"}], "2"]}]]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"spn", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Spn", "[", RowBox[{"p", ",", "1", ",", "0", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", "gfexp", ")"}]}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "n", "+", "1"}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", "gfexp", ")"}]}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], "+", "n", "+", "1"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929674491953*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1208]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"Factor", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"k", ",", "p"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{ RowBox[{"p", "+", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", "x"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", "x"]}], ")"}], "2"]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"n", " ", "x"}]], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", "x"]}]]}], ")"}], " ", "n"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "n"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929678744701*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1211]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating function identities for the generalized sequence functions, ", Cell[BoxData[ RowBox[{ SubscriptBox["S", "p"], RowBox[{"(", RowBox[{"u", ",", "n"}], ")"}]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.652952493991247*^9}], ", and the series defined by ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["B", "~"], "u"], "(", RowBox[{"w", ",", "x"}], ")"}], TraditionalForm]], "Input", CellChangeTimes->{3.65295315377803*^9}], ":" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652953704546164*^9, 3.6529537046554193`*^9}, {3.652976540497142*^9, 3.65297655826073*^9}, 3.653249883286929*^9, 3.654924512758581*^9, 3.654929857778908*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Series", " ", "expansions", " ", "of", " ", "the", " ", "inner", " ", "sum", " ", "generating", " ", "functions", " ", "over", " ", RowBox[{"x", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976271030622*^9, 3.652976318997766*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"n", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Series", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Normal", "[", "%", "]"}], ",", RowBox[{"x", "^", "_"}], ",", "FS"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929783555048*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1213]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "sums", " ", "for", " ", "the", " ", "two"}], "-", RowBox[{ "variable", " ", "generating", " ", "functions", " ", "cases", " ", "of", " ", RowBox[{ SubscriptBox[ OverscriptBox["B", "~"], "u"], "(", RowBox[{"w", ",", "x"}], ")"}]}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976271030622*^9, 3.652976318997766*^9}, {3.652976370232512*^9, 3.652976395833705*^9}, {3.652976633136566*^9, 3.652976633402937*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"m", " ", "x"}]], " ", "m"}]}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"n", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", "%", ")"}], "*", RowBox[{"Power", "[", RowBox[{"w", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"gfexp", "=", RowBox[{"FS", "[", "%", "]"}]}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Numerator", "[", "%", "]"}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", "Factor"}], "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{"%", ",", RowBox[{"w", "^", "_"}], ",", "Factor"}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", "gfexp", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929791122998*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1217]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Expand", " ", "the", " ", "next", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "enumerating", " ", "these", " ", RowBox[{"sequences", ":", " "}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976431913865*^9, 3.652976487108714*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "4"}], ";", RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gfexp", "=", RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", " ", "w"}], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", "x"], " ", "u", " ", "w"}], "+", RowBox[{ SuperscriptBox["u", "2"], " ", SuperscriptBox["w", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "x"}]], " ", SuperscriptBox["u", "2"], " ", SuperscriptBox["w", "2"]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"u", " ", "w"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u", " ", "w"}]}], ")"}], "2"]}]]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"spn", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Spn", "[", RowBox[{"p", ",", "1", ",", "0", ",", "u", ",", RowBox[{"n", "+", "1"}]}], "]"}], "-", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", "gfexp", ")"}]}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["u", RowBox[{"1", "+", "n"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], ")"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Spn", "[", RowBox[{"p", ",", "1", ",", "0", ",", "u", ",", RowBox[{"n", "+", "1"}]}], "]"}], "-", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", "gfexp", ")"}]}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], "+", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["u", RowBox[{"1", "+", "n"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], ")"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654929798798284*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1224]:="], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "4"}], ";", RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"spn", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"k", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", "x"}]], " ", "n", " "}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}]}]], ")"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["\[ExponentialE]", "x"], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]]}], "-", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", "x"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}]}], ")"}], "2"]]}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}]}], "+", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], "+", FractionBox["u", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}]}], ")"}], "2"]]}], ")"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"1", "*", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["u", RowBox[{"1", "+", "n"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], ")"}]}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"k", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "u"}], ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{"Exp", "[", RowBox[{"n", " ", "x"}], "]"}], " ", "n", " "}], RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}], "-", "1"}]], "-", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", "n", ")"}], " ", "x"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}], "-", "1"}], ")"}], "2"]]}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", "x", "]"}]}], "+", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], "+", FractionBox["u", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}]}], ")"}], "2"]]}], ")"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"1", "*", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["u", RowBox[{"1", "+", "n"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], ")"}]}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"k", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", "x"}]], " ", "n", " "}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}]}]], ")"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["\[ExponentialE]", "x"], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]]}], "-", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", "x"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}]}], ")"}], "2"]]}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}]}], "+", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], "+", FractionBox["u", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", "u"}]}], ")"}], "2"]]}], ")"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}], "+", RowBox[{"1", "*", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["u", RowBox[{"1", "+", "n"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], ")"}]}]}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654929807535239*^9, 3.654929810129551*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1227]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating function identities for the even more generalized sequences, ", Cell[BoxData[ RowBox[{ SubscriptBox["S", "p"], RowBox[{"(", RowBox[{"a", ",", RowBox[{"b", ";", "u"}], ",", "n"}], ")"}]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.652952493991247*^9}], ", and the series defined by ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["B", "~"], RowBox[{"a", ",", "b", ",", "u"}]], "(", RowBox[{"w", ",", "x"}], ")"}], TraditionalForm]], "Input", CellChangeTimes->{3.65295315377803*^9}], ":" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652953706093285*^9, 3.652953706210528*^9}, 3.6529771977905416`*^9, { 3.652977257369465*^9, 3.6529772968744926`*^9}, 3.6532498852906647`*^9, 3.6549245149786177`*^9, 3.6549299649487123`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Compute", " ", "the", " ", "sums", " ", "for", " ", "the", " ", "two"}], "-", RowBox[{ "variable", " ", "generating", " ", "functions", " ", "cases", " ", "of", " ", RowBox[{ SubscriptBox[ OverscriptBox["B", "~"], "1"], "(", RowBox[{"w", ",", "x"}], ")"}]}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976271030622*^9, 3.652976318997766*^9}, {3.652976370232512*^9, 3.652976395833705*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "x"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"b", "+", RowBox[{"a", " ", "m"}]}], ")"}], " ", "x"}]], " ", RowBox[{"(", RowBox[{"b", "+", RowBox[{"a", " ", "m"}]}], ")"}]}]}], ")"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"n", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", "%", ")"}], "*", RowBox[{"Power", "[", RowBox[{"w", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"fssum", "=", RowBox[{"FS", "[", "%", "]"}]}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Numerator", "[", "%", "]"}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{"%", ",", RowBox[{"w", "^", "_"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", "fssum", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Apart", "[", "fssum", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"w", ",", RowBox[{"w", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], ";"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549299114832582`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1229]:="], Cell[BoxData[{ RowBox[{"StandardForm", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"b", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", "x"}]]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}]]}], "-", FractionBox[ RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "x"}]], " ", "u", " ", "w"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"b", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "x"}]], " ", "u", " ", "w"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}]], "-", FractionBox[ SuperscriptBox["\[ExponentialE]", "x"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"u", " ", "w"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "+", RowBox[{"a", " ", "x"}]}]], " ", "u", " ", "w"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"u", " ", "w"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"x", "+", RowBox[{"2", " ", "a", " ", "x"}]}]], " ", SuperscriptBox["u", "2"], " ", SuperscriptBox["w", "2"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"u", " ", "w"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}]]}], "]"}], "\[IndentingNewLine]", RowBox[{"TeXForm", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.654929915922683*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85], CellLabel->"In[1237]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Expand", " ", "the", " ", "next", " ", "convergent"}], "-", RowBox[{ "based", " ", "generating", " ", "function", " ", "identities", " ", "enumerating", " ", "these", " ", RowBox[{"sequences", ":", " "}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976431913865*^9, 3.652976487108714*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "4"}], ";", RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Spn", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "k"}], "+", "b"}], ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "x"]}], "+", RowBox[{"b", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", "x"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", "x"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "x"}]]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "+", RowBox[{"a", " ", "x"}]}]]}]}], ")"}], " ", "u", " ", "w"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "x"}]]}], "-", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "+", RowBox[{"2", " ", "a", " ", "x"}]}]]}], ")"}], " ", SuperscriptBox["u", "2"], " ", SuperscriptBox["w", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"u", " ", "w"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["u", "n"]}], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], ")"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "k"}], "+", "b"}], ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "x"]}], "+", RowBox[{"b", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", "x"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", "x"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "x"}]]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "+", RowBox[{"a", " ", "x"}]}]]}]}], ")"}], " ", "u", " ", "w"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "x"}]]}], "-", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "+", RowBox[{"2", " ", "a", " ", "x"}]}]]}], ")"}], " ", SuperscriptBox["u", "2"], " ", SuperscriptBox["w", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "w"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"u", " ", "w"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "x"}]], " ", "u", " ", "w"}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["u", "n"]}], RowBox[{ RowBox[{"-", "1"}], "+", "u"}]], ")"}]}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549299229764633`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1239]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Comparisons to known sequence formulas and special generating functions: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652952515641096*^9, 3.6529525717325773`*^9}, {3.652952835642447*^9, 3.652952835642572*^9}, 3.6529529940842333`*^9, {3.652977206953824*^9, 3.65297722041663*^9}, 3.65324989355812*^9, {3.6549242201478233`*^9, 3.654924238602928*^9}, 3.654924398727954*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Some", " ", "comparisons", " ", "of", " ", "the", " ", "known", " ", "more", " ", "complicated", " ", "OGF", " ", "sums", " ", "for", " ", "the", " ", "sequence", " ", "versus", " ", "the", " ", "corresponding", " ", "EGF", " ", "terms", " ", "with", " ", "respect", " ", "to", " ", "the", " ", "parameter", " ", RowBox[{"p", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652976431913865*^9, 3.652976487108714*^9}, {3.654941508473297*^9, 3.654941569967758*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"ogfSumTerm", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", "ogfSumTerm", ")"}], "/.", RowBox[{"(", RowBox[{"u", "\[Rule]", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"(", "ogfSumTerm", ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654941597336001*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[536]:="], Cell[BoxData[{ RowBox[{"egfSumTerm", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "m"}], "]"}], "/", RowBox[{"Factorial", "[", "m", "]"}]}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", "egfSumTerm", ")"}], "/.", RowBox[{"(", RowBox[{"u", "\[Rule]", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"(", "egfSumTerm", ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6549416062364893`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[539]:="], Cell[BoxData[{ RowBox[{"ogfSumTerm", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "k"}], "+", "b"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", "ogfSumTerm", ")"}], "/.", RowBox[{"(", RowBox[{"u", "\[Rule]", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"(", "ogfSumTerm", ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654941613129385*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[542]:="], Cell[BoxData[{ RowBox[{"egfSumTerm", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "k"}], "+", "b"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "k"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", "m"}], "]"}], "/", RowBox[{"Factorial", "[", "m", "]"}]}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", "egfSumTerm", ")"}], "/.", RowBox[{"(", RowBox[{"u", "\[Rule]", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"(", "egfSumTerm", ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654941626812396*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[545]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Identities", " ", "involving", " ", "the", " ", "Bernoulli", " ", "numbers", " ", "and", " ", "first"}], "-", RowBox[{"order", " ", "Eulerian", " ", "number", " ", RowBox[{"triangle", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529521350090313`*^9, 3.652952214084423*^9}, {3.652952346345409*^9, 3.652952372387166*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"pupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Spn", "[", RowBox[{"p", ",", RowBox[{"n", "+", "1"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "+", "1"}], ",", "s"}], "]"}], "*", RowBox[{"BernoulliB", "[", "s", "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"p", "+", "1", "-", "s"}]}], "]"}], "/", RowBox[{"(", RowBox[{"p", "+", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EulerianE1", "[", RowBox[{"p", ",", "i"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"i", "+", "1"}]}], "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", RowBox[{"p", "+", "2"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "*", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"z", "*", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "w", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"z", " ", RowBox[{"Exp", "[", "w", "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "p"}], "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654924459445997*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[39]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"pupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Spn", "[", RowBox[{"p", ",", RowBox[{"n", "+", "1"}]}], "]"}], ",", "3"}], "]"}], "-", RowBox[{"{", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "+", "1"}], ",", "s"}], "]"}], "*", RowBox[{"BernoulliB", "[", "s", "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"p", "+", "1", "-", "s"}]}], "]"}], "/", RowBox[{"(", RowBox[{"p", "+", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EulerianE1", "[", RowBox[{"p", ",", "i"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"i", "+", "1"}]}], "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", RowBox[{"p", "+", "2"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "*", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"z", "*", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "w", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"z", " ", RowBox[{"Exp", "[", "w", "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "p"}], "}"}]}], "]"}]}]}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654924466041379*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[41]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Other", " ", "identities", " ", "enumerating", " ", "the", " ", "more", " ", "general", " ", "sequence", " ", "cases"}], ",", RowBox[{ SubscriptBox["S", "p"], "(", RowBox[{"u", ",", "n"}], ")"}], ",", RowBox[{ "by", " ", "known", " ", "identities", " ", "and", " ", "sequence", " ", "generating", " ", RowBox[{"functions", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529521350090313`*^9, 3.652952214084423*^9}, {3.652952346345409*^9, 3.652952372387166*^9}, 3.654924623557983*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"pupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Factor", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "u", ",", "n"}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"StirlingS2", "[", RowBox[{"p", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "j"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "u"}], ")"}]}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "u"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"u", ",", "j"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "p"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"StirlingS2", "[", RowBox[{"p", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"u", " ", "z"}], ",", "j"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "j", "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"u", " ", "z"}]}], ",", RowBox[{"j", "+", "1"}]}], "]"}]}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "*", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"u", "*", "z", "*", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "w", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", " ", "z", " ", RowBox[{"Exp", "[", "w", "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "p"}], "}"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654924360355424*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1176]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"pupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Factor", "[", RowBox[{"Spn", "[", RowBox[{"p", ",", "u", ",", "n"}], "]"}], "]"}], ",", "3"}], "]"}], "-", RowBox[{"{", RowBox[{ RowBox[{"Factor", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"StirlingS2", "[", RowBox[{"p", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"u", ",", "j"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "u"}], ")"}]}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "u"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"u", ",", "j"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "p"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"StirlingS2", "[", RowBox[{"p", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"u", " ", "z"}], ",", "j"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "j", "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"u", " ", "z"}]}], ",", RowBox[{"j", "+", "1"}]}], "]"}]}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "*", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"u", "*", "z", "*", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "w", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", " ", "z", " ", RowBox[{"Exp", "[", "w", "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", "p"}], "}"}]}], "]"}]}], "]"}]}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654924365132992*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1178]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Approximate generating function \ identities for sequences of binomials:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654794518735346*^9, 3.654794536437738*^9}, 3.654794943419429*^9, 3.6547949951793528`*^9, {3.65479509513304*^9, 3.654795119116849*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Several", " ", "expansions", " ", "of", " ", "the", " ", "peeled"}], "-", "off"}], ",", " ", RowBox[{"or", " ", "removed"}], ",", " ", RowBox[{"uppermost", "-", RowBox[{"indexed", " ", "sum", " ", RowBox[{"terms", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252595045833*^9, 3.653252621473418*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"mupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "m"}], ",", RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "-", "m", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "m", "+", "1"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "mupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]"}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654930156026433*^9, 3.654930188310207*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1241]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Enumerate", " ", "the", " ", SuperscriptBox["p", "th"], " ", "power", " ", "sequences"}], ",", " ", RowBox[{ SuperscriptBox["2", "p"], "-", "1"}], ",", " ", RowBox[{"by", " ", "these", " ", "finite", " ", RowBox[{"sums", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.653252739611123*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "1"}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "r"}], "}"}]}], "]"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}]}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "pupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654930161179555*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1243]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Enumerate", " ", "the", " ", SuperscriptBox["p", "th"], " ", "power", " ", "sequences"}], ",", " ", RowBox[{ SuperscriptBox["m", "p"], "-", "1"}], ",", " ", RowBox[{"by", " ", "these", " ", "finite", " ", RowBox[{"sums", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";", RowBox[{"rupper", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"m", ",", "p"}], "]"}], "-", "1"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"m", "-", "1"}], ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"m", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}]}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "r", ",", RowBox[{"pupper", "+", "r"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654930170720207*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[1245]:="], Cell[BoxData[ FormBox[ RowBox[{"The", " ", "second", " ", "set", " ", "of", " ", "motivating", " ", RowBox[{"examples", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}, {3.653253687036994*^9, 3.653253709614707*^9}, 3.654933620025098*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r_", ",", "m_", ",", "x_", ",", "collectByMVar_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "initTermsGF", ",", "simplifyITGFFnsList", ",", "itGFSimpList", ",", "remTermsGF", ",", "simplifyRTGFFnsList", ",", "rtGFSimpList"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"initTermsGF", "=", RowBox[{"FS", "[", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"m", "-", "1"}], ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "x"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"simplifyITGFFnsList", "=", RowBox[{"{", RowBox[{ RowBox[{"#1", "&"}], ",", RowBox[{ RowBox[{"simplifySumOfTerms", "[", RowBox[{"#1", ",", "Factor"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"simplifySumOfTerms", "[", RowBox[{"#1", ",", "FS"}], "]"}], "&"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"itGFSimpList", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"Apart", "[", RowBox[{"FS", "[", RowBox[{"(", "initTermsGF", ")"}], "]"}], "]"}], "]"}], "&"}], ",", "simplifyITGFFnsList"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"remTermsGF", "=", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"m", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"simplifyRTGFFnsList", "=", RowBox[{"{", RowBox[{"Factor", ",", "FS", ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"collectByMVar", "^", "_"}], ",", "FS"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"x", "^", "_"}], ",", "FS"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"Exp", "[", "_", "]"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#", ",", RowBox[{"x", "^", "_"}], ",", "FS"}], "]"}], "&"}]}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"Exp", "[", "_", "]"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#", ",", RowBox[{"x", "^", "_"}], ",", "Factor"}], "]"}], "&"}]}], "]"}], "&"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rtGFSimpList", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#1", "[", "remTermsGF", "]"}], "&"}], ",", "simplifyRTGFFnsList"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"InitialTermsGF", "[", "r", "]"}], ",", "initTermsGF", ",", "itGFSimpList", ",", RowBox[{"RemainingTermsEGF", "[", "r", "]"}], ",", "remTermsGF", ",", RowBox[{"SimplifiedRemainingTermsEGFs", "[", "r", "]"}], ",", "rtGFSimpList"}], "}"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6549326682625017`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", "sequences"}], ",", " ", RowBox[{ RowBox[{ SuperscriptBox["m", "p"], "-", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}, {3.653253687036994*^9, 3.653253709614707*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"rupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "m", ",", "x", ",", "m"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.654932680736678*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[117]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", "sequences"}], ",", " ", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "p"], "-", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}, {3.653253687036994*^9, 3.653253717753125*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"rupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "mval", ",", "x", ",", "x"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{ RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "m", ",", "x", ",", "x"}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", "mval"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654932680736678*^9, 3.654932701216549*^9}, 3.654933409251287*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[151]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", "sequences"}], ",", " ", RowBox[{ RowBox[{ SuperscriptBox["2", "p"], "-", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}, {3.653253687036994*^9, 3.653253731341322*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"mval", "=", "2"}], ";", RowBox[{"rupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "mval", ",", "x", ",", "x"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{ RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "m", ",", "x", ",", "x"}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", "mval"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654932680736678*^9, 3.654932701216549*^9}, {3.6549327533656883`*^9, 3.654932754597888*^9}, { 3.654932790832548*^9, 3.654932791288653*^9}, {3.65493283027344*^9, 3.6549328613135853`*^9}, 3.654933406002082*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[148]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", "sequences"}], ",", " ", RowBox[{ RowBox[{ SuperscriptBox["3", "p"], "-", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}, {3.653253687036994*^9, 3.653253746533559*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"mval", "=", "3"}], ";", RowBox[{"rupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "mval", ",", "x", ",", "x"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{ RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "m", ",", "x", ",", "x"}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", "mval"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654932680736678*^9, 3.654932701216549*^9}, {3.6549327533656883`*^9, 3.654932754597888*^9}, { 3.654932790832548*^9, 3.654932791288653*^9}, {3.65493283027344*^9, 3.654932876681634*^9}, {3.6549329815745583`*^9, 3.65493298687963*^9}, { 3.654933110758391*^9, 3.654933110899878*^9}, {3.654933215019843*^9, 3.654933232218546*^9}, {3.654933297211619*^9, 3.654933297679345*^9}, { 3.654933344580868*^9, 3.6549333573198423`*^9}, 3.654933396615553*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[145]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", "sequences"}], ",", " ", RowBox[{ RowBox[{ SuperscriptBox["4", "p"], "-", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}, {3.653253687036994*^9, 3.65325374997923*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"mval", "=", "4"}], ";", RowBox[{"rupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "mval", ",", "x", ",", "x"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{ RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "m", ",", "x", ",", "x"}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", "mval"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654932680736678*^9, 3.654932701216549*^9}, {3.6549327533656883`*^9, 3.654932754597888*^9}, { 3.654932790832548*^9, 3.654932791288653*^9}, {3.65493283027344*^9, 3.654932876681634*^9}, {3.6549329815745583`*^9, 3.65493298687963*^9}, { 3.654933110758391*^9, 3.654933110899878*^9}, {3.654933215019843*^9, 3.654933232218546*^9}, {3.654933297211619*^9, 3.654933297679345*^9}, { 3.654933344580868*^9, 3.6549333573198423`*^9}, 3.654933396615553*^9, { 3.654933444012938*^9, 3.6549334441673307`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[154]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "generating", " ", "functions", " ", "for", " ", "the", " ", "sequences"}], ",", " ", RowBox[{ RowBox[{ SuperscriptBox["5", "p"], "-", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653252655399048*^9, 3.6532526599499683`*^9}, {3.653252692524872*^9, 3.65325275702911*^9}, {3.653253687036994*^9, 3.653253752419342*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"mval", "=", "5"}], ";", RowBox[{"rupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "mval", ",", "x", ",", "x"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"InitSumIndexR", "\[Rule]", "r"}], ",", RowBox[{ RowBox[{"CF", "[", RowBox[{"getPthPartialGFExpansions", "[", RowBox[{"r", ",", "m", ",", "x", ",", "x"}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", "mval"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654932680736678*^9, 3.654932701216549*^9}, {3.6549327533656883`*^9, 3.654932754597888*^9}, { 3.654932790832548*^9, 3.654932791288653*^9}, {3.65493283027344*^9, 3.654932876681634*^9}, {3.6549329815745583`*^9, 3.65493298687963*^9}, { 3.654933110758391*^9, 3.654933110899878*^9}, {3.654933215019843*^9, 3.654933232218546*^9}, {3.654933297211619*^9, 3.654933297679345*^9}, { 3.654933344580868*^9, 3.6549333573198423`*^9}, 3.654933396615553*^9, { 3.654933456177636*^9, 3.6549334563075113`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[157]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section]7: Expansions of exact formulas and congruence \ properties obtained from finite difference equations:", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, {3.654789442546795*^9, 3.6547894525972767`*^9}, {3.654790186006219*^9, 3.6547902184028273`*^9}, { 3.654790491696991*^9, 3.654790491764077*^9}, {3.65479306937361*^9, 3.6547931535389977`*^9}, {3.6547976366588583`*^9, 3.6547976376814833`*^9}, 3.654960514936037*^9, {3.655268034838372*^9, 3.6552680368706636`*^9}}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Formulas from the proposition: \ [TODO]\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.6547985946702547`*^9, 3.65479860258181*^9}, {3.655252875525238*^9, 3.655252877540732*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruence properties for the generalized product sequence cases, ", Cell[BoxData[ RowBox[{ SubscriptBox["p", "n"], RowBox[{"(", RowBox[{"\[Alpha]", ",", "R"}], ")"}]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6529433996584377`*^9}, FontFamily->"Nimbus Sans L"], ", modulo h (and ", Cell[BoxData[ RowBox[{"h", " ", SuperscriptBox["\[Alpha]", "r"]}]], "Text", "TR", FontWeight->"Bold"], "): ", StyleBox["[TODO]", FontVariations->{"Underline"->True}] }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, 3.655252844585112*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"mods", "[", RowBox[{"h", ",", "n", ",", "a"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", "R"}], "]"}], ",", "h"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"pn", "[", RowBox[{"k", ",", RowBox[{"-", "a"}], ",", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", "a"}]}]}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", "a", ",", "R"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"h", ">", "n"}], ",", RowBox[{"ChnV2", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], ",", "0"}], "]"}]}], ",", "h"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655252859982251*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[568]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Exact \ finite sum expansion identities:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, 3.655252894540491*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"mods", "[", RowBox[{"h", ",", "n", ",", "a"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"-", "a"}], ",", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "a"}]}]}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "a", ",", "R"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"KroneckerDelta", "[", RowBox[{"n", ",", "0"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65525292587743*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[570]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"mods", "[", RowBox[{"h", ",", "n", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"n", ",", "a", ",", "R"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "r"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"-", "a"}], ",", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "+", "r"}], ")"}], "*", "a"}]}]}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "a", ",", "R"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"n", "+", "r"}], ",", "n", ",", "a", ",", "R"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "3"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552529321377573`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[572]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Example", FontVariations->{"Underline"->True}], ": Binomial-coefficient-related convolution formulas: (TODO)" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654798650363329*^9, 3.654798677785475*^9}, {3.655253032236292*^9, 3.655253034171958*^9}, 3.655264825573102*^9, {3.655265006370194*^9, 3.6552650082798433`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "ModFn", ",", "BinomCvlIdentsLHSV123", ",", "BinomCvlIdentsLHSV4", ",", "BinomCvlIdentsRHSV1", ",", "BinomCvlIdentsRHSV2", ",", "BinomCvlIdentsRHSV3", ",", "BinomCvlIdentsRHSV4"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ModFn", "[", RowBox[{"input_", ",", "h_"}], "]"}], ":=", RowBox[{"PolynomialMod", "[", RowBox[{"input", ",", "h", ",", RowBox[{"CoefficientDomain", "\[Rule]", "Integers"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinomCvlIdentsLHSV123", "[", RowBox[{"n_", ",", "p_", ",", "r_", ",", "a_", ",", "b_", ",", "g_", ",", RowBox[{"s_:", "0"}]}], "]"}], ":=", RowBox[{ RowBox[{"BinomCvlIdentsLHSV123", "[", RowBox[{"n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "s"}], "]"}], "=", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], ",", RowBox[{"n", "-", "s"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"n", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BinomCvlIdentsLHSV4", "[", RowBox[{ "n_", ",", "p_", ",", "r_", ",", "a_", ",", "b_", ",", "g_", ",", RowBox[{"s_:", "0"}]}], "]"}], ":=", RowBox[{ RowBox[{"BinomCvlIdentsLHSV4", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "s"}], "]"}], "=", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], "+", "n", "-", "s", "-", "1"}], ",", RowBox[{"n", "-", "s"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinomCvlIdentsRHSV1", "[", RowBox[{"n_", ",", "p_", ",", "r_", ",", "a_", ",", "b_", ",", "g_", ",", RowBox[{"s_:", "0"}]}], "]"}], ":=", RowBox[{ RowBox[{"BinomCvlIdentsRHSV1", "[", RowBox[{"n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "s"}], "]"}], "=", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"n", "-", "s", "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}]}]}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}]}], "/", "a"}], "+", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], ",", "k"}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], ",", RowBox[{"n", "-", "s", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinomCvlIdentsRHSV2", "[", RowBox[{"n_", ",", "p_", ",", "r_", ",", "a_", ",", "b_", ",", "g_", ",", RowBox[{"s_:", "0"}]}], "]"}], ":=", RowBox[{ RowBox[{"BinomCvlIdentsRHSV2", "[", RowBox[{"n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "s"}], "]"}], "=", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"n", "-", "s", "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}]}]}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], "-", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], ",", RowBox[{"n", "-", "s", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinomCvlIdentsRHSV3", "[", RowBox[{"n_", ",", "p_", ",", "r_", ",", "a_", ",", "b_", ",", "g_", ",", RowBox[{"s_:", "0"}]}], "]"}], ":=", RowBox[{ RowBox[{"BinomCvlIdentsRHSV3", "[", RowBox[{"n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "s"}], "]"}], "=", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"n", "-", "s", "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}]}]}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], "+", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "*", "r"}]}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], ",", RowBox[{"n", "-", "s", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinomCvlIdentsRHSV4", "[", RowBox[{"n_", ",", "p_", ",", "r_", ",", "a_", ",", "b_", ",", "g_", ",", RowBox[{"s_:", "0"}]}], "]"}], ":=", RowBox[{ RowBox[{"BinomCvlIdentsRHSV4", "[", RowBox[{"n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "s"}], "]"}], "=", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s", "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}]}]}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], "+", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], ",", "k"}], "]"}], "*", RowBox[{"Factorial", "[", "k", "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}], ")"}], "/", "a"}], "+", "n", "-", "s", "-", "k", "-", "1"}], ",", RowBox[{"n", "-", "s", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655264791274151*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"pupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ablower", ",", "abupper", ",", "glower", ",", "gupper"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "6", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sum", "[", RowBox[{"p", ",", "n", ",", "r", ",", "a", ",", "b", ",", "g"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"FS", "[", RowBox[{"ModFn", "[", RowBox[{ RowBox[{ RowBox[{"BinomCvlIdentsLHSV123", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], "-", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"BinomCvlIdentsRHSV1", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}]}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "supper", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "2", ",", "pupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"g", ",", RowBox[{"Range", "[", RowBox[{"glower", ",", "gupper"}], "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "%", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "=!=", RowBox[{"{", "0", "}"}]}], "&"}]}], "]"}], "===", RowBox[{"{", "}"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264800341774*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"pupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ablower", ",", "abupper", ",", "glower", ",", "gupper"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "6", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sum", "[", RowBox[{"p", ",", "n", ",", "r", ",", "a", ",", "b", ",", "g"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"FS", "[", RowBox[{"ModFn", "[", RowBox[{ RowBox[{ RowBox[{"BinomCvlIdentsLHSV123", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], "-", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"BinomCvlIdentsRHSV2", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}]}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "supper", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "2", ",", "pupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"g", ",", RowBox[{"Range", "[", RowBox[{"glower", ",", "gupper"}], "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "%", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "=!=", RowBox[{"{", "0", "}"}]}], "&"}]}], "]"}], "===", RowBox[{"{", "}"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264804348527*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"pupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ablower", ",", "abupper", ",", "glower", ",", "gupper"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "6", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sum", "[", RowBox[{"p", ",", "n", ",", "r", ",", "a", ",", "b", ",", "g"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"FS", "[", RowBox[{"ModFn", "[", RowBox[{ RowBox[{ RowBox[{"BinomCvlIdentsLHSV123", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], "-", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"BinomCvlIdentsRHSV3", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}]}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "supper", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "2", ",", "pupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"g", ",", RowBox[{"Range", "[", RowBox[{"glower", ",", "gupper"}], "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "%", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "=!=", RowBox[{"{", "0", "}"}]}], "&"}]}], "]"}], "===", RowBox[{"{", "}"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264811090458*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"pupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ablower", ",", "abupper", ",", "glower", ",", "gupper"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "6", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sum", "[", RowBox[{"p", ",", "n", ",", "r", ",", "a", ",", "b", ",", "g"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"FS", "[", RowBox[{"ModFn", "[", RowBox[{ RowBox[{ RowBox[{"BinomCvlIdentsLHSV4", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], "-", RowBox[{"ModFn", "[", RowBox[{ RowBox[{"BinomCvlIdentsRHSV4", "[", RowBox[{ "n", ",", "p", ",", "r", ",", "a", ",", "b", ",", "g", ",", "0"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}]}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"a", ",", "r"}], "]"}]}]}], "]"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "supper", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "2", ",", "pupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"Range", "[", RowBox[{"ablower", ",", "abupper"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"g", ",", RowBox[{"Range", "[", RowBox[{"glower", ",", "gupper"}], "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "%", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "=!=", RowBox[{"{", "0", "}"}]}], "&"}]}], "]"}], "===", RowBox[{ RowBox[{"{", "}"}], "j"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6552648172209044`*^9, 3.65526481865528*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Example", FontVariations->{"Underline"->True}], ": ", "Combinatorial sums for the double factorial and \[Alpha]-factorial \ functions:" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654798650363329*^9, 3.654798677785475*^9}, {3.655253032236292*^9, 3.655253034171958*^9}, 3.655264571193218*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{"First", ",", " ", RowBox[{ RowBox[{ "check", " ", "the", " ", "expansion", " ", "of", " ", "a", " ", "binomial", " ", "coefficient", " ", "identitiy", " ", "at", " ", "non"}], "-", RowBox[{"integer", " ", RowBox[{"arguments", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532764225023947`*^9, 3.653276457073166*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "/", "alpha"}], "-", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"1", "/", "alpha"}], "]"}]}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "/", "alpha"}], "-", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "/", "alpha"}], "-", "n"}], "]"}]}]}], "/.", RowBox[{"(", RowBox[{"alpha", "\[Rule]", "a"}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FE", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "a"}], "-", "n", "+", "k"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "/", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "a"}], "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{"(", "%%", ")"}], "/", RowBox[{"(", "%", ")"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655264682032216*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "several", " ", "forms", " ", "of", " ", "the", " ", "first", " ", "single", " ", "sum", " ", RowBox[{"identity", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653276904782229*^9, 3.653276928685771*^9}, {3.653277030023714*^9, 3.653277033599263*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "alpha"}], ",", RowBox[{"-", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "alpha"}], "-", "n"}], ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "2", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65526472662611*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "alpha"}], "-", "n"}], ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "1", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.65526466883737*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "/", "alpha"}], "-", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{"1", "/", "alpha"}], "]"}]}], "*", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "/", "alpha"}], "-", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "/", "alpha"}], "-", "n"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "2", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655264672445448*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "alpha"}], "+", "k", "-", "n"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "/", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "alpha"}], "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "2", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264718385776*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "first", " ", "double", " ", "sum", " ", "identity", " ", RowBox[{"(", RowBox[{ "and", " ", "check", " ", "differences", " ", "in", " ", "the", " ", "computed", " ", "values"}], ")"}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653276669463373*^9, 3.6532766888186607`*^9}, {3.653276811102984*^9, 3.653276820933961*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "i"}], "-", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "2", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264709934424*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "i"}], "-", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "2", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655264659667758*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "second", " ", "double", " ", "sum", " ", "identity", " ", RowBox[{"(", RowBox[{ "and", " ", "check", " ", "differences", " ", "in", " ", "the", " ", "computed", " ", "values"}], ")"}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653276669463373*^9, 3.6532766969476*^9}, 3.653276825959605*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "i"}], ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "i"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "2", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264702289836*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alphaupper", "=", "10"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"factfn", "[", RowBox[{"alpha", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "n"}], "-", "1"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "i"}], ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", RowBox[{"k", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", "i"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", RowBox[{ RowBox[{"alpha", " ", "*", RowBox[{"(", RowBox[{"n", "-", "1", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "2", ",", "alphaupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.65526465098965*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Polynomial expansions by \ multiple sum identities:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654798822899189*^9, 3.654798835151553*^9}, {3.654798875435527*^9, 3.654798876490038*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ multiple 5-sum and 6-sum expansions of the generalized product sequence cases:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654798941858122*^9, 3.6547989479264307`*^9}, 3.6552533860921497`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{"First", ",", RowBox[{ "verify", " ", "the", " ", "subexpansions", " ", "of", " ", "the", " ", "generalized", " ", "product", " ", "functions", " ", "noted", " ", "in", " ", "the", " ", RowBox[{"proof", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653285548547284*^9, 3.653285588793923*^9}, 3.655253407675879*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"kupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "k"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"pn", "[", RowBox[{"k", ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g", "+", "r"}]}], "]"}], "-", RowBox[{"FE", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "k"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g", "+", "r"}], ")"}], "/", "a"}], ",", "k"}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"pn", "[", RowBox[{"k", ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g", "+", "r"}]}], "]"}], "-", RowBox[{"Expand", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"k", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g", "+", "r"}], ")"}], ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"pn", "[", RowBox[{"k", ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g", "+", "r"}]}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"k", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"g", "+", "r", "+", RowBox[{"b", "*", "n0"}]}], ",", RowBox[{"m", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "n0"}], ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "p", ",", "k"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"pn", "[", RowBox[{"k", ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g", "+", "r"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655253430470378*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Verify", " ", "cases", " ", "of", " ", "the", " ", "multiple", " ", "5"}], "-", RowBox[{"sum", " ", RowBox[{"expansions", ":"}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ StyleBox[ RowBox[{ SubscriptBox["p", "n"], "(", RowBox[{"\[Alpha]", ",", RowBox[{ RowBox[{"\[Beta]", " ", "n"}], "+", "\[Gamma]"}]}], ")"}], FontFamily->"Sans Serif"], StyleBox[" ", FontFamily->"Sans Serif"], StyleBox["\[RightTeeArrow]", FontFamily->"Sans Serif"], StyleBox[" ", FontFamily->"Sans Serif"], TagBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"p", "=", "0"}], RowBox[{"n", "-", "s"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "p"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "s", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "0"}], RowBox[{"n", "-", "s", "-", "k"}]], RowBox[{ TemplateBox[{"m","r"}, "Binomial"], " ", TemplateBox[{RowBox[{"n", "-", "s"}],"k"}, "Binomial"], " ", RowBox[{ RowBox[{ TemplateBox[{"t",RowBox[{"p", "-", "r"}]}, "Binomial"], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], "[", GridBox[{ { RowBox[{"n", "-", "s", "-", "k"}]}, {"t"} }], "]"}], "\[Times]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "p", "-", "r"}]], SuperscriptBox["\[Alpha]", RowBox[{ RowBox[{"-", "m"}], "+", "n", "-", "s", "-", "t"}]], " ", SuperscriptBox["\[Beta]", "r"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}], RowBox[{"p", "-", "r"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}], " ", "\[Alpha]"}], "-", "\[Gamma]"}], ")"}], RowBox[{ RowBox[{"-", "p"}], "+", "r", "+", "t"}]], " ", SuperscriptBox["\[Gamma]", RowBox[{"m", "-", "r"}]], " ", "\[Times]", " ", SuperscriptBox["n", "p"]}]}], ")"}]}]}], ")"}]}]}], "+", SubscriptBox[ RowBox[{"[", RowBox[{"n", "\[LessEqual]", "s"}], "]"}], "\[Delta]"]}], HoldForm]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653286280674959*^9, 3.653286310651782*^9}, {3.655253533856316*^9, 3.655253535028162*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "these", " ", "expansions", " ", "without", " ", "adding", " ", "the", " ", "extra", " ", "term", " ", "from", " ", "Kronecker", " ", RowBox[{"delta", " ", "/", " ", RowBox[{"Iverson", "'"}]}], "s", " ", RowBox[{"convention", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653285548547284*^9, 3.653285588793923*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"supper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"prodseqs", "[", RowBox[{"s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "-", "b"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", RowBox[{"t", "-", "p", "+", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{ "k", "-", "m", "+", "n", "-", "s", "-", "k", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "supper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552535866863737`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"supper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"prodseqs", "[", RowBox[{"s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s", "-", "m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", RowBox[{"(", RowBox[{"g", "-", RowBox[{"a", "*", RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}]}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s", "-", "m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", RowBox[{"t", "-", RowBox[{"(", RowBox[{"p", "-", "r"}], ")"}]}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "r", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}]}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "supper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"s", "+", "1"}], ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655253576085738*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ "Include", " ", "the", " ", "extra", " ", "term", " ", "from", " ", "Kronecker", " ", RowBox[{"delta", " ", "/", " ", RowBox[{"Iverson", "'"}]}], "s", " ", RowBox[{"convention", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653285548547284*^9, 3.653285588793923*^9}, {3.6532856855255013`*^9, 3.65328568724301*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"supper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"prodseqs", "[", RowBox[{"s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s", "-", "m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", RowBox[{"(", RowBox[{"g", "-", RowBox[{"a", "*", RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}]}], "]"}]}], "+", RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{"n", "\[LessEqual]", "s"}], ",", "True"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s", "-", "m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", RowBox[{"t", "-", RowBox[{"(", RowBox[{"p", "-", "r"}], ")"}]}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "r", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{"n", "\[LessEqual]", "s"}], ",", "True"}], "]"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "supper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655253609209073*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Verify", " ", "cases", " ", "of", " ", "the", " ", "multiple", " ", "6"}], "-", RowBox[{"sum", " ", RowBox[{"expansions", ":"}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ StyleBox[ RowBox[{ SubscriptBox["p", "n"], "(", RowBox[{"\[Alpha]", ",", RowBox[{ RowBox[{"\[Beta]", " ", "n"}], "+", "\[Gamma]"}]}], ")"}], FontFamily->"Sans Serif"], StyleBox[" ", FontFamily->"Sans Serif"], StyleBox["\[RightTeeArrow]", FontFamily->"Sans Serif"], StyleBox[" ", FontFamily->"Sans Serif"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "s", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "k"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"u", "=", "0"}], RowBox[{"3", " ", "n"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"p", "=", "0"}], "u"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "p"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "0"}], RowBox[{"n", "-", "s", "-", "k"}]], RowBox[{ TemplateBox[{"m","r"}, "Binomial"], " ", TemplateBox[{"i",RowBox[{"u", "-", "p"}]}, "Binomial"], " ", RowBox[{ RowBox[{ RowBox[{ TemplateBox[{"t",RowBox[{"p", "-", "r"}]}, "Binomial"], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], " ", "[", GridBox[{ {"k"}, {"i"} }], "]"}], "[", GridBox[{ { RowBox[{"n", "-", "s", "-", "k"}]}, {"t"} }], "]"}], "\[Times]", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "+", "k", "-", "r", "+", "u"}]], " ", SuperscriptBox["\[Alpha]", RowBox[{ RowBox[{"-", "m"}], "+", "n", "-", "s", "-", "t"}]], " ", SuperscriptBox["\[Beta]", "r"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}], RowBox[{"p", "-", "r"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}], " ", "\[Alpha]"}], "-", "\[Gamma]"}], ")"}], RowBox[{ RowBox[{"-", "p"}], "+", "r", "+", "t"}]], " ", SuperscriptBox["\[Gamma]", RowBox[{"m", "-", "r"}]], " "}], RowBox[{"k", "!"}]], "\[Times]", SuperscriptBox["s", RowBox[{"i", "+", "p", "-", "u"}]], " ", SuperscriptBox["n", "u"]}]}], ")"}]}]}]}], ")"}], TagBox[ RowBox[{"+", SubscriptBox[ RowBox[{"[", RowBox[{"n", "\[LessEqual]", "s"}], "]"}], "\[Delta]"]}], HoldForm]}]}]}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653286280674959*^9, 3.653286310651782*^9}, 3.6532863986470623`*^9, 3.65328720822013*^9, {3.6552536460406923`*^9, 3.655253646792207*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", "s", "]"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"n", ",", "u"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "-", "b"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", RowBox[{"t", "-", "p", "+", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"k", "-", "m", "+", "n", "-", "s", "-", "k", "-", "t"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", RowBox[{"u", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "s"}], ",", RowBox[{"i", "-", "u", "+", "p"}]}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "-", "i"}]}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Assuming", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"p", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"r", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"m", ",", "Integers"}], "]"}]}], "}"}], ",", RowBox[{"FS", "[", "%", "]"}]}], "]"}], " ", "//", " ", "PE"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Assuming", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"p", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"r", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"m", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"n", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"s", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"t", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"k", ",", "Integers"}], "]"}]}], "}"}], ",", RowBox[{"FS", "[", RowBox[{"PE", "[", "%", "]"}], "]"}]}], "]"}], " ", "//", " ", "PE"}], "\[IndentingNewLine]", RowBox[{"FS", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655253664795719*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "these", " ", "expansions", " ", "without", " ", "adding", " ", "the", " ", "extra", " ", "term", " ", "from", " ", "the", " ", "Kronecker", " ", RowBox[{"delta", " ", "/", " ", RowBox[{"Iverson", "'"}]}], "s", " ", RowBox[{"convention", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653285548547284*^9, 3.653285588793923*^9}, {3.653403831625905*^9, 3.653403841744175*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";", RowBox[{"supper", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"prodseqs", "[", RowBox[{"s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"n", ",", "u"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "-", "b"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", RowBox[{"t", "-", "p", "+", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{ "k", "-", "m", "+", "n", "-", "s", "-", "k", "-", "t"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", RowBox[{"u", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "s"}], ",", RowBox[{"i", "-", "u", "+", "p"}]}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "-", "i"}]}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"3", " ", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "u"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "supper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655253704119568*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";", RowBox[{"supper", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"prodseqs", "[", RowBox[{"s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"k", "!"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ "i", "+", "m", "+", "n", "-", "r", "+", "s", "+", "t", "-", "u"}]], " ", SuperscriptBox["a", RowBox[{ RowBox[{"-", "m"}], "+", "n", "-", "s", "-", "t"}]], " ", SuperscriptBox["b", "r"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], RowBox[{"p", "-", "r"}]], " ", SuperscriptBox["g", RowBox[{"m", "-", "r"}]], " ", SuperscriptBox["n", "u"], " ", SuperscriptBox["s", RowBox[{"i", "+", "p", "-", "u"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "g", "+", RowBox[{"a", " ", "s"}]}], ")"}], RowBox[{ RowBox[{"-", "p"}], "+", "r", "+", "t"}]], " ", RowBox[{"Binomial", "[", RowBox[{"i", ",", RowBox[{ RowBox[{"-", "p"}], "+", "u"}]}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], " ", RowBox[{"StirlingS1", "[", RowBox[{"k", ",", "i"}], "]"}], " ", RowBox[{"StirlingS1", "[", RowBox[{"k", ",", "m"}], "]"}], " ", RowBox[{"StirlingS1", "[", RowBox[{ RowBox[{ RowBox[{"-", "k"}], "+", "n", "-", "s"}], ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"3", " ", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "u"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "supper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"s", "+", "1"}], ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552537125785027`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Include", " ", "the", " ", "extra", " ", "term", " ", "from", " ", "Kronecker", " ", RowBox[{"delta", " ", "/", " ", RowBox[{"Iverson", "'"}]}], "s", " ", RowBox[{"convention", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653285548547284*^9, 3.653285588793923*^9}, {3.6532856855255013`*^9, 3.65328568724301*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";", RowBox[{"supper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"prodseqs", "[", RowBox[{"s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", "n"}], "+", "g"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", RowBox[{"u", "-", "p"}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "i"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"u", "-", "r", "+", "k", "+", "1"}]}], "]"}], "/", RowBox[{"Factorial", "[", "k", "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s", "-", "m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"i", "-", "u", "+", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"a", "+", "b"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"a", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}], "-", "g"}], ",", RowBox[{"t", "-", RowBox[{"(", RowBox[{"p", "-", "r"}], ")"}]}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "u"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"3", " ", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "u"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], "+", RowBox[{"KroneckerDelta", "[", RowBox[{ RowBox[{"n", "\[LessEqual]", "s"}], ",", "True"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "supper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655253722383482*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Triple \ sum expansions of the single factorial function involving the Stirling \ numbers:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.6547989556702347`*^9, 3.654798976184869*^9}, {3.655253816089529*^9, 3.65525381631561*^9}, { 3.655254071517992*^9, 3.655254072904231*^9}, {3.6552544393286657`*^9, 3.655254439485591*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Simplify", " ", "parameters", " ", "for", " ", "the", " ", "triple", " ", "sums", " ", "for", " ", "the", " ", "single", " ", "factorial", " ", RowBox[{"function", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.6552543703834352`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", "s", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "-", "b"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"a", "-", "g"}], ",", RowBox[{"t", "-", "p", "+", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"k", "-", "m", "+", "n", "-", "s", "-", "k", "-", "t"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"r", "\[Rule]", "m"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", "p"}], ")"}]}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"p", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"r", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"m", ",", "Integers"}], "]"}]}], "}"}], ",", RowBox[{"FS", "[", "%", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"p", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"r", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"m", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"n", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"s", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"t", ",", "Integers"}], "]"}]}], "}"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "%", ")"}], "/.", RowBox[{"(", RowBox[{"g", "\[Rule]", "0"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"-", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"b", "\[Rule]", "1"}], ")"}]}], "]"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6552543773820953`*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "s", "]"}], ";", RowBox[{"nupper", "=", "10"}], ";", RowBox[{"s", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}]}], "+", "g"}]}], "]"}], ",", RowBox[{ RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "a", ",", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}]}], "+", "g"}]}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "s", "-", "k"}], ",", "t"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"t", ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"b", ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"g", ",", RowBox[{"m", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "-", "b"}], ",", RowBox[{"p", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"a", "-", "g"}], ",", RowBox[{"t", "-", "p", "+", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{ "k", "-", "m", "+", "n", "-", "s", "-", "k", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "+", "t"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "n"}], "+", "s"}], ")"}], "p"], " ", RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], " ", RowBox[{"StirlingS1", "[", RowBox[{"k", ",", "p"}], "]"}], " ", RowBox[{"StirlingS1", "[", RowBox[{ RowBox[{ RowBox[{"-", "k"}], "+", "n", "-", "s"}], ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "s"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "n"}], "+", "s"}], ")"}], "p"], " ", RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "p"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{ RowBox[{ RowBox[{"-", "k"}], "+", "n", "-", "s"}], ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "s", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1", "-", "s"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "n"}], "+", "s"}], ")"}], "p"], " ", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "k"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "p"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{ RowBox[{ RowBox[{"-", "k"}], "+", "n", "-", "s"}], ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "+", "p", "+", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "p"], " ", RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], " ", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "+", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], RowBox[{"n", "-", "p"}]], " ", RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], " ", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", RowBox[{"n", "-", "p"}]}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "s", "]"}], ";"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655254412247059*^9, 3.655254415737371*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "stated", " ", "triple", " ", "sum", " ", RowBox[{"expansions", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655254428231207*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", RowBox[{"n", "-", "1", "-", "k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", RowBox[{"n", "-", "p"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "p"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655254434530335*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Examples \ of triple sum expansions for the double factorial function:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.654798984535778*^9, 3.654799002247305*^9}, {3.655254015635084*^9, 3.655254017729554*^9}, 3.655254298662388*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "Comparisons", " ", "to", " ", "known", " ", "double", " ", "and", " ", "triple", " ", "sum", " ", "expansions", " ", "of", " ", "the", " ", "double", " ", "factorial", " ", RowBox[{"function", ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"Compute", " ", "cases", " ", "of", " ", "all", " ", "five", " ", RowBox[{"sums", ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655254083595326*^9, 3.6552540913674583`*^9}, 3.65525420729038*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "k"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "k", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"m", "*", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "k"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"(", RowBox[{"n", "-", "k"}], ")"}]}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"n", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"Fcf", "[", RowBox[{"2", ",", RowBox[{"n", "-", "k", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "-", "k"}], "\[NotEqual]", "0"}], ",", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", RowBox[{"2", "k"}]}], ",", "m"}], "]"}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "k"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655254113223812*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "cases", " ", "of", " ", "the", " ", "first", " ", "two", " ", RowBox[{"sums", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655254136089055*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"k", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "j"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "n"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"k", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k", "+", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "j"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k", "+", "1", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", RowBox[{"m", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "k", "+", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"k", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "j"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "k"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655254150086574*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "Compute", " ", "cases", " ", "of", " ", "the", " ", "last", " ", "three", " ", RowBox[{"sums", ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "Generate", " ", "some", " ", "table", " ", "and", " ", "polynomial", " ", "expansion", " ", "data", " ", "related", " ", "to", " ", "these", " ", RowBox[{"sums", ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655254160044462*^9, 3.65525418449872*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"kupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "k"}], ",", RowBox[{"Expand", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "n"}], ",", "k"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "+", "1", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"n", ",", RowBox[{"m", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655254266939486*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "2"}], ";", RowBox[{"nkupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Simplify", "[", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655254270983835*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"kupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "k"}], ",", RowBox[{"Expand", "[", RowBox[{"FE", "[", RowBox[{"pn", "[", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"2", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"1", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"n", "-", RowBox[{"1", "/", "2"}]}], ")"}]}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655254279167222*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"kupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "k"}], ",", RowBox[{"Expand", "[", RowBox[{"FE", "[", RowBox[{"pn", "[", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "k"}], "-", "1"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"2", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"4", " ", "k"}], "-", RowBox[{"2", " ", "n"}]}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Fcf", "[", RowBox[{"1", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"4", " ", "k"}], "-", RowBox[{"2", " ", "n"}], "-", "2"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.65525428323567*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "last", " ", "three", " ", RowBox[{"sums", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653284475278633*^9, 3.6532844867677813`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"(", RowBox[{"n", "-", "k"}], ")"}]}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"pn", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"n", "-", "k"}], ")"}]}], "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], ",", RowBox[{"k", "-", "1"}]}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "j"}], "]"}], "*", RowBox[{"Fcf", "[", RowBox[{"2", ",", RowBox[{"n", "-", "k", "+", "1"}], ",", RowBox[{"m", "+", "1"}]}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "-", "k"}], "\[NotEqual]", "0"}], ",", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", RowBox[{"2", "k"}]}], ",", "m"}], "]"}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "k", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"n", "-", "k"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655254239319067*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Finite \ sums for the single factorial function involving the (modified) Stirling \ polynomials and generalized Bernoulli polynomial sequences: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}, {3.655244036059922*^9, 3.6552440375962067`*^9}, {3.6552538590173883`*^9, 3.655253868033174*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "Definitions", " ", "and", " ", "computations", " ", "with", " ", "the", " ", "modified", " ", "Stirling", " ", "polynomial", " ", "sequences"}], ",", RowBox[{ SuperscriptBox[ SubscriptBox["\[Sigma]", "n"], "*"], "(", "x", ")"}], ",", RowBox[{"defined", " ", "in", " ", "the", " ", RowBox[{"article", ":"}]}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ "Mathematica", " ", "is", " ", "limited", " ", "in", " ", "its", " ", "computations", " ", "of", " ", "the", " ", "triple", " ", "sum", " ", "identities", " ", "expanded", " ", "in", " ", "Section", " ", "6.2", " ", "when", " ", "the", " ", "indices", " ", "correspond", " ", "to", " ", "inputs", " ", "to", " ", "the"}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ "Stirling", " ", "polynomial", " ", "expansions", " ", "of", " ", "the", " ", "Stirling", " ", "numbers", " ", "of", " ", "the", " ", "first", " ", "kind", " ", "when", " ", "the", " ", "variable", " ", "x", " ", "is", " ", "zero"}], "-", "valued"}], ",", " ", "\[IndentingNewLine]", RowBox[{"for", " ", "example"}], ",", " ", RowBox[{"in", " ", "the", " ", "forms", " ", "of"}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"[", GridBox[{ {"k"}, { RowBox[{"k", "-", "t"}]} }], "]"}], " ", "\[RightTeeArrow]", " ", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "-", "t"}], ")"}], " ", "\[Times]", " ", RowBox[{"k", "!"}], " ", SubscriptBox["\[Sigma]", "t"], RowBox[{"(", "k", ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"k", "-", "t"}], ")"}], "!"}]]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"in", " ", "the", " ", "first", " ", "of", " ", "these", " ", RowBox[{"sums", ".", " ", "The"}], " ", "modified", " ", "Stirling", " ", "polynomial", " ", "sequences", " ", "defined", " ", "as", " ", StyleBox["StirlingPolyStar", FontFamily->"Courier New", FontWeight->"Bold"], StyleBox[" ", FontFamily->"Courier New", FontWeight->"Bold"], "removes", " ", "the", " ", "need", " ", "for", " ", "cases", " ", "in", " ", "evaluating", " ", "these", " ", RowBox[{"sums", ".", " "}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652957428232267*^9, 3.652957625441639*^9}, {3.652957901577223*^9, 3.652957950399543*^9}, {3.652958001176906*^9, 3.652958021499963*^9}, { 3.652958060304223*^9, 3.6529580938608093`*^9}, {3.655253885247335*^9, 3.655253885948093*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "to", " ", "verify", " ", "the", " ", "pair", " ", "of", " ", "sums", " ", "stated", " ", "in", " ", "Section", " ", "6.5", " ", "for", " ", "some", " ", "fixed", " ", "parameter", " ", "values", " ", "of", " ", SubscriptBox["\[ScriptL]", "0"]}], "\[NotEqual]", RowBox[{"0", " ", RowBox[{"(", RowBox[{ RowBox[{"or", " ", "\[FormalCapitalL]"}], "\[NotEqual]", "0"}], ")"}]}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655253916423373*^9, 3.6552540079373007`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{"k", ">", "0"}], ",", RowBox[{"k", "*", RowBox[{"StirlingPoly", "[", RowBox[{"t", ",", "k"}], "]"}], "*", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"k", "-", "1"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "-", "t", "-", "1"}], "]"}]}]}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"StirlingPolyStar", "[", RowBox[{ RowBox[{"p", "-", "1", "-", "k"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"StirlingPolyStar", "[", RowBox[{"t", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "p"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "p"}], ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "\[FormalCapitalL]"}], ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"\[FormalCapitalL]", "-", "1"}], ",", RowBox[{"n", "-", "p", "-", "r"}]}], "]"}], "*", RowBox[{"(", RowBox[{"StirlingPolyStar", "[", RowBox[{ RowBox[{"p", "-", "1", "-", "k"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], ")"}], "*", RowBox[{"StirlingPolyStar", "[", RowBox[{"t", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", RowBox[{"n", "-", "p"}]}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655253944554138*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{"k", ">", "0"}], ",", RowBox[{"k", "*", RowBox[{"StirlingPoly", "[", RowBox[{"t", ",", "k"}], "]"}], "*", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"k", "-", "1"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "-", "t", "-", "1"}], "]"}]}]}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"StirlingPolyStar", "[", RowBox[{ RowBox[{"p", "-", "1", "-", "k"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"StirlingPolyStar", "[", RowBox[{"t", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "p"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "p"}], ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "\[FormalCapitalL]"}], ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"\[FormalCapitalL]", "-", "1"}], ",", RowBox[{"n", "-", "p", "-", "r"}]}], "]"}], "*", RowBox[{"(", RowBox[{"StirlingPolyStar", "[", RowBox[{ RowBox[{"p", "-", "1", "-", "k"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], ")"}], "*", RowBox[{"StirlingPolyStar", "[", RowBox[{"t", ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", RowBox[{"n", "-", "p"}]}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655253952963142*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Parameterized congruence \ expansions in Wilson\[CloseCurlyQuote]s theorem:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.6547990362500553`*^9, 3.654799065470374*^9}, 3.654799104874741*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{"First", ",", " ", RowBox[{ "load", " ", "the", " ", "following", " ", "Mathematica", " ", "function", " ", RowBox[{"definitions", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653277679531768*^9, 3.653277692556031*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "FwnCongruence", ",", "FwnCongruenceMod", ",", "FwnCongruencePolyMod", ",", "Nw", ",", "Mw"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_"}], "]"}], ":=", RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xp", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xt", ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xk", ",", "k"}], "]"}], "*", RowBox[{"NwpnFn", "[", RowBox[{"p", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruenceMod", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_", ",", RowBox[{"modOffset_:", "0"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "NwpnFn", ",", "MwnFn"}], "]"}], ",", RowBox[{"MwnFn", "[", "n", "]"}], ",", "modOffset"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_"}], "]"}], ":=", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "NwpnFn", ",", "MwnFn"}], "]"}], ",", RowBox[{"MwnFn", "[", "n", "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nw", "=", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "#1"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mw", "=", RowBox[{"#1", "&"}]}], ";"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, {3.65525667955785*^9, 3.655256706217472*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "parameterized", " ", RowBox[{"Wilson", "'"}], "s", " ", "theorem", " ", "congruence", " ", "when", " ", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], " ", ":=", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653278138171958*^9, 3.6532781386771173`*^9}, {3.653278875287312*^9, 3.653278957781241*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552568210274982`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2"}], "]"}]}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256824300873*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "+", "1"}], ",", "2"}], "]"}]}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256828489356*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ StyleBox["Footnote", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{"Wilson", "'"}], FontSlant->"Italic"], "s", StyleBox[" ", FontSlant->"Italic"], StyleBox["theorem", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["noted", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["congruence", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["property", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox[ RowBox[{"I", ":"}], FontSlant->"Italic"]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, 3.6532775985578203`*^9, {3.6532789747938232`*^9, 3.6532789755713177`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65525684573494*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552568423819647`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256839491271*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ StyleBox["Footnote", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{"Wilson", "'"}], FontSlant->"Italic"], "s", StyleBox[" ", FontSlant->"Italic"], StyleBox["theorem", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["noted", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["congruence", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["property", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox[ RowBox[{"II", ":"}], FontSlant->"Italic"]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532775985578203`*^9, 3.6532776137768707`*^9}, 3.653279025093121*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256857422062*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256870854566*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65525686789964*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ StyleBox["Footnote", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{"Wilson", "'"}], FontSlant->"Italic"], "s", StyleBox[" ", FontSlant->"Italic"], StyleBox["theorem", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["noted", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["congruence", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["property", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox[ RowBox[{"III", ":"}], FontSlant->"Italic"]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532775985578203`*^9, 3.653277619843458*^9}, 3.653279363181472*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", SubscriptBox["x", "T"], ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256899962491*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", SubscriptBox["x", "T"], ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"FactorTerms", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552568970713587`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", SubscriptBox["x", "T"], ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "n", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256894132186*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ StyleBox["Footnote", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{"Wilson", "'"}], FontSlant->"Italic"], "s", StyleBox[" ", FontSlant->"Italic"], StyleBox["theorem", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["noted", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["congruence", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["property", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox[ RowBox[{"IV", ":"}], FontSlant->"Italic"]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, 3.6532775985578203`*^9, {3.6532789747938232`*^9, 3.6532789755713177`*^9}, 3.653942292708479*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{"n", ",", RowBox[{"p", "+", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xp", ",", "p"}], "]"}], "*", RowBox[{"(", RowBox[{"p", "+", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}]}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256920200943*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ FormBox[ RowBox[{ "Further", " ", "examples", " ", "from", " ", "the", " ", "remarks", " ", "on", " ", "using", " ", StyleBox["PolynomialMod", FontFamily->"Courier New", FontWeight->"Bold"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "more", " ", "general", " ", "parameterized", " ", "forms", " ", "of", " ", "the", " ", RowBox[{"Wilson", "'"}], "s", " ", "theorem", " ", RowBox[{"congruence", ":"}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653278138171958*^9, 3.6532781386771173`*^9}, {3.653278875287312*^9, 3.653278957781241*^9}, {3.6532794559846077`*^9, 3.653279486040299*^9}, { 3.653280190848837*^9, 3.6532802258530273`*^9}, {3.655256775244832*^9, 3.6552567863976727`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "16"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256927215283*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256932989896*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256944256238*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256951437335*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xt", ",", RowBox[{"xt", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655256957067762*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552569608345757`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"xp", ",", RowBox[{"xp", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "&"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65525697003819*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"xt", ",", RowBox[{"xt", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "&"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552569751757727`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Proposition", FontVariations->{"Underline"->True}], ": Congruences for powers modulo double and triple integer products: " }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.6547990362500553`*^9, 3.654799065470374*^9}, 3.654799104874741*^9, { 3.6552546854365788`*^9, 3.655254738580875*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ "First", " ", "double", " ", "product", " ", "congruence", " ", "for", " ", "the", " ", "powers", " ", "of", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "p"], "obtained", " ", "from", " ", "the", " ", "binomial", " ", RowBox[{"theorem", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655254831754348*^9, {3.655254919633297*^9, 3.655254923760292*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "k"}], ",", RowBox[{"r", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", RowBox[{"s", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"FS", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", "%", ")"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "n"}], ",", "p"}], "]"}]}]}], "]"}], "]"}]}], "Input",\ CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552549004748573`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"FS", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"n", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552548929392567`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}], ",", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}]}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "p"], " ", RowBox[{"(", RowBox[{"k", "+", "n", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "k"}], ")"}], "p"], " ", "n"}]}], ")"}]}], "k"], ",", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}]}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655254887204152*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";", RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cong", "[", RowBox[{"n", ",", "p"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}], ",", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}]}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "p"], " ", RowBox[{"(", RowBox[{"k", "+", "n", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "k"}], ")"}], "p"], " ", "n"}]}], ")"}]}], "k"], ",", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}]}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552548829303503`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Second", " ", "double", " ", "product", " ", "congruence", " ", "for", " ", "the", " ", "powers", " ", "of", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "p"], "obtained", " ", "from", " ", "the", " ", "binomial", " ", RowBox[{"theorem", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655254831754348*^9, {3.6552549264870167`*^9, 3.655254931922326*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"k1", "-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"k1", "-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", RowBox[{"(", RowBox[{"n", "-", "k1"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"k1", "+", "k2"}], ")"}]}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"k1", "-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", RowBox[{"(", RowBox[{"n", "-", "k1"}], ")"}], "*", RowBox[{"(", RowBox[{"n", "+", "k2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"k1", "+", "k2"}], ")"}]}], ",", RowBox[{"s", "-", "1", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "k2"}], ",", RowBox[{"r", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", RowBox[{"s", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"FS", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"PE", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552549870674973`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"k1", "-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"k1", "-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", RowBox[{"(", RowBox[{"n", "-", "k1"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"k1", "+", "k2"}], ")"}]}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"FS", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"PE", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{"%", ",", "n", ",", "FS"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552549817403517`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k1"}], ")"}], RowBox[{"(", RowBox[{"n", "+", "k2"}], ")"}]}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "k1"}], ")"}], "p"], " ", RowBox[{"(", RowBox[{"k2", "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "k1"}], ")"}], RowBox[{"-", "p"}]], " ", "k1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "k2"}], ")"}], "p"]}]}], ")"}]}], RowBox[{"k1", "+", "k2"}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "k1"}], ")"}], "p"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "k1"}], ")"}], RowBox[{"-", "p"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "k2"}], ")"}], "p"]}]}], ")"}], " ", "n"}], RowBox[{"k1", "+", "k2"}]]}], ",", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k1"}], ")"}], RowBox[{"(", RowBox[{"n", "+", "k2"}], ")"}]}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655254977634124*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";", RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cong", "[", RowBox[{"n", ",", "p"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "p"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k1"}], ")"}], RowBox[{"(", RowBox[{"n", "+", "k2"}], ")"}]}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "k1"}], ")"}], "p"], " ", RowBox[{"(", RowBox[{"k2", "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "k1"}], ")"}], RowBox[{"-", "p"}]], " ", "k1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "k2"}], ")"}], "p"]}]}], ")"}]}], RowBox[{"k1", "+", "k2"}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "k1"}], ")"}], "p"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "k1"}], ")"}], RowBox[{"-", "p"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "k2"}], ")"}], "p"]}]}], ")"}], " ", "n"}], RowBox[{"k1", "+", "k2"}]]}], ",", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k1"}], ")"}], RowBox[{"(", RowBox[{"n", "+", "k2"}], ")"}]}]}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655254973064785*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Last", " ", "form", " ", "of", " ", "the", " ", "triple", " ", "product", " ", "congruence", " ", "for", " ", "the", " ", "powers", " ", "of", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "p"], "obtained", " ", "from", " ", "the", " ", "binomial", " ", RowBox[{"theorem", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655254831754348*^9, {3.6552549264870167`*^9, 3.655254949374654*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "k"}], ",", RowBox[{"1", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "k"}], ",", RowBox[{"r", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "2", ",", RowBox[{"s", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Factor", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "5"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655255104913437*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "k"}], ",", RowBox[{"1", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"r", "-", "1"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"k", "-", "j"}], ",", RowBox[{"r", "-", "1", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "j"}], ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "2", ",", RowBox[{"s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Factor", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "5"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65525510924328*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "k"}], ",", RowBox[{"1", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"r", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"k", "-", "j"}], ",", RowBox[{"r", "-", "1", "-", "0"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "j"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "2", ",", RowBox[{"s", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"r", "-", "1"}], ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"(", RowBox[{"n", "+", "j"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"k", "-", "j"}], ",", RowBox[{"r", "-", "1", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "j"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "2", ",", RowBox[{"s", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Factor", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "5"}], "}"}]}], "]"}], " ", "//", " ", "FS"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552551140130672`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "0"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "k"}], ",", RowBox[{"1", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"s", "-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"r", "-", "1"}], ",", "0"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "s"}]}], "]"}], "*", "n", "*", RowBox[{"(", RowBox[{"n", "+", "k"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{"s", "-", "1", "-", "r"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"k", "-", "j"}], ",", RowBox[{"r", "-", "1", "-", "0"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "+", "j"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "2", ",", RowBox[{"s", "-", "1"}]}], "}"}]}], "]"}]}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{"%", ",", RowBox[{"n", "^", "_"}], ",", "FS"}], "]"}], "\[IndentingNewLine]", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"%", "/.", RowBox[{"(", RowBox[{ RowBox[{"j", "+", "1"}], "\[Rule]", "w"}], ")"}]}], "/.", RowBox[{"(", RowBox[{ RowBox[{"k", "+", "1"}], "\[Rule]", "v"}], ")"}]}], "/.", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "k"}], "-", "1"}], "\[Rule]", RowBox[{"-", "v"}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PE", "[", "%", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "^", "_"}], ",", RowBox[{"v", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552551178499413`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Parameterized congruence \ expansions in Clement\[CloseCurlyQuote]s theorem:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{"First", ",", " ", RowBox[{ "load", " ", "the", " ", "following", " ", "Mathematica", " ", "function", " ", RowBox[{"definitions", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653277679531768*^9, 3.653277692556031*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "FwnCongruence", ",", "FwnCongruenceMod", ",", "FwnCongruencePolyMod", ",", "Nw", ",", "Mw"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_"}], "]"}], ":=", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "NwpnFn", ",", "MwnFn"}], "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{"4", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xp", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xt", ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xk", ",", "k"}], "]"}], "*", RowBox[{"NwpnFn", "[", RowBox[{"p", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}]}], "+", "4", "+", "n"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruenceMod", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_", ",", RowBox[{"modOffset_:", "0"}]}], "]"}], ":=", RowBox[{ RowBox[{"FwnCongruenceMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "NwpnFn", ",", "MwnFn", ",", "modOffset"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "NwpnFn", ",", "MwnFn"}], "]"}], ",", RowBox[{"MwnFn", "[", "n", "]"}], ",", "modOffset"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_"}], "]"}], ":=", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "NwpnFn", ",", "MwnFn"}], "]"}], "=", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "NwpnFn", ",", "MwnFn"}], "]"}], ",", RowBox[{"MwnFn", "[", "n", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nw", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "3"}], ")"}], "#1"]}], " ", "#2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "#1"], " ", RowBox[{"(", RowBox[{"2", "+", "#2"}], ")"}]}]}], ")"}]}], ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mw", "=", RowBox[{ RowBox[{ RowBox[{"(", "#1", ")"}], "*", RowBox[{"(", RowBox[{"#1", "+", "2"}], ")"}]}], "&"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n_", "]"}], ":=", RowBox[{"PrimePairCondFn", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"#1", "+", "2"}], "]"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CollectFn", "[", RowBox[{"input_", ",", "v1_", ",", "v2_", ",", RowBox[{"SimpFn_:", "FS"}]}], "]"}], ":=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "input", "]"}], ",", RowBox[{"v1", "^", "_"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"v2", "^", "_"}], ",", "SimpFn"}], "]"}], "&"}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655257106841052*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "parameterized", " ", RowBox[{"Clement", "'"}], "s", " ", "theorem", " ", "congruence", " ", "when", " ", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], " ", ":=", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653278138171958*^9, 3.6532781386771173`*^9}, {3.653278875287312*^9, 3.653278957781241*^9}, {3.653280281946128*^9, 3.653280282366844*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "35"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552571531718807`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "35"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"FwnCongruenceMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw", ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552571572015667`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "35"}], ";", RowBox[{"modOffset", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"FwnCongruenceMod", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw", ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552571613424997`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ StyleBox["Footnote", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[":", FontWeight->"Bold"], RowBox[{ StyleBox[ RowBox[{"Clement", "'"}], FontSlant->"Italic"], "s", StyleBox[" ", FontSlant->"Italic"], StyleBox["theorem", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["noted", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["congruence", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["property", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox[ RowBox[{"I", ":"}], FontSlant->"Italic"]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, 3.653280120556641*^9, 3.6532816551555357`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "35"}], ";", RowBox[{"modOffset", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"PolyDegree", "[", SubscriptBox["x", "K"], "]"}], "\[Rule]", RowBox[{"Exponent", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", "1", ",", "1", ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "K"]}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", "1", ",", "1", ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "1", ",", "1", ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"2", "*", "nupper"}]}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257181833975*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "35"}], ";", RowBox[{"modOffset", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"PolyDegree", "[", SubscriptBox["x", "P"], "]"}], "\[Rule]", RowBox[{"Exponent", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", "1", ",", "1", ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "P"]}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", "1", ",", "1", ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", "1", ",", "1", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655257187631814*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "35"}], ";", RowBox[{"modOffset", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"PolyDegree", "[", SubscriptBox["x", "T"], "]"}], "\[Rule]", RowBox[{"Exponent", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", "1", ",", SubscriptBox["x", "T"], ",", "1", ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "T"]}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", "1", ",", SubscriptBox["x", "T"], ",", "1", ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "1", ",", SubscriptBox["x", "T"], ",", "1", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.6552571968055077`*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ RowBox[{ StyleBox["Further", FontFamily->"Bitstream Vera Sans"], StyleBox[" ", FontFamily->"Bitstream Vera Sans"], StyleBox["examples", FontFamily->"Bitstream Vera Sans"], StyleBox[" ", FontFamily->"Bitstream Vera Sans"], StyleBox["from", FontFamily->"Bitstream Vera Sans"], StyleBox[" ", FontFamily->"Bitstream Vera Sans"], StyleBox["the", FontFamily->"Bitstream Vera Sans"], StyleBox[" ", FontFamily->"Bitstream Vera Sans"], StyleBox["remarks", FontFamily->"Bitstream Vera Sans"], StyleBox[" ", FontFamily->"Bitstream Vera Sans"], StyleBox["on", FontFamily->"Bitstream Vera Sans"], StyleBox[" ", FontFamily->"Bitstream Vera Sans"], StyleBox["using", FontFamily->"Bitstream Vera Sans"], StyleBox[" ", FontWeight->"Plain"], RowBox[{ StyleBox["PolynomialMod", FontFamily->"Courier New", FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], StyleBox[":", FontWeight->"Plain"]}]}]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653278138171958*^9, 3.6532781386771173`*^9}, {3.653278875287312*^9, 3.653278957781241*^9}, {3.6532794559846077`*^9, 3.653279486040299*^9}, { 3.653280190848837*^9, 3.6532802258530273`*^9}, {3.653281868638443*^9, 3.6532818780449533`*^9}, {3.6532834267089233`*^9, 3.653283426710238*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "8"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "P"], "^", "_"}], ",", "FS"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "T"], "^", "_"}], ",", "FS"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "K"], "^", "_"}], ",", "FS"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257292019927*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "9"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", "1", ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", "1", ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", "1", ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257301192761*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "18"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", "1"}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", "1", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "P"], "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", "1"}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", "1", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "T"], "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257308369013*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "18"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", "1", ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", "1", ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "P"], "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", "1", ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", "1", ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "K"], "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552573166304283`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "18"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", "1", ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "T"], "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", "1", ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{ SubscriptBox["x", "K"], "^", "_"}], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65525733596518*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "12"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"CollectFn", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"CollectFn", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "K"], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257341841238*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "12"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"CollectFn", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "P"], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"CollectFn", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257358232938*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numprimes", "=", "12"}], ";", RowBox[{"PrimesList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "numprimes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"CollectFn", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "K"], ",", SubscriptBox["x", "P"], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"XPKTVars", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}]}], "+", "4", "+", "n"}], ",", RowBox[{"n", "*", RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}]}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"CollectFn", "[", RowBox[{ RowBox[{"FwnCongruencePolyMod", "[", RowBox[{"n", ",", SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"], ",", "Nw", ",", "Mw"}], "]"}], ",", SubscriptBox["x", "K"], ",", SubscriptBox["x", "T"], ",", "Factor"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552573625083237`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "more", " ", "general", " ", "parameterized", " ", "forms", " ", "of", " ", "the", " ", RowBox[{"Clement", "'"}], " ", "s", " ", "theorem", " ", RowBox[{"congruence", ":"}]}], FontFamily->"Bitstream Vera Sans"], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655257216440884*^9, 3.655257217779543*^9}, 3.6552572499828987`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257379147827*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "15"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552574055255957`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257408711228*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "19"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552574179776297`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "19"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xt", ",", RowBox[{"xt", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552574271262903`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "19"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", "FS"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257430311949*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "19"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"xp", ",", RowBox[{"xp", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "&"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257433935525*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "19"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "xt", ",", "xk"}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["x", "P"], ",", SubscriptBox["x", "T"], ",", SubscriptBox["x", "K"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"LocalTwinPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n", ",", "xp", ",", "xt", ",", "xk", ",", "Nw", ",", "Mw"}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xk", ",", RowBox[{"xk", "^", "_"}]}], "}"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"xt", ",", RowBox[{"xt", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], "&"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655257444385149*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Parameterized congruence \ expansions of special case prime triplets:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799213451271*^9, 3.654799245077837*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ sexy prime triplets:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.655255250320259*^9, 3.6552552570351048`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Congruences", " ", "for", " ", "prime", " ", "triples", " ", "of", " ", "the", " ", "form"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"p", ",", " ", RowBox[{"p", "+", "6"}], ",", " ", RowBox[{"p", "+", "12"}]}], ")"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655256531412994*^9, 3.6552565616886187`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"f1", ",", "f2"}], "}"}], "=", RowBox[{"{", RowBox[{"6", ",", "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"FwnCongruence", ",", "Mw", ",", "Nw"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_"}], "]"}], ":=", RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xp", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xt", ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xk", ",", "k"}], "]"}], "*", RowBox[{"NwpnFn", "[", RowBox[{"p", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mw", "[", "n_", "]"}], ":=", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nw", "[", RowBox[{"p_", ",", "n_", ",", RowBox[{"k_:", "f1"}], ",", RowBox[{"j_:", "f2"}]}], "]"}], ":=", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}], "/", "j"}], "/", "k"}]}], "+", RowBox[{"n", "*", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}], "/", "k"}], "/", RowBox[{"(", RowBox[{"k", "-", "j"}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"f1", "+", "1"}], ",", "p"}], "]"}]}], "+", RowBox[{"n", "*", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], "/", "j"}], "/", RowBox[{"(", RowBox[{"j", "-", "k"}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"f2", "+", "1"}], ",", "p"}], "]"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"1", ",", "n_"}], "]"}], ":=", RowBox[{"1", "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"2", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}], "+", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "*", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"3", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "*", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "n_", "]"}], ":=", RowBox[{"PrimeTripleCondFn", "[", RowBox[{"n", ",", "0", ",", "f1", ",", "f2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkBox", "[", RowBox[{"p_", ",", "m_"}], "]"}], ":=", RowBox[{"Labeled", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "p", "]"}], "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], ",", "\[Checkmark]", ",", "\[ScriptCapitalX]"}], "]"}], ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], " ", "]"}], "]"}], ",", "m"}], "]"}]}], ";"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655256405315402*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[786]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", "n"}], "]"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", RowBox[{"n", "+", "f1"}]}], "]"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", RowBox[{"n", "+", "f2"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"i", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "1", ",", "1", ",", "1", ",", RowBox[{ RowBox[{"Nw", "[", RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Mw", "[", "#1", "]"}], "&"}]}], "]"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655256414099421*^9, { 3.655256463403693*^9, 3.65525648497921*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[796]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Other \ notable cases of prime triples:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.655255258957903*^9, 3.655255281539888*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Congruences", " ", "for", " ", "prime", " ", "triples", " ", "of", " ", "the", " ", "form"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"p", ",", " ", RowBox[{"p", "+", "2"}], ",", " ", RowBox[{"p", "+", "4"}]}], ")"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655256531412994*^9, 3.655256552586089*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"f1", ",", "f2"}], "}"}], "=", RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"FwnCongruence", ",", "Mw", ",", "Nw"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_"}], "]"}], ":=", RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xp", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xt", ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xk", ",", "k"}], "]"}], "*", RowBox[{"NwpnFn", "[", RowBox[{"p", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mw", "[", "n_", "]"}], ":=", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nw", "[", RowBox[{"p_", ",", "n_", ",", RowBox[{"k_:", "f1"}], ",", RowBox[{"j_:", "f2"}]}], "]"}], ":=", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}], "/", "j"}], "/", "k"}]}], "+", RowBox[{"n", "*", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}], "/", "k"}], "/", RowBox[{"(", RowBox[{"k", "-", "j"}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"f1", "+", "1"}], ",", "p"}], "]"}]}], "+", RowBox[{"n", "*", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], "/", "j"}], "/", RowBox[{"(", RowBox[{"j", "-", "k"}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"f2", "+", "1"}], ",", "p"}], "]"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"1", ",", "n_"}], "]"}], ":=", RowBox[{"1", "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"2", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}], "+", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "*", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"3", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "*", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "n_", "]"}], ":=", RowBox[{"PrimeTripleCondFn", "[", RowBox[{"n", ",", "0", ",", "f1", ",", "f2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkBox", "[", RowBox[{"p_", ",", "m_"}], "]"}], ":=", RowBox[{"Labeled", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "p", "]"}], "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], ",", "\[Checkmark]", ",", "\[ScriptCapitalX]"}], "]"}], ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], " ", "]"}], "]"}], ",", "m"}], "]"}]}], ";"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.655256405315402*^9, { 3.6552564417205877`*^9, 3.6552564437276773`*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[798]:="], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", "n"}], "]"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", RowBox[{"n", "+", "f1"}]}], "]"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", RowBox[{"n", "+", "f2"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"i", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "1", ",", "1", ",", "1", ",", RowBox[{ RowBox[{"Nw", "[", RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Mw", "[", "#1", "]"}], "&"}]}], "]"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655256414099421*^9, { 3.6552564469982967`*^9, 3.6552564603867188`*^9}, {3.655256515759452*^9, 3.655256516354095*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[808]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Congruences", " ", "for", " ", "prime", " ", "triples", " ", "of", " ", "the", " ", "form"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"p", ",", " ", RowBox[{"p", "+", "4"}], ",", " ", RowBox[{"p", "+", "6"}]}], ")"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655256531412994*^9, 3.6552565744581347`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"f1", ",", "f2"}], "}"}], "=", RowBox[{"{", RowBox[{"4", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"FwnCongruence", ",", "Mw", ",", "Nw"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{ "n_", ",", "xp_", ",", "xt_", ",", "xk_", ",", "NwpnFn_", ",", "MwnFn_"}], "]"}], ":=", RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "1", "-", "k"}], ",", "p"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", RowBox[{"k", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "p"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xp", ",", "p"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xt", ",", "t"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"xk", ",", "k"}], "]"}], "*", RowBox[{"NwpnFn", "[", RowBox[{"p", ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "k"}], "}"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mw", "[", "n_", "]"}], ":=", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nw", "[", RowBox[{"p_", ",", "n_", ",", RowBox[{"k_:", "f1"}], ",", RowBox[{"j_:", "f2"}]}], "]"}], ":=", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "p"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}], "/", "j"}], "/", "k"}]}], "+", RowBox[{"n", "*", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f2"}], ")"}], "/", "k"}], "/", RowBox[{"(", RowBox[{"k", "-", "j"}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"f1", "+", "1"}], ",", "p"}], "]"}]}], "+", RowBox[{"n", "*", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "f1"}], ")"}], "/", "j"}], "/", RowBox[{"(", RowBox[{"j", "-", "k"}], ")"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"f2", "+", "1"}], ",", "p"}], "]"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"1", ",", "n_"}], "]"}], ":=", RowBox[{"1", "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"2", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "+", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}], "+", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "*", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"3", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"PH", "[", RowBox[{"n", ",", "f1"}], "]"}], "*", RowBox[{"PH", "[", RowBox[{"n", ",", "f2"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "n_", "]"}], ":=", RowBox[{"PrimeTripleCondFn", "[", RowBox[{"n", ",", "0", ",", "f1", ",", "f2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkBox", "[", RowBox[{"p_", ",", "m_"}], "]"}], ":=", RowBox[{"Labeled", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "p", "]"}], "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", "m", "]"}], ",", "\[Checkmark]", ",", "\[ScriptCapitalX]"}], "]"}], ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], " ", "]"}], "]"}], ",", "m"}], "]"}]}], ";"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.655256405315402*^9, { 3.6552564417205877`*^9, 3.6552564437276773`*^9}, {3.655256476802298*^9, 3.655256476957316*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTripleCondFnLocal", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", "n"}], "]"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", RowBox[{"n", "+", "f1"}]}], "]"}], ",", RowBox[{"checkBox", "[", RowBox[{"n", ",", RowBox[{"n", "+", "f2"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"i", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"FwnCongruence", "[", RowBox[{"n", ",", "1", ",", "1", ",", "1", ",", RowBox[{ RowBox[{"Nw", "[", RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"Mw", "[", "#1", "]"}], "&"}]}], "]"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"Mw", "[", "n", "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655256414099421*^9, { 3.6552564469982967`*^9, 3.6552564603867188`*^9}, {3.655256601373204*^9, 3.655256601832855*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Expansions of the single \ factorial congruence sums: (TODO)\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799311548851*^9, 3.654799323454191*^9}, {3.655258897699736*^9, 3.6552588995479107`*^9}, { 3.65526496916433*^9, 3.6552649718037252`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ "Tables", " ", "to", " ", "verify", " ", "all", " ", "of", " ", "the", " ", "sums", " ", "at", " ", RowBox[{"once", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.655264918880599*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "21"}], ";", RowBox[{"nupper", "=", "32"}], ";", RowBox[{"supperrange", "=", RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfact", "[", RowBox[{"h", ",", "n", ",", "s"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", RowBox[{"n", "-", "s"}], ",", "1", ",", "1"}], "]"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "-", "h", "-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", RowBox[{"n", "-", "s"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "s"}]}], "]"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "s", "-", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"n", "+", "1", "-", "s", "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}]}], ",", RowBox[{"n", "-", "s", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"n", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "-", "n", "+", "s", "-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "s", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "s"}]}], "}"}]}], "]"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", RowBox[{"-", "1"}]}], "]"}], ",", "8"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"s", ",", "supperrange"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Max", "[", RowBox[{"0", ",", "s"}], "]"}], ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tbl", " ", "//", " ", "TF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "tbl", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "False"}], "&"}]}], "]"}], "===", RowBox[{"{", "}"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552649653864603`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "individual", " ", "right"}], "-", "hand", "-", RowBox[{"side", " ", "congruence", " ", RowBox[{"sums", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.6552649556695023`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"SgFactFnCongRHSExpV11", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", "1", ",", "1"}], "]"}], ",", "h", ",", "modOffset"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SgFactFnCongRHSExpV12", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "h", ",", "modOffset"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SgFactFnCongRHSExpV13", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "h", ",", "modOffset"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SgFactFnCongRHSExpV14", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "-", "h", "-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "h", ",", "modOffset"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SgFactFnCongRHSExpV21", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", "n", ",", RowBox[{"-", "1"}], ",", "n"}], "]"}], ",", "h", ",", "modOffset"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SgFactFnCongRHSExpV22", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"n", "+", "1", "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "n"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "h", ",", "modOffset"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SgFactFnCongRHSExpV23", "[", RowBox[{"n_", ",", "h_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"n", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "-", "n", "-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "h", ",", "modOffset"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655264982793585*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "21"}], ";", RowBox[{"nupper", "=", "32"}], ";", RowBox[{"supperrange", "=", RowBox[{"Range", "[", RowBox[{"1", ",", "1"}], "]"}]}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfact", "[", RowBox[{"h", ",", "n", ",", "s"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{"SgFactFnCongRHSExpV11", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{"SgFactFnCongRHSExpV12", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{"SgFactFnCongRHSExpV13", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{"SgFactFnCongRHSExpV14", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "h", ",", "modOffset"}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", "modOffset"}], "]"}], ",", "5"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "supperrange"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Max", "[", RowBox[{"0", ",", "s"}], "]"}], ",", "nupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"tbl", " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "tbl", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", RowBox[{"Last", "[", "#1", "]"}], "]"}], "\[Equal]", "False"}], "&"}]}], "]"}], "===", RowBox[{"{", "}"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552649917126627`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "21"}], ";", RowBox[{"nupper", "=", "32"}], ";", RowBox[{"supperrange", "=", RowBox[{"Range", "[", RowBox[{"1", ",", "1"}], "]"}]}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sfact", "[", RowBox[{"h", ",", "n", ",", "s"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{"SgFactFnCongRHSExpV21", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{"SgFactFnCongRHSExpV22", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "h", ",", "modOffset"}], "]"}], ",", RowBox[{"SgFactFnCongRHSExpV23", "[", RowBox[{ RowBox[{"n", "-", "s"}], ",", "h", ",", "modOffset"}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "s"}], ")"}], "!"}], ",", "h", ",", "modOffset"}], "]"}], ",", "4"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "supperrange"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Max", "[", RowBox[{"0", ",", "s"}], "]"}], ",", "nupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"tbl", " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "tbl", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", RowBox[{"Last", "[", "#1", "]"}], "]"}], "\[Equal]", "False"}], "&"}]}], "]"}], "===", RowBox[{"{", "}"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264999533325*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Identities expanding variants \ of Wilson\[CloseCurlyQuote]s theorem:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799363405694*^9}, {3.6552589042002277`*^9, 3.655258905304453*^9}, 3.655265323694167*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "TestFormulaV4", ",", "TestFormulaV6", ",", "CongV4LHSEqualsRHSQ", ",", "CongV6LHSEqualsRHSQ"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "TestFormulaV4V2", ",", "TestFormulaV6V2", ",", "CongV4V2LHSEqualsRHSQ", ",", "CongV6V2LHSEqualsRHSQ"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TestFormulaV4", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"TestFormulaV4", "[", RowBox[{"n", ",", "p"}], "]"}], "=", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"1", "-", "n"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "+", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CongV4LHSEqualsRHSQ", "[", RowBox[{"n_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV4", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "==", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "2"}], "]"}]}], "]"}]}], ")"}]}], "||", RowBox[{ RowBox[{"!", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV4", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "\[Equal]", "0"}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TestFormulaV4V2", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"TestFormulaV4V2", "[", RowBox[{"n", ",", "p"}], "]"}], "=", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"-", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "s", "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "+", "s"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CongV4V2LHSEqualsRHSQ", "[", RowBox[{"n_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV4V2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "==", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}], "/", "2"}]}]}], "]"}]}], ")"}]}], "||", RowBox[{ RowBox[{"!", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV4V2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "\[Equal]", "0"}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TestFormulaV6", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"TestFormulaV6", "[", RowBox[{"n", ",", "p"}], "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "^", "2"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CongV6LHSEqualsRHSQ", "[", RowBox[{"n_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV6", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "==", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}]}], ")"}]}], "||", RowBox[{ RowBox[{"!", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV6", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "\[Equal]", "0"}], ")"}]}]}]}], StyleBox["\[IndentingNewLine]", Background->RGBColor[0.9, 1, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TestFormulaV6V2", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"TestFormulaV6V2", "[", RowBox[{"n", ",", "p"}], "]"}], "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "^", "2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CongV6V2LHSEqualsRHSQ", "[", RowBox[{"n_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV6V2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "==", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}]}], ")"}]}], "||", RowBox[{ RowBox[{"!", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV6V2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], "\[Equal]", "0"}], ")"}]}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655265305236537*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "101"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CheckMarkEquals", "[", RowBox[{"CongV4LHSEqualsRHSQ", "[", "n", "]"}], "]"}], ",", RowBox[{"CheckMarkEquals", "[", RowBox[{"CongV4V2LHSEqualsRHSQ", "[", "n", "]"}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "2"}], "]"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"1", "-", "n"}]}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "+", "1"}], "]"}]}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV4", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV4V2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"CheckMarkEquals", "[", RowBox[{"CongV6LHSEqualsRHSQ", "[", "n", "]"}], "]"}], ",", RowBox[{"CheckMarkEquals", "[", RowBox[{"CongV6V2LHSEqualsRHSQ", "[", "n", "]"}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV6", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"TestFormulaV6V2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper", ",", "1"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552653142662973`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] Congruences for primes of the \ form ", Cell[BoxData[ RowBox[{ SuperscriptBox["n", "2"], "+", "1"}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6529559215726748`*^9}, FontWeight->"Bold", FontSlant->"Plain"], ":" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799400143408*^9}, 3.6552589089313927`*^9, {3.655259047340159*^9, 3.6552590702375193`*^9}, 3.655265458917028*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ "Verify", " ", "the", " ", "two", " ", "squared", " ", "single", " ", "sum", " ", RowBox[{"identities", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653306440918178*^9, 3.6533064643119392`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "101"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{ RowBox[{"nupper", "^", "2"}], "+", "1"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"IntegerQ", "[", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{"#1", "-", "1"}], ")"}], "]"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"CheckMarkEquals", "[", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "^", "2"}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], "\[Equal]", RowBox[{"-", "1"}]}], ")"}]}], "||", RowBox[{"!", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}]}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "^", "2"}], "+", "2"}], ")"}], "/", "2"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "^", "2"}], ")"}], "/", "2"}], "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"n", "^", "2"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "^", "2"}], ")"}], "/", "2"}], "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"n", "^", "2"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], "^", "2"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "-", RowBox[{"n", "^", "2"}], "-", "2"}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "^", "2"}], ")"}], "/", "2"}], "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"n", "^", "2"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], "^", "2"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "nupper", ",", "2"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655265444183051*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Verify", " ", "each", " ", "of", " ", "the", " ", "multiple", " ", "sum", " ", "identities", " ", "from", " ", "Section", " ", "5.2"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6533065740238113`*^9, 3.6533065992559767`*^9}, {3.653307020396921*^9, 3.653307025627419*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "ChkIdentV1", ",", "ChkIdentV2", ",", "ChkIdentV3", ",", "ChkIdentV4"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV1", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV1", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], "\[Equal]", "0"}], ",", "0", ",", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"h", ",", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV2", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV2", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{"s", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "s"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", RowBox[{"m", "-", "t"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"R", ",", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], "\[Equal]", "0"}], ",", "0", ",", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "+", "s", "-", "m"}]}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"R", "-", "a"}], "\[Equal]", "0"}], ",", "0", ",", RowBox[{"Power", "[", RowBox[{ RowBox[{"R", "-", "a"}], ",", RowBox[{"m", "-", "s"}]}], "]"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655265435451169*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"nupper", "^", "2"}], "+", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"IntegerQ", "[", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{"#1", "-", "1"}], ")"}], "]"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "expectedPrimesList"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV1", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "^", "2"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV2", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "^", "2"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "^", "2"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "^", "2"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ChkIdentV1", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "^", "2"}]}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655265425871685*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"nupper", "^", "2"}], "+", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"IntegerQ", "[", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{"#1", "-", "1"}], ")"}], "]"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "expectedPrimesList"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV1", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV2", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "^", "2"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ChkIdentV1", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "1", ",", "1"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655265422311924*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "two", " ", "specific", " ", "multiple", " ", "sum", " ", "expansions", " ", "cited", " ", "in", " ", "the", " ", RowBox[{"article", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653307221397091*^9, 3.653307242064348*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"ChkIdentV4VNSquared", ",", "ChkIdentV5VNSquared"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV4VNSquared", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV4VNSquared", "[", "n", "]"}], "=", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1", "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"n", "^", "2"}]}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"n", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV5VNSquared", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV5VNSquared", "[", "n", "]"}], "=", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "-", "k"}], ",", RowBox[{"s", "-", "t"}]}], "]"}], "*", RowBox[{"S2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "s", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"m", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"n", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "s"}], "}"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "^", "2"}]}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6552654094870777`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "6"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"nupper", "^", "2"}], "+", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"IntegerQ", "[", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{"#1", "-", "1"}], ")"}], "]"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "expectedPrimesList"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV4VNSquared", "[", "n", "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"ChkIdentV5VNSquared", "[", "n", "]"}], ",", RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ChkIdentV4VNSquared", "[", "n", "]"}], ",", RowBox[{"ChkIdentV5VNSquared", "[", "n", "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552654070328007`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle] Wilson primes:", \ "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799363405694*^9}, {3.654799421097308*^9, 3.654799426167411*^9}, 3.655258910210194*^9, {3.655265231448565*^9, 3.655265237102558*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{"Compute", " ", "the", " ", "expected", " ", "sequence", " ", RowBox[{"elements", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653291189878686*^9, 3.653291202420588*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nump", "=", "5000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "0"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "nump"}], "}"}]}], "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Select", "[", RowBox[{"%", ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "True"}], "&"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"First", ",", "%"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655265102913178*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{"First", ",", " ", RowBox[{ "load", " ", "the", " ", "following", " ", "local", " ", "Mathematica", " ", "function", " ", RowBox[{"definitions", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653291189878686*^9, 3.653291202420588*^9}, {3.6532912887050943`*^9, 3.653291301005913*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"WPPrimeCondFn", "[", "n_", "]"}], ":=", RowBox[{"PrimePairCondFn", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"#1", "-", "1"}], "]"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", "#1", ")"}], "^", "2"}], ")"}]}], "]"}], "&"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"ChkIdentV3", ",", "ChkIdentV4"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], "\[Equal]", "0"}], ",", "0", ",", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "+", "s", "-", "m"}]}], "]"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"R", "-", "a"}], "\[Equal]", "0"}], ",", "0", ",", RowBox[{"Power", "[", RowBox[{ RowBox[{"R", "-", "a"}], ",", RowBox[{"m", "-", "s"}]}], "]"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"ChkIdentV3V2", ",", "ChkIdentV4V2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n", "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "n"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "n"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n", "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "n"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "1", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655265190670969*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Tabulate", " ", "the", " ", "sums", " ", "for", " ", "the", " ", "first", " ", "three", " ", "congruences", " ", "for", " ", "several", " ", "hundred", " ", RowBox[{"primes", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653291189878686*^9, 3.653291202420588*^9}, {3.6532912887050943`*^9, 3.653291301005913*^9}, {3.653293361409924*^9, 3.6532934036550703`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"numPrimes", "=", "250"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"WPrimes", "=", RowBox[{"{", RowBox[{"5", ",", "13", ",", "563"}], "}"}]}], ";", RowBox[{"PrimesList", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "2", ",", "numPrimes"}], "}"}]}], "]"}], ",", "WPrimes"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"#1", "-", "1"}], "]"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", "#1", ")"}], "^", "2"}], ")"}]}], "]"}], "&"}]}], "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"PrimeQ", "[", "n", "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{"WPrimes", ",", "n"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "/", RowBox[{"Factorial", "[", "i", "]"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"n", "^", "2"}]}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "-", RowBox[{"n", "^", "2"}], "-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "-", "n"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "i"}]}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655265200742898*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numInts", "=", "35"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"WPrimes", "=", RowBox[{"{", RowBox[{"5", ",", "13", ",", "563"}], "}"}]}], ";", RowBox[{"IntsList", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"m", ",", RowBox[{"{", RowBox[{"m", ",", "2", ",", "numInts"}], "}"}]}], "]"}], ",", "WPrimes"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"#1", "-", "1"}], "]"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", "#1", ")"}], "^", "2"}], ")"}]}], "]"}], "&"}]}], "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"PrimeQ", "[", "n", "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{"WPrimes", ",", "n"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "/", RowBox[{"Factorial", "[", "i", "]"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"n", "^", "2"}]}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "-", RowBox[{"n", "^", "2"}], "-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "-", "n"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "i"}]}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"n", "-", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "IntsList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "IntsList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655265207392105*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{"Tabulate", " ", "the", " ", "multiple", " ", "sum", " ", RowBox[{"congruences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653291189878686*^9, 3.653291202420588*^9}, {3.6532912887050943`*^9, 3.653291301005913*^9}, {3.653293361409924*^9, 3.6532934036550703`*^9}, { 3.6532934942499313`*^9, 3.653293500814424*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"numPrimes", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"WPrimes", "=", RowBox[{"{", RowBox[{"5", ",", "13"}], "}"}]}], ";", RowBox[{"PrimesList", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "2", ",", "numPrimes"}], "}"}]}], "]"}], ",", "WPrimes"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"WPPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"PrimeQ", "[", "n", "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{"WPrimes", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "/", RowBox[{"Factorial", "[", "i", "]"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"n", "^", "2"}]}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", "1", ",", "1"}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", "1", ",", "1"}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", "1", ",", "1"}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "+", "1"}], ",", RowBox[{"ChkIdentV4", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655265220254381*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"numPrimes", "=", "12"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"WPrimes", "=", RowBox[{"{", RowBox[{"5", ",", "13"}], "}"}]}], ";", RowBox[{"PrimesList", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "2", ",", "numPrimes"}], "}"}]}], "]"}], ",", "WPrimes"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"WPPrimeCondFn", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"PrimeQ", "[", "n", "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{"WPrimes", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "/", RowBox[{"Factorial", "[", "i", "]"}]}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"n", "^", "2"}]}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n", "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n", "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", RowBox[{"n", "-", "1"}], ",", "1", ",", "1"}], "]"}], "+", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"ChkIdentV3V2", "[", "n", "]"}], ",", RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n", "]"}], "+", "1"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", RowBox[{"Max", "[", "PrimesList", "]"}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "PrimesList"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552652234002333`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ "The", " ", "multiple", " ", "sum", " ", "congruence", " ", "formulas"}], FontWeight->"Bold", FontSlant->"Italic"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "s"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ RowBox[{"i", "!"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "1"}]], " ", TemplateBox[{SuperscriptBox["n", "2"],"i"}, "Binomial"], " ", TemplateBox[{SuperscriptBox["n", "2"],"k"}, "Binomial"], " ", TemplateBox[{"m","s"}, "Binomial"], " ", TemplateBox[{RowBox[{"1", "-", "n"}],RowBox[{ RowBox[{"-", "k"}], "+", "n", "-", "1"}]}, "Pochhammer"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "n"}], ")"}], RowBox[{"m", "-", "s"}]], " ", RowBox[{ RowBox[{"{", GridBox[{ {"s"}, {"i"} }], "}"}], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}]}]}]}], ")"}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "s"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"v", "=", "0"}], "i"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ RowBox[{"i", "!"}], " ", TemplateBox[{"i","v"}, "Binomial"], " ", TemplateBox[{SuperscriptBox["n", "2"],"k"}, "Binomial"], " ", TemplateBox[{"m","s"}, "Binomial"], " ", TemplateBox[{RowBox[{ SuperscriptBox["n", "2"], "+", "v"}],"v"}, "Binomial"], " ", TemplateBox[{RowBox[{"1", "-", "n"}],RowBox[{ RowBox[{"-", "k"}], "+", "n", "-", "1"}]}, "Pochhammer"], " ", SuperscriptBox["n", RowBox[{"m", "-", "s"}]], " ", RowBox[{ RowBox[{"{", GridBox[{ {"s"}, {"i"} }], "}"}], " ", "[", GridBox[{ {"k"}, {"m"} }], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"i", "+", "n", "+", "s", "-", "v", "-", "1"}]]}]}]}], ")"}]}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653291189878686*^9, 3.653291202420588*^9}, {3.6532912887050943`*^9, 3.653291301005913*^9}, {3.653293361409924*^9, 3.6532934036550703`*^9}, { 3.6532934942499313`*^9, 3.653293500814424*^9}, {3.65329470082043*^9, 3.6532947361853657`*^9}, {3.655265122271068*^9, 3.655265126506521*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"ChkIdentV3V2", "[", "n", "]"}], " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV4V2", "[", "n", "]"}], "//", " ", "TraditionalForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655265140050267*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{"FS", "[", RowBox[{"ReleaseHold", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], RowBox[{"s1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"s2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{"n", "-", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"h", "->", RowBox[{"n", "^", "2"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"-", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", RowBox[{"n", "-", "1"}]}], ")"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"%", "//", " ", "TraditionalForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.6552651484284563`*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{"FS", "[", RowBox[{"ReleaseHold", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"s1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"s2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "+", "s", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"R", "-", "a"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"n", "\[Rule]", RowBox[{"n", "-", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"h", "->", RowBox[{"n", "^", "2"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"-", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", RowBox[{"n", "-", "1"}]}], ")"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"%", "//", " ", "TraditionalForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655265152149253*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Expansions of the sums in \ several prime pair congruences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799363405694*^9}, {3.6547994453240547`*^9, 3.6547994700433903`*^9}, { 3.654799522973816*^9, 3.654799533336317*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the twin primes: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.653287506250896*^9, 3.6532875288016357`*^9}, 3.653296457955777*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Verify", " ", "the", " ", "congruence", " ", "expansions", " ", "stated", " ", "in", " ", "the", " ", RowBox[{"introduction", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653295947908141*^9, 3.653295986402129*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"primeTupleDiff", ",", "firstCongFn", ",", "secondCongFn"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TwinPrimeCongV1", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"2", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"10", "n"}], "+", "7"}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TwinPrimeCongV2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"4", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", " ", "n"}]}], "}"}]}], "]"}]}], "+", RowBox[{"2", "*", "n"}], "+", "5"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.655258218841013*^9, { 3.655258249794734*^9, 3.655258271050932*^9}, 3.655258380127784*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[893]:="], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "125"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"primeTupleDiff", ",", "firstCongFn", ",", "secondCongFn"}], "}"}], "=", RowBox[{"{", RowBox[{"2", ",", "TwinPrimeCongV1", ",", "TwinPrimeCongV2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"p", "+", "primeTupleDiff"}], "]"}], ",", "p", ",", "Null"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "pupper"}], "}"}]}], "]"}]}], "}"}]}], "]"}], ",", "NumericQ"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "primeTupleDiff"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{"Primes", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"IsPrime", "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{"IsPrimePair", "\[Rule]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], "]"}]}]}], ",", RowBox[{"ExpectedTuple", "\[Rule]", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FirstCong", "[", "n", "]"}], "\[Rule]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"firstCongFn", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}]}], ",", RowBox[{ RowBox[{"SecondCong", "[", "n", "]"}], "\[Rule]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"secondCongFn", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}]}]}], "}"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655258214384006*^9, 3.655258264017027*^9, 3.65525837088997*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[896]:="], Cell[BoxData[ FormBox[ RowBox[{ "Additional", " ", "forms", " ", "of", " ", "the", " ", "multiple", " ", "sum", " ", RowBox[{"expansions", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653295947908141*^9, 3.653296002586051*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"ChkIdentV3", ",", "ChkIdentV4"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"R", "/", "a"}], "-", "1"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{"h_", ",", "n_", ",", "a_", ",", "R_"}], "]"}], ":=", RowBox[{ RowBox[{"ChkIdentV4", "[", RowBox[{"h", ",", "n", ",", "a", ",", "R"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"m", ",", "s"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{"i", ",", "v"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "v"}], ",", "v"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"StirlingS2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "i", "-", "v"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "+", "s", "-", "m"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"R", "-", "a"}], ",", RowBox[{"m", "-", "s"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"R", "/", "a"}], ",", RowBox[{"n", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "i"}], "}"}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655258417023239*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "21"}], ";", RowBox[{"primeTupleDiff", "=", "2"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "primeTupleDiff"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"ChkIdentV3", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "n", ",", RowBox[{"-", "1"}], ",", "n"}], "]"}], "^", "2"}], ")"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"10", "n"}], "+", "7"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552584589503603`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "15"}], ";", RowBox[{"primeTupleDiff", "=", "2"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "primeTupleDiff"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"ChkIdentV4", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", RowBox[{"2", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2", "n"}]}], "]"}]}], "+", RowBox[{"2", "n"}], "+", "5"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655258450694772*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"TwinPrimeChkIdentV3", ",", "TwinPrimeChkIdentV4"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TwinPrimeChkIdentV3", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"TwinPrimeChkIdentV3", "[", "n", "]"}], "=", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "s"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ RowBox[{"i", "!"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "+", "k"}]], " ", TemplateBox[{RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "3"}], ")"}]}],"i"}, "Binomial"], " ", TemplateBox[{RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "3"}], ")"}]}],"k"}, "Binomial"], " ", TemplateBox[{"m","s"}, "Binomial"], " ", RowBox[{"FallingFactorial", "[", RowBox[{"n", ",", RowBox[{"n", "-", "k"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], RowBox[{"m", "-", "s"}]], " ", RowBox[{"S2", "[", RowBox[{"s", ",", "i"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}]}]}]}], ")"}]}]}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", "n"}], "+", "7"}], ")"}]}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TwinPrimeChkIdentV4", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"TwinPrimeChkIdentV4", "[", "n", "]"}], "=", RowBox[{ RowBox[{"4", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], RowBox[{"2", " ", "n"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "s"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"v", "=", "0"}], "i"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"2", " ", "n"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "k"], RowBox[{ RowBox[{"i", "!"}], " ", TemplateBox[{"i","v"}, "Binomial"], " ", TemplateBox[{RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "3"}], ")"}]}],"k"}, "Binomial"], " ", TemplateBox[{"m","s"}, "Binomial"], " ", TemplateBox[{RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "3"}], ")"}]}], "+", "v"}], "v"}, "Binomial"], " ", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{"2", "n"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "k"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}], ")"}], RowBox[{"m", "-", "s"}]], " ", RowBox[{"S2", "[", RowBox[{"s", ",", "i"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"i", "+", "k", "+", "s", "+", "v"}]]}]}]}], ")"}]}]}]}]}], "+", RowBox[{"2", " ", "n"}], "+", "5"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6552584259625463`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "32"}], ";", RowBox[{"primeTupleDiff", "=", "2"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "primeTupleDiff"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"TwinPrimeChkIdentV3", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655258468962977*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "16"}], ";", RowBox[{"primeTupleDiff", "=", "2"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "primeTupleDiff"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"TwinPrimeChkIdentV4", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655258472976982*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the cousin prime pairs: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, 3.6552582422836933`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"primeTupleDiff", ",", "firstCongFn", ",", "secondCongFn"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CousinPrimeCongV1", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"36", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "5"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"29", "-", RowBox[{"14", "n"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CousinPrimeCongV2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"96", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "5"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", " ", "n"}]}], "}"}]}], "]"}]}], "+", RowBox[{"46", "*", "n"}], "+", "119"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920367106845*^9, 3.655258218841013*^9, { 3.655258249794734*^9, 3.655258271050932*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[886]:="], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "125"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"primeTupleDiff", ",", "firstCongFn", ",", "secondCongFn"}], "}"}], "=", RowBox[{"{", RowBox[{"4", ",", "CousinPrimeCongV1", ",", "CousinPrimeCongV2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"p", "+", "primeTupleDiff"}], "]"}], ",", "p", ",", "Null"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "pupper"}], "}"}]}], "]"}]}], "}"}]}], "]"}], ",", "NumericQ"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "primeTupleDiff"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{"Primes", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"IsPrime", "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{"IsPrimePair", "\[Rule]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], "]"}]}]}], ",", RowBox[{"ExpectedTuple", "\[Rule]", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FirstCong", "[", "n", "]"}], "\[Rule]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"firstCongFn", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}]}], ",", RowBox[{ RowBox[{"SecondCong", "[", "n", "]"}], "\[Rule]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"secondCongFn", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}]}]}], "}"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655258214384006*^9, 3.655258264017027*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[889]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the sexy prime pairs: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, 3.655258173632276*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"5", "!!"}], ")"}], "^", "2"}], ")"}]}], ",", RowBox[{"(", RowBox[{ RowBox[{"6", "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"5", "!!"}], ")"}], "^", "2"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"5", "!!"}], ")"}], "^", "2"}], ")"}], "+", RowBox[{"4", "^", "3"}]}], ")"}], "*", "p"}]}], ")"}], ",", RowBox[{ RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"6", "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"5", "!!"}], ")"}], "^", "2"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"5", "!!"}], ")"}], "^", "2"}], ")"}], "+", RowBox[{"4", "^", "3"}]}], ")"}], "*", "p"}]}], ")"}], ")"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], ")"}]}]}], " ", "}"}], " ", "//", " ", "Expand"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", "*", RowBox[{"(", RowBox[{"6", "!"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", "!"}], "-", "1"}], ")"}], "*", "p"}]}], ")"}], ",", RowBox[{ RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"6", "*", RowBox[{"(", RowBox[{"6", "!"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", "!"}], "-", "1"}], ")"}], "*", "p"}]}], ")"}], ")"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], ")"}]}]}], "}"}], " ", "//", " ", "Expand"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655258222363656*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"primeTupleDiff", ",", "firstCongFn", ",", "secondCongFn"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SexyPrimeCongV1", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"1350", "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "7"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"1639", "+", RowBox[{"578", " ", "n"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SexyPrimeCongV2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"4320", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "7"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", " ", "n"}]}], "}"}]}], "]"}]}], "+", "5039", "+", RowBox[{"1438", " ", "n"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655258218841013*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "125"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"primeTupleDiff", ",", "firstCongFn", ",", "secondCongFn"}], "}"}], "=", RowBox[{"{", RowBox[{"6", ",", "SexyPrimeCongV1", ",", "SexyPrimeCongV2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{"p", "+", "primeTupleDiff"}], "]"}], ",", "p", ",", "Null"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "pupper"}], "}"}]}], "]"}]}], "}"}]}], "]"}], ",", "NumericQ"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "primeTupleDiff"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{"Primes", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"IsPrime", "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}]}], ",", RowBox[{"IsPrimePair", "\[Rule]", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], "]"}]}]}], ",", RowBox[{"ExpectedTuple", "\[Rule]", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FirstCong", "[", "n", "]"}], "\[Rule]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"firstCongFn", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}]}], ",", RowBox[{ RowBox[{"SecondCong", "[", "n", "]"}], "\[Rule]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"secondCongFn", "[", "n", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", "primeTupleDiff"}], ")"}]}], ",", "modOffset"}], "]"}]}]}], "}"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655258214384006*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Results and divisibility \ properties related to the double factorial function:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799363405694*^9}, {3.654799555154764*^9, 3.654799585352133*^9}, 3.6552589160465393`*^9, 3.6552635877435837`*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Initial \ expansions of the double factorial function:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652961691083907*^9, 3.652961691193199*^9}, 3.653250299129774*^9, { 3.6532510939219103`*^9, 3.6532511601864777`*^9}, 3.653303344803204*^9, { 3.6533216556044207`*^9, 3.653321659021649*^9}, {3.6533217861472073`*^9, 3.653321809122614*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], ",", RowBox[{"pn", "[", RowBox[{"n", ",", "2", ",", "1"}], "]"}], ",", RowBox[{"pn", "[", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "-", "1"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"FootnoteBinomialIdents", "[", "n", "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"n", "!"}], ")"}]}], ",", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"n", "!"}], ")"}], "/", RowBox[{"(", RowBox[{"4", "^", "n"}], ")"}]}]}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552634528272343`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Congruences for the double factorial function, (2n-1)!!, modulo ", Cell[BoxData[ RowBox[{ SuperscriptBox["2", "s"], " ", "h"}]], "Output", CellChangeTimes->{3.653251129388255*^9}], " for 0 \[LessEqual] s \[LessEqual] h:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652961691083907*^9, 3.652961691193199*^9}, 3.653250299129774*^9, { 3.6532510939219103`*^9, 3.6532511601864777`*^9}, 3.653303344803204*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "100"}], ";", RowBox[{"hupper", "=", "6"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"mods", "[", RowBox[{"h", ",", "s", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "+", RowBox[{"i", "*", RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}]}]}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"i", "*", RowBox[{"(", RowBox[{"s", "+", "2"}], ")"}]}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "i"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "i"}]}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "+", RowBox[{"i", "*", RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}]}]}]}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"n", "-", "i"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", "n", "-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"n", "+", RowBox[{"i", "*", RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}]}]}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "n"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}], ",", "5"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], ",", RowBox[{"h", "*", RowBox[{"Power", "[", RowBox[{"2", ",", "s"}], "]"}]}], ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "h"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65526344527617*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Polynomial congruences for the central binomial coefficients, ", Cell[BoxData[ FormBox[ TemplateBox[{RowBox[{"2", "n"}],"n"}, "Binomial"], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6532512008696747`*^9}], ", \n modulo individual polynomial powers of ", Cell[BoxData[ SuperscriptBox["n", "p"]], "Output", CellChangeTimes->{3.653251245347851*^9}], " for some integers p \[GreaterEqual] 1: " }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652961689712308*^9, 3.6529616898373947`*^9}, 3.653250297224677*^9, { 3.653251174920731*^9, 3.653251268911426*^9}, 3.653301548155623*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"CentralBinomPolyModFn", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FE", "[", "#1", "]"}], ",", RowBox[{"n", "^", "p"}], ",", RowBox[{"CoefficientDomain", "\[Rule]", "Integers"}]}], "]"}], "&"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{ "CentralBinomSumV1", ",", "CentralBinomSumV2", ",", "CentralBinomSumV3", ",", "CentralBinomSumV4", ",", "CentralBinomSumV5"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomSumV1", "[", RowBox[{"x_", ",", "n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"CentralBinomSumV1", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "=", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"CentralBinomPolyModFn", "[", RowBox[{"x", ",", "p"}], "]"}], "@@", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "n"}], "+", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomSumV2", "[", RowBox[{"x_", ",", "n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"CentralBinomSumV2", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "=", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"CentralBinomPolyModFn", "[", RowBox[{"x", ",", "p"}], "]"}], "@@", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "i"}], "-", "1"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "+", RowBox[{"2", "i"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomSumV3", "[", RowBox[{"x_", ",", "n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"CentralBinomSumV3", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "=", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"CentralBinomPolyModFn", "[", RowBox[{"x", ",", "p"}], "]"}], "@@", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "-", RowBox[{"2", "i"}]}], ",", RowBox[{"x", "-", "i"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "n"}], "+", "i"}]}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"n", "-", "i"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomSumV4", "[", RowBox[{"x_", ",", "n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"CentralBinomSumV4", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "=", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"CentralBinomPolyModFn", "[", RowBox[{"x", ",", "p"}], "]"}], "@@", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "-", RowBox[{"2", "i"}]}], ",", RowBox[{"x", "-", "i"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"8", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomSumV5", "[", RowBox[{"x_", ",", "n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"CentralBinomSumV5", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "=", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"CentralBinomPolyModFn", "[", RowBox[{"x", ",", "p"}], "]"}], "@@", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", "n", "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "n"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "n"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655263520136092*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ RowBox[{ RowBox[{"CentralBinomSumV5", "[", RowBox[{"x_", ",", "n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"CentralBinomSumV5", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "=", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"CentralBinomPolyModFn", "[", RowBox[{"x", ",", "p"}], "]"}], "@@", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"x", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", "x", "-", RowBox[{"x", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"x", "^", "p"}]}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "n"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}]}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655263543360664*^9}, FontSize->10, Background->RGBColor[1, 0.9, 0.8]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "50"}], ";", RowBox[{"nidxstep", "=", "2"}], ";", RowBox[{"pupper", "=", "5"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Index", "[", RowBox[{"n", ",", "p"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"n", "^", "p"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"CentralBinomSumV1", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", "n"}], ")"}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"CentralBinomSumV2", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", "n"}], ")"}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"CentralBinomSumV3", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", "n"}], ")"}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"CentralBinomSumV4", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", "n"}], ")"}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"CentralBinomSumV5", "[", RowBox[{"x", ",", "n", ",", "p"}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", "n"}], ")"}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", "7"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper", ",", "nidxstep"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263560677894*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "100"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"mods", "[", RowBox[{"p", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"n", "^", "p"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"n", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "n"}], "+", "i"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"n", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "+", RowBox[{"2", "i"}]}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "i"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "p"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", "n", "-", RowBox[{"n", "^", "p"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "-", "n"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"2", "n"}], "+", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}]}], "}"}], "===", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}]}], ",", RowBox[{"n", "^", "p"}]}], "]"}], ",", "4"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "]"}], "*", RowBox[{"Factorial", "[", "n", "]"}]}], ",", RowBox[{"n", "^", "p"}], ",", "modOffset"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "5"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552635653801003`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ combined single and double factorial function sum identity: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.652961687601015*^9, 3.652961688139573*^9}, {3.652961816624157*^9, 3.6529618377757597`*^9}, 3.653250295945657*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", "n", "]"}], ",", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FactorialPower", "[", RowBox[{"j", ",", "k"}], "]"}], "*", RowBox[{"FactorialPower", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "j"}], ",", RowBox[{"j", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k", ",", "n"}], "}"}]}], "]"}], "-", RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FactorialPower", "[", RowBox[{"j", ",", "k"}], "]"}], "*", RowBox[{"FactorialPower", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "j"}], ",", RowBox[{"j", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k", ",", "n"}], "}"}]}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FactorialPower", "[", RowBox[{"j", ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"FactorialPower", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "1", "-", "j"}], ",", RowBox[{"j", "-", "k", "-", "1"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"k", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552634806216507`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "3"}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FactorialPower", "[", RowBox[{"j", ",", "k"}], "]"}], "*", RowBox[{"FactorialPower", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "j"}], ",", RowBox[{"j", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "-", RowBox[{ RowBox[{"Factorial2", "[", "k", "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "1"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "3"}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FactorialPower", "[", RowBox[{"j", ",", "k"}], "]"}], "*", RowBox[{"FactorialPower", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "j"}], ",", RowBox[{"j", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FactorialPower", "[", RowBox[{"j", ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"FactorialPower", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "1", "-", "j"}], ",", RowBox[{"j", "-", "k", "-", "1"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "3"}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FallingFactorial", "[", RowBox[{"j", ",", "k"}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "j"}], ",", RowBox[{"j", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FallingFactorial", "[", RowBox[{"j", ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "1", "-", "j"}], ",", RowBox[{"j", "-", "k", "-", "1"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "3"}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "j"}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "+", "j", "-", "k"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "j"}], ")"}]}], ",", RowBox[{"j", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "j"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", "k", "-", "1", "-", "j"}], ")"}]}], ",", RowBox[{"j", "-", "k", "-", "1"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"k", "+", "1", "+", "j", "-", "k", "-", "1"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "2", "-", RowBox[{"2", "j"}], "-", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "3"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "j"}], ",", "k"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "j", "-", "2"}], ")"}]}], ",", RowBox[{"j", "-", "k"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "j"}], "-", "3"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "j"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "j"}], ",", RowBox[{"k", "+", "1"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "k", "-", "j", "-", "3"}], ")"}]}], ",", RowBox[{"j", "-", "k", "-", "1"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", RowBox[{"2", "j"}], "-", "3"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"k", "+", "1"}], ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655263488527535*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] Results obtained from \ symbolic computations with ", StyleBox["Mathematica", FontSlant->"Italic"], "\[CloseCurlyQuote]s ", StyleBox["Sigma", FontSlant->"Italic"], " Package:" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525256632130823`*^9, 3.652525664760097*^9}, {3.652954947029806*^9, 3.652954994104177*^9}, {3.652955024619289*^9, 3.652955036603868*^9}, { 3.6529550693097267`*^9, 3.652955082836746*^9}, 3.652955416676663*^9, 3.652955470633924*^9, {3.652956007464637*^9, 3.652956033251566*^9}, { 3.652962722238535*^9, 3.652962723370668*^9}, 3.653250188218648*^9, 3.6533537454864264`*^9, 3.655266338721529*^9, 3.655267626454994*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Alternate simplified forms of the right-hand-side sums in the congruences: \n \ n! ", StyleBox["\[Congruent] ", FontSize->14], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ SuperscriptBox[ TemplateBox[{RowBox[{"n", "+", "d"}],"i"}, "Binomial"], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1", "-", "i"}], ")"}], "!"}]}]}], HoldForm], TraditionalForm]], "Output", CellChangeTimes->{3.652959588343238*^9}], StyleBox[" ", FontSize->14], "(mod n+d)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.6529590656052237`*^9, 3.652959098223751*^9}, {3.652959187490695*^9, 3.652959196241386*^9}, {3.6529595944552307`*^9, 3.652959595429978*^9}, 3.6529647965748777`*^9, {3.6532502496494503`*^9, 3.6532502511588297`*^9}, { 3.653327878459248*^9, 3.6533278788606167`*^9}, {3.655266428552651*^9, 3.655266428978011*^9}, 3.655266543054981*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Compute", " ", "and", " ", "solve", " ", StyleBox["a", FontSlant->"Plain"], " ", "recurrence", " ", "for", " ", "the", " ", "right"}], "-", "hand", "-", RowBox[{"side", " ", RowBox[{"(", "RHS", ")"}], " ", "sum", " ", "using", " ", "the", " ", StyleBox["Sigma", FontSlant->"Italic"], " ", "package", " ", RowBox[{"routines", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653325809174569*^9, 3.653325852089999*^9}, {3.65332791909619*^9, 3.653327924163796*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sum", "=", RowBox[{"SigmaSum", "[", RowBox[{ RowBox[{ RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"SigmaBinomial", "[", RowBox[{ RowBox[{"n", "+", "d"}], ",", "i"}], "]"}], ",", "1"}], "]"}], "*", RowBox[{"SigmaPochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"n", "+", "d"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"SigmaFactorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenerateRecurrence", "[", RowBox[{"sum", ",", "n"}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rec", "=", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"recsol", "=", RowBox[{ RowBox[{"SolveRecurrence", "[", RowBox[{"rec", ",", RowBox[{"SUM", "[", "n", "]"}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{"recsol2", "=", RowBox[{"FindLinearCombination", "[", RowBox[{"recsol", ",", "sum", ",", "2"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552665130371637`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[955]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"d", "+", "n"}]}, {"n"} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "-", "n"}], ")"}], "n"]}], RowBox[{"1", "+", "n"}]], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "d"}], "+", "n"}], ")"}], " ", RowBox[{"SUM", "[", "n", "]"}]}], "+", RowBox[{"SUM", "[", RowBox[{"1", "+", "n"}], "]"}]}], "\[Equal]", "0"}], "}"}]], "Output", CellChangeTimes->{3.655266524603982*^9}, CellLabel->"Out[956]="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "d"}], "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "d"}], "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"d", "+", SubscriptBox["\[Iota]", "1"]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "-", SubscriptBox["\[Iota]", "1"]}], ")"}], SubscriptBox["\[Iota]", "1"]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], FractionBox["1", RowBox[{"1", "-", RowBox[{"2", " ", "d"}], "-", SubscriptBox["\[Iota]", "2"]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Iota]", "1"]}], ")"}], "2"]]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.655266525212941*^9}, CellLabel->"Out[958]="], Cell[BoxData[ RowBox[{ RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "d"}], "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "d"}], "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"d", "+", SubscriptBox["\[Iota]", "1"]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "-", SubscriptBox["\[Iota]", "1"]}], ")"}], SubscriptBox["\[Iota]", "1"]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], FractionBox["1", RowBox[{"1", "-", RowBox[{"2", " ", "d"}], "-", SubscriptBox["\[Iota]", "2"]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Iota]", "1"]}], ")"}], "2"]]}], ")"}]}]}]], "Output",\ CellChangeTimes->{3.655266525307819*^9}, CellLabel->"Out[959]="] }, Closed]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Use", " ", "Mathematica", " ", "to", " ", "simplify", " ", "the", " ", "product", " ", "terms", " ", "in", " ", "terms", " ", "of", " ", "the", " ", "Pochhammer", " ", RowBox[{"symbol", ":", "\[IndentingNewLine]", TagBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"i", "=", "1"}], "n"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "d"}], "-", "i"}], ")"}]}], HoldForm]}]}], " ", "=", " ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", TemplateBox[{RowBox[{"2", " ", "d"}],"n"}, "Pochhammer"]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653325676925005*^9, 3.653325700291464*^9}, {3.653325748755514*^9, 3.653325779638568*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", "d"}], "-", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", "d"}], "-", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "HoldForm"}], " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", "d"}], "-", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "TraditionalForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655266488336815*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "new", " ", "summation", " ", "identities"}], ",", " ", RowBox[{ "where", " ", "the", " ", "last", " ", "sum", " ", "form", " ", "is", " ", "obtained", " ", "by", " ", "applying", " ", "the", " ", "fractions", " ", "of", " ", "Pochhammer", " ", "symbols", " ", "footnote", " ", RowBox[{"expansion", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653325676925005*^9, 3.653325700291464*^9}, {3.653325748755514*^9, 3.653325779638568*^9}, {3.653325938822516*^9, 3.653326002394356*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "d"}], ",", "i"}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"n", "+", "d"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "d"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "/", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "d"}], ",", "i"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ")"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "d"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "/", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "d"}], ",", "i"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ")"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65526647140771*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "d"}], ",", "i"}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"n", "+", "d"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", "d"}], ",", "i"}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"n", "+", "d"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"n", "+", "d"}]}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", RowBox[{"d", "*", "c"}]}], ",", "i"}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"n", "+", RowBox[{"d", "*", "c"}]}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"n", "+", "d"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"PolynomialMod", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "+", RowBox[{"d", "*", "a"}]}], ",", "i"}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"n", "+", RowBox[{"d", "*", "b"}]}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"n", "+", "d"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920373568322*^9, 3.655266474091455*^9}, FontSize->10, Background->RGBColor[1, 0.85, 0.85]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Expansions of particular special cases of the sums, ", Cell[BoxData[ RowBox[{ SubscriptBox["S", RowBox[{"1", ",", "d"}]], RowBox[{"(", "n", ")"}]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.65295962660086*^9}], ", in terms of the first-order harmonic numbers:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.6529590656052237`*^9, 3.652959098223751*^9}, {3.652959187490695*^9, 3.652959196241386*^9}, {3.652959272619462*^9, 3.6529592937222633`*^9}, { 3.652959634265374*^9, 3.652959650364801*^9}, 3.652964787632257*^9, { 3.6529692520393887`*^9, 3.652969258749783*^9}, 3.65325026107089*^9, { 3.653326042230171*^9, 3.653326046141974*^9}, {3.6533260796973743`*^9, 3.653326113741117*^9}, {3.653326201665587*^9, 3.6533262122058268`*^9}, { 3.655266425177301*^9, 3.6552664255949583`*^9}, 3.6552673994161386`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ TagBox[ RowBox[{" ", RowBox[{ RowBox[{ SubscriptBox["S", RowBox[{"1", ",", "d"}]], "(", "n", ")"}], " ", ":=", " ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", SuperscriptBox["d", "2"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ TemplateBox[{RowBox[{"i", "+", "d"}],"d"}, "Binomial"], "2"], " ", RowBox[{"i", "!"}], " ", TemplateBox[{RowBox[{ RowBox[{"2", " ", "d"}], "+", "i"}],RowBox[{"n", "-", "i"}]}, "Pochhammer"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "2"]]}]}]}]}], HoldForm], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653326139052227*^9, 3.6533261806776247`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[TextData[{ StyleBox["Some initial observations on the forms of the expansions given \ below and in the special cases cited as example cases in the article section \ :", FontSlant->"Italic"], "\n \[FilledRightTriangle] The factored coefficients in the terms \ obtained from the Sigma sums correspond to multiples of the Stirling number \ triangles.\n \[FilledRightTriangle] Since the parameter d in these sums can \ vary with n, the harmonic number expansions noted in the few example cases \ suggest one form of the\n generalized harmonic number expansions \ implied by the congruences for the prime pair sums, among several other \ variations of these sums \n noted in the applications. If d := \ (2n+1)(2n+3) , or d := (2n+1)(2n+7) , in the expansions of these particular \ sum cases, the \n congruences for the twin and sexy prime pairs \ expanded in this section yield congruences involving a leading first-order \ harmonic number term \n whose dividibility depends quadratically on the \ sequence index index, for example, in the forms of \n ", Cell[BoxData[ FormBox[ TemplateBox[{RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"9", " ", "n"}], "+", "3"}]}, "HarmonicNumber"], TraditionalForm]], "Output", CellChangeTimes->{3.6529664531201468`*^9}], " \[Times] ((n+1)(n+3)+n)!, or ", Cell[BoxData[ FormBox[ TemplateBox[{RowBox[{"7", "+", RowBox[{"17", " ", "n"}], "+", RowBox[{"4", " ", SuperscriptBox["n", "2"]}]}]}, "HarmonicNumber"], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6529664531201468`*^9}], " \[Times] ((n+1)(n+7)+n)!" }], "Text", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652966566805464*^9, 3.652966767754651*^9}, {3.652966802663368*^9, 3.6529668858489847`*^9}, {3.652966927031124*^9, 3.652966928721977*^9}, { 3.653326268094041*^9, 3.65332626849107*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ "\[FilledRightTriangle]", " ", "Another", " ", "couple", " ", "of", " ", "observed", " ", "special", " ", "case", " ", "formulas", " ", "for", " ", "the", " ", "sums", " ", RowBox[{ SubscriptBox["S", RowBox[{"1", ",", "d"}]], "(", "n", ")"}], " ", "when", " ", "d"}], ":=", "1"}], ",", RowBox[{ RowBox[{ "2", " ", "given", " ", "in", " ", "terms", " ", "of", " ", "the", " ", "first", " ", "and", " ", "second"}], "-", RowBox[{"order", " ", "Eulerian", " ", "number", " ", RowBox[{"triangles", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529594031429243`*^9, 3.652959418950914*^9}, {3.652959493562277*^9, 3.652959501579566*^9}, {3.652963380987823*^9, 3.652963439188381*^9}, { 3.652965500722164*^9, 3.652965501833334*^9}, {3.65296693708482*^9, 3.652966938411932*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "d"}], ")"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "2"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "1"}], ")"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"EulerianE2", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}]}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "2"}], ")"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "3"}], ")"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "4"}], ")"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "5"}], ")"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "6"}], ")"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"d", "\[Rule]", "7"}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655267360904845*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[7]:="], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"n", "!"}], ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "2"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}]}], ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"n", "!"}], ",", RowBox[{"n", "+", "2"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"EulerianE2", "[", RowBox[{ RowBox[{"n", "+", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}]}], ",", RowBox[{"n", "+", "2"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "24"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655267364175137*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[6]:="], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ "\[FilledRightTriangle]", " ", "Generate", " ", "the", " ", "expansions", " ", "of", " ", "the", " ", "identities", " ", "cited", " ", "as", " ", "special", " ", "cases", " ", "using", " ", "Sigma", " ", "and", " ", "the", " ", "built"}], "-", RowBox[{"in", " ", "Mathematica"}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{" ", RowBox[{"routine", " ", StyleBox["FindSequenceFunction", FontFamily->"Courier New", FontWeight->"Bold"], " ", "which", " ", "is", " ", "able", " ", "to", " ", "recognize", " ", "thesse", " ", "harmonic", " ", "number", " ", "sequence", " ", RowBox[{"cases", ":", " "}]}]}], TraditionalForm]}], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529594031429243`*^9, 3.652959418950914*^9}, {3.652959493562277*^9, 3.652959501579566*^9}, {3.652963380987823*^9, 3.652963439188381*^9}, { 3.652965500722164*^9, 3.652965501833334*^9}, {3.65296693708482*^9, 3.652966938411932*^9}, {3.65296719907591*^9, 3.652967320702135*^9}, { 3.6529693580783863`*^9, 3.6529693615147533`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"getHarmonicNumberSumExps", "[", RowBox[{"d_", ",", RowBox[{"nupper_:", "18"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sigmaSum", "=", RowBox[{"SigmaSum", "[", RowBox[{ RowBox[{ RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"SigmaBinomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"SigmaFactorial", "[", "i", "]"}], "*", RowBox[{"SigmaPochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "*", RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", RowBox[{"-", "2"}]}], "]"}], "*", RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigmaRec", "=", RowBox[{ RowBox[{"GenerateRecurrence", "[", RowBox[{"sigmaSum", ",", "n"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigmaRecSol", "=", RowBox[{"FS", "[", RowBox[{"SolveRecurrence", "[", RowBox[{"sigmaRec", ",", RowBox[{"SUM", "[", "n", "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigmaRecSolLC", "=", RowBox[{"FS", "[", RowBox[{"FindLinearCombination", "[", RowBox[{"sigmaRecSol", ",", "sigmaSum", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polyTerms", "=", RowBox[{ RowBox[{"Cancel", "[", RowBox[{ RowBox[{"sigmaRecSolLC", "/", RowBox[{"SigmaPochhammer", "[", RowBox[{ RowBox[{"2", " ", "d"}], ",", "n"}], "]"}]}], "/", RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}]}], "]"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}], ")"}], "\[Rule]", "0"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fsfData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{"d", "^", "2"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"i", "+", "d"}], ",", "d"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "d"}], ")"}], "^", "2"}], ")"}]}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"2", "d"}], "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fsfFormula", "=", RowBox[{"FS", "[", RowBox[{"FindSequenceFunction", "[", RowBox[{"fsfData", ",", "n"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fsfFormulaFactored", "=", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"(", "fsfFormula", ")"}], "/", RowBox[{"Gamma", "[", RowBox[{"n", "+", "d", "+", "1"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"printOutput", "[", RowBox[{"headerStr_", ",", "formula_"}], "]"}], ":=", RowBox[{"{", RowBox[{"Print", "[", RowBox[{"\"\<\[FilledRightTriangle] \>\"", ",", " ", RowBox[{"Style", "[", RowBox[{"headerStr", ",", "Bold", ",", "Italic", ",", "Larger"}], "]"}], ",", "formula"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{"\"\\"", ",", "d"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{"\"\\"", ",", "sigmaRec"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{"\"\\"", ",", "sigmaRecSol"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{"\"\\"", ",", "sigmaRecSolLC"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{"\"\\"", ",", RowBox[{"Factor", "[", "polyTerms", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{"\"\\"", ",", RowBox[{"Apart", "[", "polyTerms", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{ "\"\\"", ",", "fsfFormula"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"printOutput", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\\"", ",", "d"}], "]"}], "]"}], ",", "fsfFormulaFactored"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ "sigmaRecSolLC", ",", "fsfFormula", ",", "fsfFormulaFactored"}], "}"}], "]"}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655266795568557*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[966]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"getHarmonicNumberSumExps", "[", "1", "]"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266808869899*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[967]:="], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Recurrence d Paremeter: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", "1"}], SequenceForm["\[FilledRightTriangle] ", Style["Recurrence d Paremeter: ", Bold, Italic, Larger], 1], Editable->False]], "Print", CellChangeTimes->{3.6552668295480747`*^9}, CellLabel->"During evaluation of In[967]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Recurrence: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", "n"}], ")"}], " ", RowBox[{"SUM", "[", "n", "]"}]}], "-", RowBox[{"SUM", "[", RowBox[{"1", "+", "n"}], "]"}]}], "\[Equal]", RowBox[{ SubscriptBox[ RowBox[{"(", "2", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Recurrence: ", Bold, Italic, Larger], (-2 - $CellContext`n) RISCComb`SUM[$CellContext`n] - RISCComb`SUM[1 + $CellContext`n] == Sigma`Summation`Objects`Private`MyPochhammer[2, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]], Editable->False]], "Print", CellChangeTimes->{3.655266829620047*^9}, CellLabel->"During evaluation of In[967]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Computed Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", SubscriptBox[ RowBox[{"(", "2", ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", SubscriptBox[ RowBox[{"(", "2", ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"-", FractionBox["1", RowBox[{"1", "+", SubscriptBox["\[Iota]", "1"]}]]}]}], ")"}]}]}], "}"}]}], "}"}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Computed Solutions: ", Bold, Italic, Larger], {{ 0, -Sigma`Summation`Objects`Private`MyPochhammer[2, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]}, { 1, -Sigma`Summation`Objects`Private`MyPochhammer[2, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] Sigma`Summation`Objects`Private`MySum[(-1)/(1 + Sigma`Summation`Objects`Private`i[1]), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}]}}], Editable->False]], "Print", CellChangeTimes->{3.6552668296235857`*^9}, CellLabel->"During evaluation of In[967]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Combined Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{"-", SubscriptBox[ RowBox[{"(", "2", ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"-", FractionBox["1", RowBox[{"1", "+", SubscriptBox["\[Iota]", "1"]}]]}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Combined Solutions: ", Bold, Italic, Larger], - Sigma`Summation`Objects`Private`MyPochhammer[2, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] (-1 + Sigma`Summation`Objects`Private`MySum[(-1)/(1 + Sigma`Summation`Objects`Private`i[1]), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}])], Editable->False]], "Print", CellChangeTimes->{3.655266829626677*^9}, CellLabel->"During evaluation of In[967]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms I: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"1", "-", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"-", FractionBox["1", RowBox[{"1", "+", SubscriptBox["\[Iota]", "1"]}]]}]}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms I: ", Bold, Italic, Larger], 1 - Sigma`Summation`Objects`Private`MySum[(-1)/(1 + Sigma`Summation`Objects`Private`i[1]), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}]], Editable->False]], "Print", CellChangeTimes->{3.6552668296296043`*^9}, CellLabel->"During evaluation of In[967]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms II: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"1", "-", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"-", FractionBox["1", RowBox[{"1", "+", SubscriptBox["\[Iota]", "1"]}]]}]}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms II: ", Bold, Italic, Larger], 1 - Sigma`Summation`Objects`Private`MySum[(-1)/(1 + Sigma`Summation`Objects`Private`i[1]), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}]], Editable->False]], "Print", CellChangeTimes->{3.6552668296324997`*^9}, CellLabel->"During evaluation of In[967]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"1", "+", "n"}], "]"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula: ", Bold, Italic, Larger], (-1)^$CellContext`n Gamma[2 + $CellContext`n] HarmonicNumber[1 + $CellContext`n]], Editable->False]], "Print", CellChangeTimes->{3.6552668296353617`*^9}, CellLabel->"During evaluation of In[967]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula \[Times] (n+1)!: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"1", "+", "n"}], "]"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula \[Times] (n+1)!: ", Bold, Italic, Larger], (-1)^$CellContext`n HarmonicNumber[1 + $CellContext`n]], Editable->False]], "Print", CellChangeTimes->{3.655266829638204*^9}, CellLabel->"During evaluation of In[967]:="] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox[ RowBox[{"(", "2", ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"-", FractionBox["1", RowBox[{"1", "+", SubscriptBox["\[Iota]", "1"]}]]}]}]}], ")"}]}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"1", "+", "n"}], "]"}]}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"1", "+", "n"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.655266825034629*^9, 3.655266829641193*^9}}, CellLabel->"Out[967]="] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"getHarmonicNumberSumExps", "[", "2", "]"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266813543909*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[968]:="], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Recurrence d Paremeter: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", "2"}], SequenceForm["\[FilledRightTriangle] ", Style["Recurrence d Paremeter: ", Bold, Italic, Larger], 2], Editable->False]], "Print", CellChangeTimes->{3.655266832295681*^9}, CellLabel->"During evaluation of In[968]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Recurrence: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}], " ", RowBox[{"SUM", "[", "n", "]"}]}], "+", RowBox[{"SUM", "[", RowBox[{"1", "+", "n"}], "]"}]}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", SubscriptBox[ RowBox[{"(", "4", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}]}]]}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Recurrence: ", Bold, Italic, Larger], (4 + $CellContext`n) RISCComb`SUM[$CellContext`n] + RISCComb`SUM[1 + $CellContext`n] == Rational[-3, 2] (2 + $CellContext`n) (3 + $CellContext`n)^(-1) Sigma`Summation`Objects`Private`MyPochhammer[4, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]], Editable->False]], "Print", CellChangeTimes->{3.655266832423957*^9}, CellLabel->"During evaluation of In[968]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Computed Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", SubscriptBox[ RowBox[{"(", "4", ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox[ RowBox[{"(", "4", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"1", "+", "n"}]], "+", FractionBox["1", RowBox[{"2", "+", "n"}]], "+", FractionBox["2", RowBox[{"3", "+", "n"}]], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}]}], ")"}]}]}], "}"}]}], "}"}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Computed Solutions: ", Bold, Italic, Larger], {{ 0, -Sigma`Summation`Objects`Private`MyPochhammer[4, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]}, { 1, Rational[3, 2] Sigma`Summation`Objects`Private`MyPochhammer[4, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] (( 1 + $CellContext`n)^(-1) + (2 + $CellContext`n)^(-1) + 2/(3 + $CellContext`n) + Sigma`Summation`Objects`Private`MySum[ Sigma`Summation`Objects`Private`i[1]^(-1), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}])}}], Editable->False]], "Print", CellChangeTimes->{3.655266832427494*^9}, CellLabel->"During evaluation of In[968]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Combined Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox[ RowBox[{"(", "4", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", FractionBox["1", RowBox[{"1", "+", "n"}]], "+", FractionBox["1", RowBox[{"2", "+", "n"}]], "+", FractionBox["2", RowBox[{"3", "+", "n"}]], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Combined Solutions: ", Bold, Italic, Larger], Rational[3, 2] Sigma`Summation`Objects`Private`MyPochhammer[4, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] (-2 + ( 1 + $CellContext`n)^(-1) + (2 + $CellContext`n)^(-1) + 2/(3 + $CellContext`n) + Sigma`Summation`Objects`Private`MySum[ Sigma`Summation`Objects`Private`i[1]^(-1), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}])], Editable->False]], "Print", CellChangeTimes->{3.655266832430745*^9}, CellLabel->"During evaluation of In[968]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms I: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"7", " ", "n"}], "+", RowBox[{"8", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["n", "3"]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}]}]]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms I: ", Bold, Italic, Larger], Rational[-3, 2] (1 + $CellContext`n)^(-1) (2 + $CellContext`n)^(-1) ( 3 + $CellContext`n)^(-1) (-1 + 7 $CellContext`n + 8 $CellContext`n^2 + 2 $CellContext`n^3)], Editable->False]], "Print", CellChangeTimes->{3.655266832433847*^9}, CellLabel->"During evaluation of In[968]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms II: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "3"}], "+", FractionBox["3", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}]}]], "+", FractionBox["3", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}]}]], "+", FractionBox["3", RowBox[{"3", "+", "n"}]]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms II: ", Bold, Italic, Larger], -3 + Rational[3, 2]/(1 + $CellContext`n) + Rational[3, 2]/(2 + $CellContext`n) + 3/(3 + $CellContext`n)], Editable->False]], "Print", CellChangeTimes->{3.655266832436841*^9}, CellLabel->"During evaluation of In[968]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"3", "+", "n"}], "]"}]}], "+", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"4", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"2", "+", "n"}], "]"}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula: ", Bold, Italic, Larger], (-1)^$CellContext`n ((-2) (2 + $CellContext`n) Gamma[3 + $CellContext`n] + Gamma[4 + $CellContext`n] HarmonicNumber[2 + $CellContext`n])], Editable->False]], "Print", CellChangeTimes->{3.655266832439931*^9}, CellLabel->"During evaluation of In[968]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula \[Times] (n+2)!: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"2", "+", "n"}], "]"}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula \[Times] (n+2)!: ", Bold, Italic, Larger], (-1)^$CellContext`n ((-2) (2 + $CellContext`n) + ( 3 + $CellContext`n) HarmonicNumber[2 + $CellContext`n])], Editable->False]], "Print", CellChangeTimes->{3.655266832442927*^9}, CellLabel->"During evaluation of In[968]:="] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["3", "2"], " ", SubscriptBox[ RowBox[{"(", "4", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", FractionBox["1", RowBox[{"1", "+", "n"}]], "+", FractionBox["1", RowBox[{"2", "+", "n"}]], "+", FractionBox["2", RowBox[{"3", "+", "n"}]], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}]}], ")"}]}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"3", "+", "n"}], "]"}]}], "+", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"4", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"2", "+", "n"}], "]"}]}]}], ")"}]}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"2", "+", "n"}], "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.655266832446232*^9}, CellLabel->"Out[968]="] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"getHarmonicNumberSumExps", "[", "3", "]"}]], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655266816355358*^9, 3.655266832792347*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[969]:="], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Recurrence d Paremeter: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", "3"}], SequenceForm["\[FilledRightTriangle] ", Style["Recurrence d Paremeter: ", Bold, Italic, Larger], 3], Editable->False]], "Print", CellChangeTimes->{3.655266835738233*^9}, CellLabel->"During evaluation of In[969]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Recurrence: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"6", "+", "n"}], ")"}], " ", RowBox[{"SUM", "[", "n", "]"}]}], "+", RowBox[{"SUM", "[", RowBox[{"1", "+", "n"}], "]"}]}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"10", " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", SubscriptBox[ RowBox[{"(", "6", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}]}]]}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Recurrence: ", Bold, Italic, Larger], (6 + $CellContext`n) RISCComb`SUM[$CellContext`n] + RISCComb`SUM[1 + $CellContext`n] == Rational[-10, 3] (2 + $CellContext`n) ( 3 + $CellContext`n) (4 + $CellContext`n)^(-1) (5 + $CellContext`n)^(-1) Sigma`Summation`Objects`Private`MyPochhammer[6, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]], Editable->False]], "Print", CellChangeTimes->{3.655266835905151*^9}, CellLabel->"During evaluation of In[969]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Computed Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", SubscriptBox[ RowBox[{"(", "6", ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["10", "3"], " ", SubscriptBox[ RowBox[{"(", "6", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"1", "+", "n"}]], "+", FractionBox["1", RowBox[{"2", "+", "n"}]], "+", FractionBox["1", RowBox[{"3", "+", "n"}]], "+", FractionBox["6", RowBox[{"5", "+", "n"}]], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}]}], ")"}]}]}], "}"}]}], "}"}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Computed Solutions: ", Bold, Italic, Larger], {{ 0, -Sigma`Summation`Objects`Private`MyPochhammer[6, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]}, { 1, Rational[10, 3] Sigma`Summation`Objects`Private`MyPochhammer[6, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] (( 1 + $CellContext`n)^(-1) + (2 + $CellContext`n)^(-1) + ( 3 + $CellContext`n)^(-1) + 6/(5 + $CellContext`n) + Sigma`Summation`Objects`Private`MySum[ Sigma`Summation`Objects`Private`i[1]^(-1), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}])}}], Editable->False]], "Print", CellChangeTimes->{3.655266835908616*^9}, CellLabel->"During evaluation of In[969]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Combined Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ FractionBox["10", "3"], " ", SubscriptBox[ RowBox[{"(", "6", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", FractionBox["1", RowBox[{"1", "+", "n"}]], "+", FractionBox["1", RowBox[{"2", "+", "n"}]], "+", FractionBox["1", RowBox[{"3", "+", "n"}]], "+", FractionBox["6", RowBox[{"5", "+", "n"}]], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Combined Solutions: ", Bold, Italic, Larger], Rational[10, 3] Sigma`Summation`Objects`Private`MyPochhammer[6, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] (-3 + ( 1 + $CellContext`n)^(-1) + (2 + $CellContext`n)^(-1) + ( 3 + $CellContext`n)^(-1) + 6/(5 + $CellContext`n) + Sigma`Summation`Objects`Private`MySum[ Sigma`Summation`Objects`Private`i[1]^(-1), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}])], Editable->False]], "Print", CellChangeTimes->{3.655266835912136*^9}, CellLabel->"During evaluation of In[969]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms I: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"10", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"46", " ", "n"}], "+", RowBox[{"60", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"24", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["n", "4"]}]}], ")"}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}]}]]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms I: ", Bold, Italic, Larger], Rational[-10, 3] (1 + $CellContext`n)^(-1) (2 + $CellContext`n)^(-1) ( 3 + $CellContext`n)^(-1) (5 + $CellContext`n)^(-1) (-1 + 46 $CellContext`n + 60 $CellContext`n^2 + 24 $CellContext`n^3 + 3 $CellContext`n^4)], Editable->False]], "Print", CellChangeTimes->{3.655266835915331*^9}, CellLabel->"During evaluation of In[969]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms II: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "10"}], "+", FractionBox["10", RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}]}]], "+", FractionBox["10", RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}]}]], "+", FractionBox["10", RowBox[{"3", " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}]}]], "+", FractionBox["20", RowBox[{"5", "+", "n"}]]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms II: ", Bold, Italic, Larger], -10 + Rational[10, 3]/(1 + $CellContext`n) + Rational[10, 3]/(2 + $CellContext`n) + Rational[10, 3]/(3 + $CellContext`n) + 20/(5 + $CellContext`n)], Editable->False]], "Print", CellChangeTimes->{3.655266835918356*^9}, CellLabel->"During evaluation of In[969]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"5", "+", "n"}], "]"}]}], "+", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"6", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"3", "+", "n"}], "]"}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula: ", Bold, Italic, Larger], Rational[1, 4] (-1)^$CellContext`n ((-3) (3 + $CellContext`n) Gamma[5 + $CellContext`n] + Gamma[6 + $CellContext`n] HarmonicNumber[3 + $CellContext`n])], Editable->False]], "Print", CellChangeTimes->{3.655266835921476*^9}, CellLabel->"During evaluation of In[969]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula \[Times] (n+3)!: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"3", "+", "n"}], "]"}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula \[Times] (n+3)!: ", Bold, Italic, Larger], Rational[1, 4] (-1)^$CellContext`n ( 4 + $CellContext`n) ((-3) (3 + $CellContext`n) + (5 + $CellContext`n) HarmonicNumber[3 + $CellContext`n])], Editable->False]], "Print", CellChangeTimes->{3.655266835924193*^9}, CellLabel->"During evaluation of In[969]:="] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["10", "3"], " ", SubscriptBox[ RowBox[{"(", "6", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", FractionBox["1", RowBox[{"1", "+", "n"}]], "+", FractionBox["1", RowBox[{"2", "+", "n"}]], "+", FractionBox["1", RowBox[{"3", "+", "n"}]], "+", FractionBox["6", RowBox[{"5", "+", "n"}]], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"5", "+", "n"}], "]"}]}], "+", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"6", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"3", "+", "n"}], "]"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"3", "+", "n"}], "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.655266835927311*^9}, CellLabel->"Out[969]="] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"getHarmonicNumberSumExps", "[", "4", "]"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552668195982523`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[970]:="], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Recurrence d Paremeter: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", "4"}], SequenceForm["\[FilledRightTriangle] ", Style["Recurrence d Paremeter: ", Bold, Italic, Larger], 4], Editable->False]], "Print", CellChangeTimes->{3.6552668403401403`*^9}, CellLabel->"During evaluation of In[970]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Recurrence: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"8", "+", "n"}], ")"}], " ", RowBox[{"SUM", "[", "n", "]"}]}], "+", RowBox[{"SUM", "[", RowBox[{"1", "+", "n"}], "]"}]}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"35", " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}], " ", SubscriptBox[ RowBox[{"(", "8", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"6", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"7", "+", "n"}], ")"}]}]]}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Recurrence: ", Bold, Italic, Larger], (8 + $CellContext`n) RISCComb`SUM[$CellContext`n] + RISCComb`SUM[1 + $CellContext`n] == Rational[-35, 4] (2 + $CellContext`n) (3 + $CellContext`n) ( 4 + $CellContext`n) (5 + $CellContext`n)^(-1) (6 + $CellContext`n)^(-1) ( 7 + $CellContext`n)^(-1) Sigma`Summation`Objects`Private`MyPochhammer[8, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]], Editable->False]], "Print", CellChangeTimes->{3.6552668405825033`*^9}, CellLabel->"During evaluation of In[970]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Computed Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", SubscriptBox[ RowBox[{"(", "8", ")"}], "n"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["35", "4"], " ", SubscriptBox[ RowBox[{"(", "8", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"1", "+", "n"}]], "+", FractionBox["1", RowBox[{"2", "+", "n"}]], "+", FractionBox["1", RowBox[{"3", "+", "n"}]], "+", FractionBox["1", RowBox[{"4", "+", "n"}]], "+", FractionBox["2", RowBox[{"5", "+", "n"}]], "-", FractionBox["10", RowBox[{"6", "+", "n"}]], "+", FractionBox["20", RowBox[{"7", "+", "n"}]], "+", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}]}], ")"}]}]}], "}"}]}], "}"}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Computed Solutions: ", Bold, Italic, Larger], {{ 0, -Sigma`Summation`Objects`Private`MyPochhammer[8, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n]}, { 1, Rational[35, 4] Sigma`Summation`Objects`Private`MyPochhammer[8, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] (( 1 + $CellContext`n)^(-1) + (2 + $CellContext`n)^(-1) + ( 3 + $CellContext`n)^(-1) + (4 + $CellContext`n)^(-1) + 2/(5 + $CellContext`n) - 10/(6 + $CellContext`n) + 20/(7 + $CellContext`n) + Sigma`Summation`Objects`Private`MySum[ Sigma`Summation`Objects`Private`i[1]^(-1), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}])}}], Editable->False]], "Print", CellChangeTimes->{3.65526684058622*^9}, CellLabel->"During evaluation of In[970]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Sigma Combined Solutions: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ FractionBox["35", "12"], " ", SubscriptBox[ RowBox[{"(", "8", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", FractionBox["3", RowBox[{"1", "+", "n"}]], "+", FractionBox["3", RowBox[{"2", "+", "n"}]], "+", FractionBox["3", RowBox[{"3", "+", "n"}]], "+", FractionBox["3", RowBox[{"4", "+", "n"}]], "+", FractionBox["6", RowBox[{"5", "+", "n"}]], "-", FractionBox["30", RowBox[{"6", "+", "n"}]], "+", FractionBox["60", RowBox[{"7", "+", "n"}]], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}], ")"}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Sigma Combined Solutions: ", Bold, Italic, Larger], Rational[35, 12] Sigma`Summation`Objects`Private`MyPochhammer[8, $CellContext`n] Sigma`Summation`Objects`Private`MyPower[-1, $CellContext`n] (-11 + 3/(1 + $CellContext`n) + 3/(2 + $CellContext`n) + 3/(3 + $CellContext`n) + 3/(4 + $CellContext`n) + 6/(5 + $CellContext`n) - 30/(6 + $CellContext`n) + 60/(7 + $CellContext`n) + 3 Sigma`Summation`Objects`Private`MySum[ Sigma`Summation`Objects`Private`i[1]^(-1), { Sigma`Summation`Objects`Private`i[1], 1, $CellContext`n}])], Editable->False]], "Print", CellChangeTimes->{3.655266840589797*^9}, CellLabel->"During evaluation of In[970]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms I: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"35", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "108"}], "+", RowBox[{"24426", " ", "n"}], "+", RowBox[{"45548", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"33329", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"12404", " ", SuperscriptBox["n", "4"]}], "+", RowBox[{"2498", " ", SuperscriptBox["n", "5"]}], "+", RowBox[{"260", " ", SuperscriptBox["n", "6"]}], "+", RowBox[{"11", " ", SuperscriptBox["n", "7"]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"6", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"7", "+", "n"}], ")"}]}]]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms I: ", Bold, Italic, Larger], Rational[-35, 12] (1 + $CellContext`n)^(-1) (2 + $CellContext`n)^(-1) ( 3 + $CellContext`n)^(-1) (4 + $CellContext`n)^(-1) ( 5 + $CellContext`n)^(-1) (6 + $CellContext`n)^(-1) ( 7 + $CellContext`n)^(-1) (-108 + 24426 $CellContext`n + 45548 $CellContext`n^2 + 33329 $CellContext`n^3 + 12404 $CellContext`n^4 + 2498 $CellContext`n^5 + 260 $CellContext`n^6 + 11 $CellContext`n^7)], Editable->False]], "Print", CellChangeTimes->{3.6552668405932903`*^9}, CellLabel->"During evaluation of In[970]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"Expansion of Partial Terms II: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ RowBox[{"-", FractionBox["385", "12"]}], "+", FractionBox["35", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}]}]], "+", FractionBox["35", RowBox[{"4", " ", RowBox[{"(", RowBox[{"2", "+", "n"}], ")"}]}]], "+", FractionBox["35", RowBox[{"4", " ", RowBox[{"(", RowBox[{"3", "+", "n"}], ")"}]}]], "+", FractionBox["35", RowBox[{"4", " ", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}]}]], "+", FractionBox["35", RowBox[{"2", " ", RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}]}]], "-", FractionBox["175", RowBox[{"2", " ", RowBox[{"(", RowBox[{"6", "+", "n"}], ")"}]}]], "+", FractionBox["175", RowBox[{"7", "+", "n"}]]}]}], SequenceForm["\[FilledRightTriangle] ", Style["Expansion of Partial Terms II: ", Bold, Italic, Larger], Rational[-385, 12] + Rational[35, 4]/(1 + $CellContext`n) + Rational[35, 4]/(2 + $CellContext`n) + Rational[35, 4]/(3 + $CellContext`n) + Rational[35, 4]/(4 + $CellContext`n) + Rational[35, 2]/(5 + $CellContext`n) + Rational[-175, 2]/(6 + $CellContext`n) + 175/(7 + $CellContext`n)], Editable->False]], "Print", CellChangeTimes->{3.655266840810608*^9}, CellLabel->"During evaluation of In[970]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ FractionBox["1", "108"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}]}], " ", RowBox[{"(", RowBox[{"327", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"118", "+", RowBox[{"11", " ", "n"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"5", "+", "n"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"Gamma", "[", RowBox[{"8", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"4", "+", "n"}], "]"}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula: ", Bold, Italic, Larger], Rational[1, 108] (-1)^$CellContext`n (-(4 + $CellContext`n) ( 327 + $CellContext`n (118 + 11 $CellContext`n)) Gamma[5 + $CellContext`n] + 3 Gamma[8 + $CellContext`n] HarmonicNumber[4 + $CellContext`n])], Editable->False]], "Print", CellChangeTimes->{3.655266840814139*^9}, CellLabel->"During evaluation of In[970]:="], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[FilledRightTriangle] \"\>", "\[InvisibleSpace]", StyleBox["\<\"FindSequenceFunction Sequence Formula \[Times] (n+4)!: \"\>", StripOnInput->False, FontSize->Larger, FontWeight->Bold, FontSlant->Italic], "\[InvisibleSpace]", RowBox[{ FractionBox["1", "108"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}]}], " ", RowBox[{"(", RowBox[{"327", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"118", "+", RowBox[{"11", " ", "n"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"6", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"7", "+", "n"}], ")"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"4", "+", "n"}], "]"}]}]}], ")"}]}]}], SequenceForm["\[FilledRightTriangle] ", Style["FindSequenceFunction Sequence Formula \[Times] (n+4)!: ", Bold, Italic, Larger], Rational[1, 108] (-1)^$CellContext`n (-(4 + $CellContext`n) ( 327 + $CellContext`n (118 + 11 $CellContext`n)) + 3 (5 + $CellContext`n) (6 + $CellContext`n) (7 + $CellContext`n) HarmonicNumber[4 + $CellContext`n])], Editable->False]], "Print", CellChangeTimes->{3.6552668408175383`*^9}, CellLabel->"During evaluation of In[970]:="] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["35", "12"], " ", SubscriptBox[ RowBox[{"(", "8", ")"}], "n"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", FractionBox["3", RowBox[{"1", "+", "n"}]], "+", FractionBox["3", RowBox[{"2", "+", "n"}]], "+", FractionBox["3", RowBox[{"3", "+", "n"}]], "+", FractionBox["3", RowBox[{"4", "+", "n"}]], "+", FractionBox["6", RowBox[{"5", "+", "n"}]], "-", FractionBox["30", RowBox[{"6", "+", "n"}]], "+", FractionBox["60", RowBox[{"7", "+", "n"}]], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox["1", SubscriptBox["\[Iota]", "1"]]}], ")"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "108"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}]}], " ", RowBox[{"(", RowBox[{"327", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"118", "+", RowBox[{"11", " ", "n"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"5", "+", "n"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"Gamma", "[", RowBox[{"8", "+", "n"}], "]"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"4", "+", "n"}], "]"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "108"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", "+", "n"}], ")"}]}], " ", RowBox[{"(", RowBox[{"327", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"118", "+", RowBox[{"11", " ", "n"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{"5", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"6", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"7", "+", "n"}], ")"}], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"4", "+", "n"}], "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.655266840821046*^9}, CellLabel->"Out[970]="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Alternate simplified forms of the right-hand-side sums in the congruences:\n \ n! ", StyleBox["\[Congruent] ", FontSize->14], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ TemplateBox[{RowBox[{ RowBox[{"2", "n"}], "+", "1"}],"i"}, "Binomial"], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "i"], " ", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}], "!"}]}]}], HoldForm], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.652959588343238*^9}], StyleBox[" ", FontSize->14], "(mod 2n+1)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.6529592131320877`*^9, 3.652959213194131*^9}, {3.652960218146283*^9, 3.652960233944098*^9}, 3.652964740963283*^9, {3.653250263401997*^9, 3.653250264983138*^9}, 3.6533293683747053`*^9, {3.653945960319646*^9, 3.653945962933387*^9}, {3.655266422662569*^9, 3.655266423056182*^9}, 3.6552676153775578`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Compute", " ", "and", " ", "solve", " ", StyleBox["a", FontSlant->"Plain"], " ", "recurrence", " ", "for", " ", "the", " ", "right"}], "-", "hand", "-", RowBox[{"side", " ", RowBox[{"(", "RHS", ")"}], " ", "sum", " ", "using", " ", "the", " ", StyleBox["Sigma", FontSlant->"Italic"], " ", "package", " ", RowBox[{"routines", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, 3.6533279354931803`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sum", "=", RowBox[{"SigmaSum", "[", RowBox[{ RowBox[{ RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"SigmaBinomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"SigmaFactorial", "[", "i", "]"}], "*", RowBox[{"SigmaFactorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenerateRecurrence", "[", RowBox[{"sum", ",", "n"}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rec", "=", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"recsol", "=", RowBox[{ RowBox[{"SolveRecurrence", "[", RowBox[{"rec", ",", RowBox[{"SUM", "[", "n", "]"}]}], "]"}], " ", "//", " ", "FS"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"recsol2", "=", RowBox[{"FindLinearCombination", "[", RowBox[{"recsol", ",", "sum", ",", "2"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552674338463507`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[45]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"16", "+", RowBox[{"11", " ", "n"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}]}, {"n"} }], ")"}], "."], ")"}], "2"], " ", RowBox[{"n", SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["n", "."]]}], "\[Equal]", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"SUM", "[", "n", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", RowBox[{"SUM", "[", RowBox[{"1", "+", "n"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.65526743438293*^9, 3.655267446873076*^9}, 3.655267599481082*^9}, CellLabel->"Out[46]="], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["5", "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], SubscriptBox["\[Iota]", "1"]]}], ")"}]}], "+", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]]}], ")"}]}], "-", RowBox[{ FractionBox["5", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], RowBox[{"1", "+", RowBox[{"3", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.65526743438293*^9, 3.655267446873076*^9}, 3.655267603071397*^9}, CellLabel->"Out[49]="] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{"formula1", "[", "n_", "]"}], ":=", RowBox[{"(", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}]}], "-", RowBox[{"10", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], SubscriptBox["\[Iota]", "1"]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]]}], ")"}]}], "-", RowBox[{"5", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}], "+", RowBox[{"32", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"1", "+", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]}, { SubscriptBox["\[Iota]", "1"]} }], ")"}], "."], ")"}], "2"], " ", RowBox[{ SubscriptBox["\[Iota]", "1"], SubscriptBox["!", "."]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox[ SubscriptBox["\[Iota]", "1"], "."]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], RowBox[{"1", "+", RowBox[{"3", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SSum", "[", "n_", "]"}], ":=", RowBox[{"Power", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sqrt", "[", RowBox[{"SSum", "[", "n", "]"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], RowBox[{"formula1", "[", "n", "]"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"27", ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "+", "1"}], ")"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", "n"}], "]"}], "/", "8"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"(", RowBox[{"8", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "^", "2"}], ")"}], "/", RowBox[{"Power", "[", RowBox[{"27", ",", "i"}], "]"}]}], "/", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", "i"}], "]"}]}], "/", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", "i"}], "]"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "10"}], "/", "i"}], "+", RowBox[{"1", "/", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "2"}], "]"}]}], "-", RowBox[{"5", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ")"}]}], "+", RowBox[{"32", "/", RowBox[{"(", RowBox[{ RowBox[{"3", "i"}], "+", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "+", "1"}], ")"}], "*", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"3", "n"}], "]"}], "/", "8"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}], "*", RowBox[{"(", RowBox[{"8", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "^", "3"}], ")"}], "/", RowBox[{"Factorial", "[", RowBox[{"3", "i"}], "]"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "10"}], "/", "i"}], "+", RowBox[{"1", "/", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "2"}], "]"}]}], "-", RowBox[{"5", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ")"}]}], "+", RowBox[{"32", "/", RowBox[{"(", RowBox[{ RowBox[{"3", "i"}], "+", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "27"}], ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", "n"}], "]"}], "/", "8"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920373568322*^9, 3.65526748250424*^9}, FontSize->10, Background->RGBColor[1, 0.85, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Simplfy", " ", "the", " ", "product", " ", "terms", " ", "to", " ", "ratios", " ", "of", " ", RowBox[{"factorials", ":", "\[IndentingNewLine]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], UnderscriptBox["i", "."]], " ", TagBox[ RowBox[{" ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], "i"], RowBox[{"(", RowBox[{"-", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}]]}], ")"}]}]}], DisplayForm]}]}]}], " ", "=", " ", RowBox[{ TagBox[ RowBox[{" ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], "i"], RowBox[{"(", FractionBox[ SubscriptBox["\[Iota]", "2"], RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"3", SubscriptBox["\[Iota]", "2"]}], "-", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"3", SubscriptBox["\[Iota]", "2"]}], "-", "2"}], ")"}]}]], ")"}]}]}], DisplayForm], " ", "=", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"i", "!"}], ")"}], "2"], RowBox[{ RowBox[{"(", RowBox[{"3", " ", "i"}], ")"}], "!"}]], " ", "and", " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}]}]}], " ", "=", " ", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{ RowBox[{"(", RowBox[{"3", " ", "n"}], ")"}], "!"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"n", "!"}], ")"}], "2"]]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653328676390934*^9, 3.6533287823173923`*^9}, 3.653328825801358*^9, { 3.653328868759058*^9, 3.653328883295418*^9}, {3.653328922144561*^9, 3.653328936146864*^9}, {3.653328996861312*^9, 3.653329038830925*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["\[Iota]", "2"]}], ")"}], " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{ SubscriptBox["\[Iota]", "2"], "\[Rule]", "i"}], ")"}]}], "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{"27", "-", FractionBox["6", SubscriptBox["\[Iota]", "1"]], "-", RowBox[{"27", " ", SubscriptBox["\[Iota]", "1"]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", " ", "i"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "i"}]}], ")"}], "*", RowBox[{"(", RowBox[{"3", " ", "i"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "//", " ", "FS"}], " ", "//", " ", "Expand"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655267528145465*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{"Collect", " ", "the", " ", "inner", " ", "sum", " ", RowBox[{"terms", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6533292557952642`*^9, 3.6533292636538467`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"-", "10"}], "/", "i"}], "+", RowBox[{"1", "/", RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "2"}], "]"}]}], "-", RowBox[{"5", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ")"}]}], "+", RowBox[{"32", "/", RowBox[{"(", RowBox[{ RowBox[{"3", "i"}], "+", "1"}], ")"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", RowBox[{ RowBox[{"(", "%%", ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "i"}], "+", "1"}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"11", " ", "i"}]}], ")"}]}], RowBox[{"i", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "i"}]}], ")"}], "2"]}]]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.6552675249132433`*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ "The", " ", "stated", " ", "expansions", " ", "cited", " ", "in", " ", "the", " ", RowBox[{"article", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6533292557952642`*^9, 3.6533292636538467`*^9}, {3.653329315827485*^9, 3.653329327524961*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"n", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", "n"}], "+", "1"}], "]"}], "/", "8"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}], "*", RowBox[{"(", RowBox[{"8", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "^", "3"}], ")"}], "/", RowBox[{"Factorial", "[", RowBox[{"3", "i"}], "]"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["10", "i"]}], "+", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "i"}]}], ")"}], "2"]], "-", FractionBox["5", RowBox[{"1", "+", RowBox[{"2", " ", "i"}]}]], "+", FractionBox["32", RowBox[{"1", "+", RowBox[{"3", " ", "i"}]}]]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", "n"}], "+", "1"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}]}], "+", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "/", "8"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "n"}], "+", "1"}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{"Factorial", "[", "i", "]"}], ")"}], RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"3", "i"}]}], ",", RowBox[{ RowBox[{"3", "n"}], "-", RowBox[{"3", "i"}]}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "^", "2"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["10", "i"]}], "+", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "i"}]}], ")"}], "2"]], "-", FractionBox["5", RowBox[{"1", "+", RowBox[{"2", " ", "i"}]}]], "+", FractionBox["32", RowBox[{"1", "+", RowBox[{"3", " ", "i"}]}]]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", "n"}], "+", "1"}], "]"}], "/", "8"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}], "*", RowBox[{"(", RowBox[{"8", "-", RowBox[{ RowBox[{"1", "/", "2"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "i", "]"}], "^", "3"}], ")"}], "/", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", "i"}], "+", "1"}], "]"}]}], "*", RowBox[{"(", RowBox[{"11", "+", RowBox[{"20", "/", "i"}], "-", RowBox[{"8", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ")"}]}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ")"}], "^", "2"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Factorial", "[", RowBox[{ RowBox[{"3", "n"}], "+", "1"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "^", "2"}], ")"}]}]}], "-", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "/", "16"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{"Factorial", "[", "i", "]"}], ")"}], RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "+", RowBox[{"3", "i"}]}], ",", RowBox[{ RowBox[{"3", "n"}], "-", RowBox[{"3", "i"}]}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", "i"}], ",", RowBox[{"n", "-", "i"}]}], "]"}], "^", "2"}], ")"}]}], "*", RowBox[{"(", RowBox[{"11", "+", RowBox[{"20", "/", "i"}], "-", RowBox[{"8", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ")"}]}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1"}], ")"}], "^", "2"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65526750288645*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Forms of \ the expansions of the Apery-like sums in the twin, cousin, andsexy prime \ congruence results obtained using Sigma:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.65296026607975*^9, 3.652960324489646*^9}, 3.652964742340252*^9, { 3.652964910698625*^9, 3.652964928674324*^9}, 3.6532502728947973`*^9, { 3.653352976763535*^9, 3.6533530112550697`*^9}, 3.653353619419825*^9, { 3.6552664199567423`*^9, 3.655266420382248*^9}, 3.6552667317562304`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Obtain", " ", "the", " ", "recurrence", " ", "solution", " ", "for", " ", "the", " ", "sums", " ", "generated", " ", "by", " ", RowBox[{ StyleBox["Sigma", FontSlant->"Italic"], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653353080844377*^9, 3.653353102719076*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sum", "=", RowBox[{"SigmaSum", "[", RowBox[{ RowBox[{ RowBox[{"SigmaPower", "[", RowBox[{ RowBox[{"SigmaBinomial", "[", RowBox[{"h", ",", "i"}], "]"}], ",", "1"}], "]"}], "*", RowBox[{"SigmaPochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"SigmaFactorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "n"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenerateRecurrence", "[", RowBox[{"sum", ",", "n"}], "]"}], " ", "//", " ", "FS"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rec", "=", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"recsol", "=", RowBox[{ RowBox[{"SolveRecurrence", "[", RowBox[{"rec", ",", RowBox[{"SUM", "[", "n", "]"}]}], "]"}], " ", "//", " ", "FS"}]}], "\[IndentingNewLine]", RowBox[{"recsol2", "=", RowBox[{"FindLinearCombination", "[", RowBox[{"recsol", ",", "sum", ",", "2"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266591937903*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[960]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h", "-", "n"}], ")"}], " ", RowBox[{"SUM", "[", RowBox[{"1", "+", "n"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h", "-", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"4", " ", "n"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", "n"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", GridBox[{ {"h"}, { RowBox[{"2", " ", "n"}]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "h"}], ")"}], RowBox[{"2", " ", "n"}]]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "n"}]}], ")"}]}]], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h", "-", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "n"}], ")"}]}]}], ")"}], " ", RowBox[{"SUM", "[", "n", "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.655266598366777*^9}, CellLabel->"Out[961]="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", "h"}]], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ {"h"}, { RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "h"}], ")"}], RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "2"]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"]}]], ")"}]}]}], RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ {"h"}, { RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "h"}], ")"}], RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "2"]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"]}]], ")"}]}]}], RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "h"}]}], ")"}], " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ {"h"}, { RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "h"}], ")"}], RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "2"]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"]}]], ")"}]}]}], RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}]]}], ")"}]}]}], ")"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.655266603670454*^9}, CellLabel->"Out[963]="], Cell[BoxData[ RowBox[{ RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]], ")"}]}], "+", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ {"h"}, { RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "h"}], ")"}], RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "2"]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"]}]], ")"}]}]}], RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", "h"}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ {"h"}, { RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "h"}], ")"}], RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "2"]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"]}]], ")"}]}]}], RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}]]}], ")"}]}], "h"], "-", FractionBox[ RowBox[{"h", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "h"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]], ")"}]}], ")"}], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Sum]", "."], RowBox[{ SubscriptBox["\[Iota]", "1"], "=", "1"}], "n"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ {"h"}, { RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]} }], ")"}], "."], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "h"}], ")"}], RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]], " ", RowBox[{ UnderoverscriptBox[ SuperscriptBox["\[Product]", "."], RowBox[{ SubscriptBox["\[Iota]", "2"], "=", "1"}], SubscriptBox["\[Iota]", "1"]], RowBox[{"(", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "2"]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"]}]], ")"}]}]}], RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}]]}], ")"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "h"}]]}]], "Output", CellChangeTimes->{3.655266603881094*^9}, CellLabel->"Out[964]="] }, Closed]], Cell[BoxData[ FormBox[ RowBox[{ "Simplify", " ", "the", " ", "products", " ", "and", " ", "collect", " ", "the", " ", "sum", " ", "terms", " ", "as", " ", RowBox[{"follows", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653353080844377*^9, 3.6533531353068523`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "1"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "1"]}], ")"}]}]], ")"}], "/.", RowBox[{"(", RowBox[{ SubscriptBox["\[Iota]", "1"], "\[Rule]", "i"}], ")"}]}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"(", "%", ")"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", "h", ")"}]}], "+", "1"}], ",", RowBox[{"2", "n"}]}], "]"}], ",", "2"}], "]"}], "/", RowBox[{"(", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", "h"}], ")"}]}], "+", "1"}], ",", RowBox[{"2", "n"}]}], "]"}], ")"}]}]}], "}"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"(", "%", ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"(", "%", ")"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", SubscriptBox["\[Iota]", "2"]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", SubscriptBox["\[Iota]", "2"]}]}], ")"}], "2"]}]], ")"}], "/.", RowBox[{"(", RowBox[{ SubscriptBox["\[Iota]", "2"], "\[Rule]", "j"}], ")"}]}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"(", "%", ")"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "i"}], "}"}]}], "]"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", "h", ")"}]}], "+", "1"}], ",", RowBox[{"2", "i"}]}], "]"}], ",", "2"}], "]"}], "/", RowBox[{"(", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", "h"}], ")"}]}], "+", "1"}], ",", RowBox[{"2", "i"}]}], "]"}], ")"}]}], ")"}]}]}], "}"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655266645706455*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{ RowBox[{"(", RowBox[{"h", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"h", "+", "1", "-", RowBox[{"2", "i"}]}], ")"}]}]}], "+", RowBox[{"2", "*", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"h", "+", "1"}], ")"}], "^", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "h"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", "h"}], "+", "1", "-", RowBox[{"2", "i"}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"h", "^", "2"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "+", "1"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "h"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"h", "-", "i"}], ")"}]}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"h", "*", RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"Plus", "@@", RowBox[{"Map", "[", RowBox[{"Factor", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"%", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "%", "]"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655266640571055*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ "Define", " ", "the", " ", "next", " ", "shorthand", " ", "functions", " ", "given", " ", "in", " ", "the", " ", "examples", " ", "from", " ", "the", " ", RowBox[{"article", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653353080844377*^9, 3.6533531353068523`*^9}, {3.653353200141458*^9, 3.653353221775589*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "SnhSum", ",", "T", ",", "H", ",", "TestSnhSumV1", ",", "TestSnhSumV2", ",", "GenPairCongruenceMod"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SnhSum", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", RowBox[{ RowBox[{"SnhSum", "[", RowBox[{"n", ",", "h"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "h"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "n"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "[", RowBox[{"h_", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"T", "[", RowBox[{"h", ",", "n"}], "]"}], "=", RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "h"}], ",", RowBox[{"2", " ", "n"}]}], "]"}], "2"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "h"}]}], ",", RowBox[{"2", " ", "n"}]}], "]"}]], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "[", RowBox[{"h_", ",", "i_"}], "]"}], ":=", RowBox[{ RowBox[{"H", "[", RowBox[{"h", ",", "i"}], "]"}], "=", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", "i"}]}], ")"}]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}]}], ")"}]}], RowBox[{"h", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", "i"}]}], ")"}]}]], "-", FractionBox[ RowBox[{"h", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "h"}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", "i"}], ")"}]}]]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "[", RowBox[{"h_", ",", "n_", ",", "i_"}], "]"}], ":=", RowBox[{ RowBox[{"T", "[", RowBox[{"h", ",", "n", ",", "i"}], "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "h", "+", RowBox[{"2", "i"}]}], ",", RowBox[{"2", RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}]}]}], "]"}], ",", "2"}], "]"}], "/", RowBox[{"(", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", "h"}], "+", RowBox[{"2", "i"}]}], ",", RowBox[{"2", RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}]}]}], "]"}], ")"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TestSnhSumV1", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", RowBox[{ RowBox[{"TestSnhSumV1", "[", RowBox[{"n", ",", "h"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", RowBox[{"2", "i"}]}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "i"}], "]"}], "*", RowBox[{ RowBox[{"T", "[", RowBox[{"h", ",", "n"}], "]"}], "/", RowBox[{"T", "[", RowBox[{"h", ",", "i"}], "]"}]}], "*", RowBox[{"H", "[", RowBox[{"h", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TestSnhSumV2", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", RowBox[{ RowBox[{"TestSnhSumV2", "[", RowBox[{"n", ",", "h"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", RowBox[{"2", "i"}]}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "i"}], "]"}], "*", RowBox[{"H", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"T", "[", RowBox[{"h", ",", "n", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenPairCongruenceMod", "[", RowBox[{"n_", ",", "d_", ",", "a_", ",", "b_", ",", "c_", ",", RowBox[{"modOffset_:", "-", "1"}]}], "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"TestSnhSumV2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", RowBox[{"2", "*", "d"}]}], ")"}]}]}], "]"}]}], "+", RowBox[{"b", "*", "n"}], "+", "c"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", RowBox[{"2", "*", "d"}]}], ")"}]}], ",", "modOffset"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655266671546977*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Verify", " ", "the", " ", "computed", " ", "expansions", " ", "match", " ", "the", " ", "original", " ", "input", " ", RowBox[{"sum", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653353080844377*^9, 3.6533531353068523`*^9}, {3.653353200141458*^9, 3.653353221775589*^9}, {3.653353284389167*^9, 3.65335329912424*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"SnhSum", "[", RowBox[{"n", ",", "h"}], "]"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"TestSnhSumV1", "[", RowBox[{"n", ",", "h"}], "]"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"SnhSum", "[", RowBox[{"n", ",", "h"}], "]"}], "]"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"TestSnhSumV2", "[", RowBox[{"n", ",", "h"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"TestSnhSumV2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}]}], "]"}]}], "+", RowBox[{"2", "n"}], "+", "5"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"96", "*", RowBox[{"TestSnhSumV2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "5"}], ")"}]}]}], "]"}]}], "+", RowBox[{"46", "n"}], "+", "119"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "5"}], ")"}]}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"4320", "*", RowBox[{"TestSnhSumV2", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "7"}], ")"}]}]}], "]"}]}], "+", RowBox[{"1438", "n"}], "+", "5039"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "7"}], ")"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "12"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552667127628813`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Resulting", " ", "congruence", " ", "for", " ", "the", " ", "twin", " ", RowBox[{"primes", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653353080844377*^9, 3.6533531353068523`*^9}, {3.653353200141458*^9, 3.653353221775589*^9}, {3.653353284389167*^9, 3.65335329912424*^9}, { 3.653353358404442*^9, 3.653353366407567*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "105"}], ";", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"4", "*", "nupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"#1", "+", RowBox[{"2", "*", "d"}]}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{"2", "*", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", RowBox[{"2", "*", "d"}]}], "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"GenPairCongruenceMod", "[", RowBox[{"n", ",", "d", ",", "a", ",", "b", ",", "c"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266692350534*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Resulting", " ", "congruence", " ", "for", " ", "the", " ", "cousin", " ", RowBox[{"primes", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653353080844377*^9, 3.6533531353068523`*^9}, {3.653353200141458*^9, 3.653353221775589*^9}, {3.653353284389167*^9, 3.65335329912424*^9}, { 3.653353358404442*^9, 3.653353385548759*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "105"}], ";", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"2", ",", "96", ",", "46", ",", "119"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"4", "*", "nupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"#1", "+", RowBox[{"2", "*", "d"}]}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{"2", "*", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", RowBox[{"2", "*", "d"}]}], "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"GenPairCongruenceMod", "[", RowBox[{"n", ",", "d", ",", "a", ",", "b", ",", "c"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552666974599*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Resulting", " ", "congruence", " ", "for", " ", "the", " ", "sexy", " ", "prime", " ", RowBox[{"pairs", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653353080844377*^9, 3.6533531353068523`*^9}, {3.653353200141458*^9, 3.653353221775589*^9}, {3.653353284389167*^9, 3.65335329912424*^9}, { 3.653353358404442*^9, 3.65335339318787*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "105"}], ";", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"3", ",", "4320", ",", "1438", ",", "5039"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"4", "*", "nupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{"#1", "+", RowBox[{"2", "*", "d"}]}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeTupleCondFn", "[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ",", RowBox[{"2", "*", "d"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "n"}], "+", "1", "+", RowBox[{"2", "*", "d"}]}], "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]}], "]"}], ",", RowBox[{"GenPairCongruenceMod", "[", RowBox[{"n", ",", "d", ",", "a", ",", "b", ",", "c"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266703479485*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Harmonic-number-related sums in the previous example: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, { 3.65296026607975*^9, 3.652960417778659*^9}, {3.652960490002453*^9, 3.6529605153419647`*^9}, 3.6529647439504023`*^9, {3.653250274906534*^9, 3.6532502796048613`*^9}, {3.653353634900227*^9, 3.653353650735654*^9}, { 3.653353733085952*^9, 3.653353734251355*^9}, 3.6533585897898684`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"FormulaGrid", "[", RowBox[{"list_", ",", "type_"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Transpose", "@", RowBox[{"{", "list", "}"}]}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Automatic"}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{ RowBox[{"Blend", "[", RowBox[{"Switch", "[", RowBox[{"type", ",", "M", ",", RowBox[{"{", RowBox[{"Blue", ",", "Green"}], "}"}], ",", "CM", ",", RowBox[{"{", RowBox[{"Red", ",", "Orange"}], "}"}], ",", "FM", ",", RowBox[{"{", RowBox[{"Magenta", ",", "Cyan"}], "}"}], ",", "C", ",", RowBox[{"{", RowBox[{"Purple", ",", "Red"}], "}"}]}], "]"}], "]"}], ",", ".8"}], "]"}], ",", "White"}], "}"}], "}"}]}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Gray", ",", ".6"}], "]"}], ",", RowBox[{"{", "False", "}"}], ",", RowBox[{"Darker", "[", RowBox[{"Gray", ",", ".6"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FormulaGrid", "[", "tblData_", "]"}], ":=", RowBox[{"FormulaGrid", "[", RowBox[{"tblData", ",", "M"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655266394838311*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"H", "[", RowBox[{"h_", ",", "i_"}], "]"}], ":=", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"4", " ", "i"}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"2", " ", "i"}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", "i"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", "i"}]}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", "i"}], ")"}]}]], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"h_", ",", "n_", ",", "i_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "h", "+", RowBox[{"2", "i"}]}], ",", RowBox[{"2", RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}]}]}], "]"}], ",", "2"}], "]"}], "/", RowBox[{"(", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", "h"}], "+", RowBox[{"2", "i"}]}], ",", RowBox[{"2", RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}]}]}], "]"}], ")"}]}], ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nupper", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "i"}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "n"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "n"}]}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", RowBox[{"2", "i"}]}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "i"}], "]"}], "*", RowBox[{"H", "[", RowBox[{"h", ",", "i"}], "]"}], "*", RowBox[{"T", "[", RowBox[{"h", ",", "n", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Apart", "[", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", RowBox[{"2", "i"}]}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "i"}], "]"}], "*", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", "i"}]}], ")"}]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}]}], ")"}]}], RowBox[{"h", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", "i"}]}], ")"}]}]], "-", FractionBox[ RowBox[{"h", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "h"}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", "i"}], ")"}]}]]}], ")"}], "*", RowBox[{"T", "[", RowBox[{"h", ",", "n", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", RowBox[{"2", "i"}]}], "]"}], ",", "2"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "i"}], "]"}], "*", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{"1", "+", "h", "-", RowBox[{"2", " ", "i"}]}], ")"}]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}]}], ")"}]}], RowBox[{"h", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "h"}], "-", RowBox[{"2", " ", "i"}]}], ")"}]}]], "-", FractionBox[ RowBox[{"h", " ", RowBox[{"(", RowBox[{"1", "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "h"}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "h"}], ")"}], " ", RowBox[{"(", RowBox[{"h", "-", "i"}], ")"}]}]]}], ")"}], "*", RowBox[{"T", "[", RowBox[{"h", ",", "n", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "FormulaGrid"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655266409941515*^9}, FontSize->10, Background->RGBColor[1, 0.9, 0.8]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Other examples and notable \ applications of Wilson\[CloseCurlyQuote]s theorem:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799363405694*^9}, {3.654799769608479*^9, 3.654799806827086*^9}, { 3.655258623800015*^9, 3.655258625424732*^9}, 3.6552639596553802`*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Factorial Primes:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.653287851928153*^9, 3.653287854803001*^9}, 3.6532905499278316`*^9, 3.655258670817256*^9, 3.6552638087618933`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "expected", " ", "factorial", " ", "prime", " ", "sequence", " ", RowBox[{"members", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653290393065089*^9, 3.65329041108934*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "+", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "True"}], "&"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "-", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "True"}], "&"}]}], "]"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263786326181*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "congruences", " ", "for", " ", "prime", " ", "elements", " ", "of", " ", "the", " ", "form", " ", "p"}], ":=", RowBox[{ RowBox[{ RowBox[{"n", "!"}], "+", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653290393065089*^9, 3.653290424061317*^9}, {3.653290463871148*^9, 3.653290484596281*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "100"}], ";", RowBox[{"expectedPrimesList", "=", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "+", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "True"}], "&"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nupper", "=", "5"}], ";", RowBox[{"fprimes", "=", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "+", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "True"}], "&"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"n", "!"}], "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", "n", "]"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "+", "1"}], "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "!"}], "+", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"n", "!"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "!"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "!"}], "+", "1"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263790708222*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "congruences", " ", "for", " ", "prime", " ", "elements", " ", "of", " ", "the", " ", "form", " ", "p"}], ":=", RowBox[{ RowBox[{ RowBox[{"n", "!"}], "-", "1"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653290393065089*^9, 3.653290424061317*^9}, {3.653290463871148*^9, 3.653290491532248*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "100"}], ";", RowBox[{"expectedPrimesList", "=", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "-", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "True"}], "&"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nupper", "=", "7"}], ";", RowBox[{"fprimes", "=", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "-", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#1", "]"}], "\[Equal]", "True"}], "&"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"n", "!"}], "-", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Factorial", "[", "n", "]"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"n", "!"}], "-", "1"}], "]"}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"n", "!"}], "-", "1"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"n", "!"}], "-", "2", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"n", "!"}], "-", "2"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"n", "!"}], "-", "1"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"n", ",", "\"\< of \>\"", ",", " ", "nupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552638004900208`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Fermat Primes:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.653287859658847*^9, 3.653287862843734*^9}, 3.6532909260979977`*^9, 3.655258672159464*^9, 3.655263883784471*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{"Compute", " ", "expected", " ", "sequence", " ", RowBox[{"elements", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65329061002969*^9, 3.653290617448004*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}]}], "]"}], "+", "1"}], "]"}], ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}]}], "]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552638328069344`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Verify", " ", "the", " ", "iterated", " ", "factorial", " ", "function", " ", "expansions", " ", "of", " ", "the", " ", "single", " ", "factorial", " ", "function"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"(", SuperscriptBox["2", SuperscriptBox["2", "n"]], ")"}], "!"}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.65329061002969*^9, 3.653290617448004*^9}, {3.6532906876587543`*^9, 3.6532907061927853`*^9}, {3.653290742162508*^9, 3.653290750895533*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "n"}], "-", "1"}], ")"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "n"}], "-", "1"}], ")"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "-", "1"}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "6"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552638422152042`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "n"}], "-", "1"}], ")"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "n"}], "-", "1"}], ")"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "-", "1"}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263845980578*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"3", "/", "4"}], "*", RowBox[{"(", RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], ")"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "n"}], "-", "2"}], ")"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}], "-", "1"}], ")"}]}], "-", "1"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "-", "1"}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263853948451*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"7", "/", "8"}], "*", RowBox[{"(", RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], ")"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "n"}], "-", "3"}], ")"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}], "-", "2"}], ")"}]}], "-", "1"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}], "-", "1"}], ")"}]}], "-", "1"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"2", "^", "n"}], ")"}]}], "-", "1"}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552638609097023`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"h", "-", "1"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "/", "2"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{"h", "-", "2"}], "]"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"h", "\[Rule]", RowBox[{"m", "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "^", "n"}]}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "6"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263864467708*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"h", "-", "1"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", RowBox[{"3", "/", "4"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "/", "4"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "3"}], ")"}], "/", "2"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{"h", "-", "2"}], "]"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"h", "\[Rule]", RowBox[{"m", "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "^", "n"}]}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263871220961*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"h", "-", "1"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "*", RowBox[{"7", "/", "8"}]}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "1"}], ")"}], "/", "8"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "5"}], ")"}], "/", "4"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"(", RowBox[{"h", "-", "3"}], ")"}], "/", "2"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{"h", "-", "2"}], "]"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"h", "\[Rule]", RowBox[{"m", "+", "1"}]}], ")"}]}], "/.", RowBox[{"(", RowBox[{"m", "\[Rule]", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"2", "^", "n"}]}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263874596538*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Mersenne primes:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.653287816183086*^9, 3.6532878335080423`*^9}, 3.653290321215726*^9, 3.655258673198534*^9, 3.6552639179198008`*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "congruences", " ", "for", " ", "the", " ", "Mersenne", " ", RowBox[{"primes", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529860186162443`*^9, 3.652986040796287*^9}, {3.6532746190191517`*^9, 3.65327462069193*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "13"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"2", "*", "pupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "#1"}], "]"}], "-", "1"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"p", ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], "]"}], "&"}]}], "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ",", RowBox[{"PrimeQ", "[", "p", "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", "p", "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", "p"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SgFactCong1", "[", "p", "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}], "]"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "+", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}], "]"}], "+", "1"}], ",", RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SgFactCong2", "[", "p", "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}]}], "]"}], "*", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}]}], "]"}]}], "+", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}]}], "]"}], "+", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}]}], "]"}], "+", "1"}], ",", RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SgFactCong3", "[", "p", "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{"p", "-", "1"}], ",", "1", ",", "1"}], "]"}], "*", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}], ",", "1", ",", "1"}], "]"}]}], "+", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{"p", "-", "1"}], ",", "1", ",", "1"}], "]"}], "+", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}], ",", "1", ",", "1"}], "]"}], "+", "1"}], ",", RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DblFactCong4", "[", "p", "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "^", "p"}], "-", "2"}], "]"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], "-", "1"}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", "p", ")"}]}], "-", "3"}], "]"}]}], "+", "1"}], ",", RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"p", ",", "\"\< of \>\"", ",", " ", "pupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552639007154827`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "13"}], ";", RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"2", "*", "pupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "#1"}], "]"}], "-", "1"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"p", ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], "]"}], "&"}]}], "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ",", RowBox[{"PrimeQ", "[", "p", "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", "p", "]"}], "&&", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", "p"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cong4SumExp1", "[", "p", "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "2", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "2"}]}], "}"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1"}]}], "}"}]}], "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "^", RowBox[{"(", "p", ")"}]}], "-", "3"}], "]"}]}], "+", "1"}], ",", RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "modOffset"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cong4SumExp2", "[", "p", "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "2", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "2"}]}], "}"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"p", "-", "1"}], ")"}]}], "-", "1"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "*", RowBox[{"Factorial", "[", "i", "]"}], "*", RowBox[{"Factorial", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1"}]}], "}"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1"}], ")"}]}], ",", "i"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1"}], ")"}], "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1", "+", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"p", "-", "1"}]}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], "+", "1"}], ",", RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "^", "p"}], "-", "1"}], ")"}]}], ",", "modOffset"}], "]"}], ",", RowBox[{"PrintTemporary", "[", RowBox[{"p", ",", "\"\< of \>\"", ",", " ", "pupper"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263908580422*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Sophie Germain primes:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, 3.653287822507716*^9, 3.6552586741108828`*^9, 3.655263952599859*^9}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "congruences", " ", "for", " ", "the", " ", "Sophie", " ", "Germain", " ", RowBox[{"primes", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529860186162443`*^9, 3.652986040796287*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"primePairQ", "=", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "#1"}], "+", "1"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeCondFn", "=", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"#1", ",", "primePairQ"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"modulusFn", "=", RowBox[{ RowBox[{"(", RowBox[{"#1", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "#1"}], "+", "1"}], ")"}]}], ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pupper", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"2", "*", "pupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"primePairQ", "[", "#1", "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "p", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{ RowBox[{"2", "p"}], "+", "1"}], ",", RowBox[{"PrimeQ", "[", "p", "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", "p", "]"}], "&&", RowBox[{"primePairQ", "[", "p", "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", "p"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"2", " ", "p"}], "]"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "+", RowBox[{"Factorial", "[", RowBox[{"2", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "^", "p"}], ")"}], "*", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"Factorial", "[", "p", "]"}], "*", RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", " ", "p"}], "-", "1"}], "]"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "+", RowBox[{"Factorial", "[", RowBox[{"2", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655263934586666*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[940]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Remarks on expansions of \ congruences involving sequences of binomials:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799363405694*^9}, {3.6547998427152*^9, 3.654799871076695*^9}, 3.655258923718279*^9, 3.655264072184044*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Tables", " ", "of", " ", "the", " ", "congruences", " ", "for", " ", "powers", " ", "of", " ", "2", " ", "modulo", " ", RowBox[{"n", "^", "2"}]}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655264007011901*^9, 3.655264021092868*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "64"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "1"}]}], "]"}], ",", RowBox[{"n", "^", "2"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S2", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "k"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "i"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"n", "-", "1", "-", "k", "-", "i"}]}], "]"}], "*", RowBox[{"(", RowBox[{"i", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1", "-", "i"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"n", "^", "2"}], ",", "0"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "1"}]}], "]"}], "-", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S2", "[", RowBox[{"i", ",", "j"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "m"}], "]"}], "^", "2"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"i", "-", "j", "+", "m"}]}], "]"}], "*", RowBox[{"(", RowBox[{"m", "!"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"j", "+", "1", "-", "m"}], ")"}], "!"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "i"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"j", "+", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"n", "^", "2"}], ",", "0"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "-", "1"}]}], "]"}], "-", "1"}], ",", RowBox[{"n", "^", "2"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"S2", "[", RowBox[{"i", ",", "j"}], "]"}], RowBox[{"(", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "^", "2"}], ",", "m"}], "]"}], ")"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"i", "-", "j", "+", "m"}]}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "+", "1"}], ",", "m"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"2", ",", RowBox[{"j", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "i"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "j"}], "}"}]}], "]"}], ",", RowBox[{"n", "^", "2"}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552640252166147`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Tables", " ", "of", " ", "the", " ", "congruences", " ", "for", " ", "powers", " ", "of", " ", "3"}], ":"}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655264007011901*^9, 3.655264021092868*^9}, { 3.65526405537387*^9, 3.655264059372123*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"tupper", "=", "75"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", RowBox[{ RowBox[{"2", "t"}], "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "t"}], ",", RowBox[{"IsPrimeQ", "\[Rule]", RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "t"}], "+", "1"}], "]"}]}], ",", RowBox[{"Pow2Q", "\[Rule]", RowBox[{"IntegerQ", "[", RowBox[{"Log", "[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"3", ",", "t"}], "]"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "t"}], "+", "1"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "t"}], "+", "1"}], ",", "j"}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{ RowBox[{"2", "t"}], "+", "3"}], ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"t", "-", "i", "-", "j"}]}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{"3", ",", RowBox[{"i", "-", "j"}]}], "]"}], "*", RowBox[{"S2", "[", RowBox[{"t", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "i"}], "}"}]}], "]"}], "+", "1"}], ",", RowBox[{ RowBox[{"2", "t"}], "+", "1"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", "t"}], "+", "1"}], ",", "j"}], "]"}], "*", RowBox[{"FallingFactorial", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"2", "t"}], "+", "1"}], ")"}], "-", "3"}], ")"}]}], ",", "j"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "-", "i", "-", "j"}]}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{"3", ",", RowBox[{"i", "-", "j"}]}], "]"}], "*", RowBox[{"S2", "[", RowBox[{"m", ",", "i"}], "]"}], "*", "4"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "i"}], "}"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"t", "-", "1", "-", "m"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"t", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"2", "t"}], "+", "1"}], ",", "0"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "tupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.654941013549844*^9, 3.6549410162831917`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[500]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] More general expansions by \ multiple factorial functions and generalized harmonic number sequences:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.653248784859682*^9, 3.654789050132121*^9, 3.654789463470936*^9, { 3.654789713294509*^9, 3.654789735503262*^9}, 3.654789886408168*^9, { 3.654799100434842*^9, 3.6547991100181093`*^9}, {3.654799347759118*^9, 3.654799363405694*^9}, {3.654799917535431*^9, 3.654799948184597*^9}, 3.655258925562696*^9, 3.655264403722412*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Expansions of the factorial-related congruence results by more general cases \ of the \[Alpha]-factorial functions and corresponding Pochhammer symbol \ representations of these functions: \ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.6552641086561823`*^9, 3.655264111142972*^9}, {3.655264188798242*^9, 3.65526419034527*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Compute", " ", "examples", " ", "of", " ", "the", " ", "congruence", " ", "results", " ", "for", " ", "the", " ", "generalized", " ", "Sophie", " ", "Germain", " ", "prime", " ", RowBox[{"sequences", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.652985851720606*^9, 3.6529858909346046`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"primePairQ", "=", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"4", "#1"}], "+", "1"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeCondFn", "=", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"#1", ",", "primePairQ"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"modulusFn", "=", RowBox[{ RowBox[{"(", RowBox[{"#1", "*", RowBox[{"(", RowBox[{ RowBox[{"4", "#1"}], "+", "1"}], ")"}]}], ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pupper", "=", "128"}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"2", "*", "pupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"primePairQ", "[", "#1", "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "p", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"PrimeQ", "[", "p", "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", "p", "]"}], "&&", RowBox[{"primePairQ", "[", "p", "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", "p"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"4", " ", "p"}], "]"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "+", RowBox[{"Factorial", "[", RowBox[{"4", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{"4", "p"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", "p"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", "p"}], "-", "2"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"4", ",", RowBox[{ RowBox[{"4", "p"}], "-", "3"}]}], "]"}]}], "+", "1"}], ")"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"4", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"4", ",", RowBox[{"4", "p"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"1", ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "4"}], ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "p"}], "]"}]}], "+", "1"}], ")"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"4", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264142192912*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"primePairQ", "=", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"6", "#1"}], "+", "1"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PrimeCondFn", "=", RowBox[{ RowBox[{"PrimePairCondFn", "[", RowBox[{"#1", ",", "primePairQ"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"modulusFn", "=", RowBox[{ RowBox[{"(", RowBox[{"#1", "*", RowBox[{"(", RowBox[{ RowBox[{"6", "#1"}], "+", "1"}], ")"}]}], ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"modOffset", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pupper", "=", "111"}], ";"}], "\[IndentingNewLine]", RowBox[{"expectedPrimesList", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"2", "*", "pupper"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", "#1", "]"}], "&&", RowBox[{"primePairQ", "[", "#1", "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"PrimeCondFn", "[", "p", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "p"}], ",", RowBox[{"PrimeQ", "[", "p", "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", "p", "]"}], "&&", RowBox[{"primePairQ", "[", "p", "]"}]}], ",", RowBox[{"MemberQ", "[", RowBox[{"expectedPrimesList", ",", "p"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"Factorial", "[", RowBox[{"6", " ", "p"}], "]"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "+", RowBox[{"Factorial", "[", RowBox[{"6", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{"6", "p"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "p"}], "-", "1"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "p"}], "-", "2"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "p"}], "-", "3"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "p"}], "-", "4"}]}], "]"}], "*", RowBox[{"AlphaFactorial", "[", RowBox[{"6", ",", RowBox[{ RowBox[{"6", "p"}], "-", "5"}]}], "]"}]}], "+", "1"}], ")"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"6", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"6", "p"}], "+", "1"}], ")"}]}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Product", "[", RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"6", "p"}], "+", "1"}], ")"}]}], ",", "p", ",", RowBox[{"-", "6"}], ",", RowBox[{ RowBox[{"6", "p"}], "-", "i"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "5"}], "}"}]}], "]"}]}], ")"}]}], "+", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"6", "p"}], "+", "1"}], ")"}]}], ",", RowBox[{"6", "p"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"6", "p"}]}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"p", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"6", ",", RowBox[{"6", "p"}]}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{"1", ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "6"}], ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", "p"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"5", "/", "6"}], ",", "p"}], "]"}]}], "+", "1"}], ")"}]}], "+", RowBox[{"Factorial", "[", RowBox[{"6", " ", "p"}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"6", "p"}], "+", "1"}], ")"}]}], ",", RowBox[{"p", "-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"Power", "[", RowBox[{"6", ",", RowBox[{"6", "p"}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"6", "p"}], "+", "1"}], ")"}]}], ",", "p", ",", "6", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{"ChnV2", "[", RowBox[{ RowBox[{"p", "*", RowBox[{"(", RowBox[{ RowBox[{"6", "p"}], "+", "1"}], ")"}]}], ",", RowBox[{"6", "p"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"6", "p"}]}], "]"}]}], ")"}], "+", "1"}], ",", RowBox[{"modulusFn", "[", "p", "]"}], ",", "modOffset"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "1", ",", "pupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264153111434*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Expansions of the generalized Stirling number triangles, ", Cell[BoxData[ SubscriptBox[ RowBox[{"[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"]], "Input", CellChangeTimes->{{3.652522719031412*^9, 3.652522748157557*^9}}], ", by the particular cases of the generalized harmonic number sequences, ", Cell[BoxData[ FormBox[ TemplateBox[{RowBox[{"n", ",", "\[Alpha]"}],"r"}, "HarmonicNumber2"], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6529571842292128`*^9}], ", defined by the article:" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.6525397551281652`*^9, 3.652539766717868*^9}, {3.652539800524658*^9, 3.652539800677094*^9}, {3.652539853297801*^9, 3.6525399132029047`*^9}, { 3.65254003959173*^9, 3.652540047102107*^9}, {3.652540124599002*^9, 3.652540130296814*^9}, 3.652540180519198*^9, {3.65254029158779*^9, 3.652540326170019*^9}, {3.652540409653314*^9, 3.6525404552177277`*^9}, { 3.6525405389980993`*^9, 3.652540602176321*^9}, {3.652540720316152*^9, 3.6525407558114433`*^9}, {3.65254081704329*^9, 3.6525408174811068`*^9}, 3.653249512039035*^9, 3.654790709174559*^9, {3.655264185297971*^9, 3.655264202522451*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ FormBox[ StyleBox[ RowBox[{ RowBox[{ "The", " ", "special", " ", "case", " ", "expansions", " ", "of", " ", "the", " ", "coefficients"}], ",", RowBox[{ RowBox[{ SubscriptBox[ RowBox[{"[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"], SubscriptBox[ RowBox[{"and", "[", GridBox[{ {"n"}, {"k"} }], "]"}], "2"]}], ":"}]}], FontWeight->"Bold"], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ "Compute", " ", "particular", " ", "cases", " ", "of", " ", "the", " ", "expansion", " ", "identitiy", " ", "involving", " ", "the", " ", "r"}], "-", RowBox[{"order", " ", "harmonic", " ", "number", " ", RowBox[{"sequences", ":", " "}]}]}], TraditionalForm]}], "DisplayFormula",\ PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529620616664333`*^9, 3.65296209167244*^9}, {3.655264233499093*^9, 3.6552642341316338`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"\[Alpha]", " ", "z"}]}], ",", RowBox[{"1", "-", RowBox[{"1", "/", "\[Alpha]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.6552643050702877`*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "12"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"hn", "[", RowBox[{"r", ",", "n"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ",", RowBox[{"-", "r"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", "n"}], ",", "r"}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"-", "r"}]}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "r"}], "]"}]}]}], ")"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264308103837*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Expansions", " ", "corresponding", " ", "to", " ", "the", " ", "first", " ", "few", " ", "coefficient", " ", RowBox[{"cases", ":", " "}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529620616664333`*^9, 3.65296209167244*^9}, {3.652962149538402*^9, 3.652962174584095*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", "n"}], ",", "r"}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"-", "r"}]}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "r"}], "]"}]}]}], ")"}], "/.", RowBox[{"(", RowBox[{"r", "\[Rule]", "1"}], ")"}]}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655264324034276*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"HarmonicNumber", "[", "n", "]"}], "2"]}], "+", RowBox[{"HarmonicNumber", "[", RowBox[{"2", " ", "n"}], "]"}]}], ")"}], "^", "2"}], "-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", "n"}], ",", "r"}], "]"}], "-", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"-", "r"}]}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "r"}], "]"}]}]}], ")"}], "/.", RowBox[{"(", RowBox[{"r", "\[Rule]", "2"}], ")"}]}], ")"}]}], " ", "//", " ", "Expand"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9, 3.655264327094223*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "coefficient", " ", "expansions", " ", "when", " ", "k"}], " ", ":=", " ", RowBox[{"2", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529620616664333`*^9, 3.65296209167244*^9}, {3.652962149538402*^9, 3.652962174584095*^9}, {3.652962243711495*^9, 3.652962271857087*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", RowBox[{"n", "+", "1"}], ",", "2"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "1"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"1", "/", "a"}]}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"(", RowBox[{"(", RowBox[{"HarmonicNumber", "[", RowBox[{"n", "-", "k"}], "]"}], ")"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "a"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1", "+", RowBox[{"1", "/", "a"}]}], ",", "n"}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264354633793*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"Fcf", "[", RowBox[{"2", ",", RowBox[{"n", "+", "1"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"HarmonicNumber", "[", "n", "]"}], "2"]}], "+", RowBox[{"HarmonicNumber", "[", RowBox[{"2", " ", "n"}], "]"}]}], ")"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "n"}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}]}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"HarmonicNumber", "[", "n", "]"}], "2"]}], "+", RowBox[{"HarmonicNumber", "[", RowBox[{"2", " ", "n"}], "]"}]}], ")"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264358378141*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "coefficient", " ", "expansions", " ", "when", " ", "k"}], " ", ":=", " ", RowBox[{"3", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529620616664333`*^9, 3.65296209167244*^9}, {3.652962149538402*^9, 3.652962174584095*^9}, {3.652962276357255*^9, 3.652962284207255*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", RowBox[{"n", "+", "1"}], ",", "3"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "2"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"1", "/", "a"}]}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"HarmonicNumber", "[", RowBox[{"n", "-", "k"}], "]"}], "^", "2"}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", "2"}], "]"}]}], ")"}], "/", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "a"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "2"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}], "^", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ")"}], "/", "2"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1", "+", RowBox[{"1", "/", "a"}]}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "2"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}], "^", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ")"}], "/", "2"}]}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655264365182475*^9, 3.6552643673408957`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"Fcf", "[", RowBox[{"2", ",", RowBox[{"n", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}], "^", "2"}], "-", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "2"}], "]"}]}], ")"}], "/", "2"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}], "^", "2"}], "-", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "2"}], "]"}]}], ")"}], "/", "2"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"HarmonicNumber", "[", "n", "]"}], "2"]}], "+", RowBox[{"HarmonicNumber", "[", RowBox[{"2", " ", "n"}], "]"}]}], ")"}], "2"], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "2"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "2"}], "]"}]}], ")"}], "/", "2"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "n"}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"n", "+", "1"}]}], "]"}]}], "*", RowBox[{"Factorial", "[", "n", "]"}], "*", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"HarmonicNumber", "[", "n", "]"}], "2"]}], "+", RowBox[{"HarmonicNumber", "[", RowBox[{"2", " ", "n"}], "]"}]}], ")"}], "2"], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "2"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "2"}], "]"}]}], ")"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552643745914507`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Compute", " ", "tables", " ", "of", " ", "the", " ", "coefficient", " ", "expansions", " ", "when", " ", "k"}], " ", ":=", " ", RowBox[{"4", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529620616664333`*^9, 3.65296209167244*^9}, {3.652962149538402*^9, 3.652962174584095*^9}, {3.652962276357255*^9, 3.6529622863399773`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Fcf", "[", RowBox[{"a", ",", RowBox[{"n", "+", "1"}], ",", "4"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", RowBox[{"n", "-", "3"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"1", "/", "a"}]}], ",", "k"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "k"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"HarmonicNumber", "[", RowBox[{"n", "-", "k"}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"HarmonicNumber", "[", RowBox[{"n", "-", "k"}], "]"}], "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", "2"}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", "3"}], "]"}]}]}], ")"}], "/", "6"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "a"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}], "^", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}], "^", "3"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ")"}], "/", "6"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"a", ",", "n"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"n", "-", "1", "+", RowBox[{"1", "/", "a"}]}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}], "^", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "k"}], "+", "1", "-", "a"}], ")"}], "^", "3"}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ")"}], "/", "6"}]}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264385040736*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"FS", "[", RowBox[{"Fcf", "[", RowBox[{"2", ",", RowBox[{"n", "+", "1"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}], "*", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "n"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}], "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "2"}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "3"}], "]"}]}]}], ")"}], "/", "6"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}], "^", "3"}], "-", RowBox[{"3", "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "1"}], "]"}], "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "2"}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"Hn", "[", RowBox[{"2", ",", "n", ",", "3"}], "]"}]}]}], ")"}], "/", "6"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{"Factorial2", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}], "/", "48"}], "*", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "1"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ")"}], "3"], "-", RowBox[{"3", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "1"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"4", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "2"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"8", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "3"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "3"}], "]"}]}], ")"}]}]}], ")"}]}], "]"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "n"}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"2", ",", "n"}], "]"}]}], "*", RowBox[{ RowBox[{"Factorial", "[", "n", "]"}], "/", "48"}], "*", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "1"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ")"}], "3"], "-", RowBox[{"3", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "1"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "1"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"4", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "2"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "2"}], "]"}]}], ")"}]}], "+", RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"8", "*", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"2", " ", "n"}], ",", "3"}], "]"}]}], "-", RowBox[{"HarmonicNumber", "[", RowBox[{"n", ",", "3"}], "]"}]}], ")"}]}]}], ")"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655264391332808*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section]8: Computational data for the topics suggested for \ future research:", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, {3.654789442546795*^9, 3.6547894525972767`*^9}, {3.654790186006219*^9, 3.6547902184028273`*^9}, { 3.654790491696991*^9, 3.654790491764077*^9}, {3.65479306937361*^9, 3.6547931535389977`*^9}, {3.6547976366588583`*^9, 3.6547976376814833`*^9}, {3.654800035275322*^9, 3.654800116478376*^9}, 3.654960528984714*^9, {3.6552439353295937`*^9, 3.655243937241304*^9}, 3.655266156046176*^9}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] S-fraction generating functions \ Involving the central binomial coefficients and the Catalan numbers:\ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525256632130823`*^9, 3.652525664760097*^9}, {3.652954947029806*^9, 3.652954994104177*^9}, {3.652955024619289*^9, 3.652955036603868*^9}, { 3.6529550693097267`*^9, 3.652955082836746*^9}, 3.652955416676663*^9, 3.652955470633924*^9, 3.6532487769304457`*^9, {3.653248954393446*^9, 3.653248955424737*^9}, {3.653249506055772*^9, 3.6532495067305613`*^9}, { 3.65325040709035*^9, 3.6532504084557257`*^9}, {3.653251330790032*^9, 3.653251335792583*^9}, 3.655266146086069*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{"S", "-", RowBox[{ "fraction", " ", "series", " ", "approximations", " ", "to", " ", "the", " ", "Catalan", " ", "number", " ", "OGF", " ", "and", " ", "S"}], "-", RowBox[{ "fraction", " ", "series", " ", "approximations", " ", "to", " ", "the", " ", "central", " ", "binomial", " ", "coefficient", " ", RowBox[{"OGF", ":"}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6532742782000217`*^9, 3.653274320575376*^9}, {3.654891201526166*^9, 3.65489121448258*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"CatalanNumberSFracAFnParam", "[", RowBox[{"k_", ",", "z_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", "1", ",", RowBox[{ RowBox[{"-", "1"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", "1"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CatalanNumberSFracBFnParam", "[", RowBox[{"k_", ",", "z_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "0", ",", "1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CatalanNumberSFractionGF", "[", RowBox[{"h_", ",", "z_"}], "]"}], ":=", RowBox[{"ContinuedFractionK", "[", RowBox[{ RowBox[{"CatalanNumberSFracAFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"CatalanNumberSFracBFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomDerivGF", "[", RowBox[{"Cz_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", "z", ")"}], "*", RowBox[{"D", "[", RowBox[{"Cz", ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "+", "Cz"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CentralBinomSFractionGF", "[", RowBox[{"h_", ",", "z_"}], "]"}], ":=", RowBox[{"CentralBinomDerivGF", "[", RowBox[{ RowBox[{"ContinuedFractionK", "[", RowBox[{ RowBox[{"CatalanNumberSFracAFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"CatalanNumberSFracBFnParam", "[", RowBox[{"n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "h"}], "}"}]}], "]"}], ",", "z"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, {3.654891100904477*^9, 3.654891149688957*^9}, { 3.6548912921615047`*^9, 3.654891327797724*^9}, {3.654892631396858*^9, 3.654892632248783*^9}}, FontSize->10, Background->RGBColor[1, 0.9, 1], CellLabel->"In[515]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"hupper", ",", "hlower", ",", "hdiff"}], "}"}], "=", RowBox[{"{", RowBox[{"8", ",", "3", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getSFracSeriesDataMapFn", "[", RowBox[{"h_", ",", "sFracInput_", ",", "expectedCoeffFn_"}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#1", "[", "sFracInput", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Factor", ",", RowBox[{ RowBox[{"Apart", "[", RowBox[{"FS", "[", "#1", "]"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"getMarkedSeriesData", "[", RowBox[{ RowBox[{"Series", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"h", "+", "2"}]}], "}"}]}], "]"}], ",", "expectedCoeffFn"}], "]"}], "&"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{"CF", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"CatalanNumberSFracOGFData", "[", "h", "]"}], ",", "\[IndentingNewLine]", RowBox[{"getSFracSeriesDataMapFn", "[", RowBox[{"h", ",", RowBox[{"CatalanNumberSFractionGF", "[", RowBox[{"h", ",", "z"}], "]"}], ",", "CatalanNumber"}], "]"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"CentralBinomialSFracOGFData", "[", "h", "]"}], ",", "\[IndentingNewLine]", RowBox[{"getSFracSeriesDataMapFn", "[", RowBox[{"h", ",", RowBox[{"CentralBinomSFractionGF", "[", RowBox[{"h", ",", "z"}], "]"}], ",", "CentralBinomial"}], "]"}]}], "}"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "hlower", ",", "hupper", ",", "hdiff"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654886072695381*^9, 3.65489123702188*^9, { 3.654891347911995*^9, 3.654891498356935*^9}, {3.654891530871625*^9, 3.6548916638314342`*^9}, {3.6548917106243753`*^9, 3.654891778611394*^9}, { 3.654891815840624*^9, 3.654891900683854*^9}, {3.654891931410161*^9, 3.654891955039167*^9}, {3.654892010334619*^9, 3.654892055869341*^9}, { 3.6548920948223257`*^9, 3.65489214241696*^9}, {3.654892215437002*^9, 3.6548923564262543`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[512]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle] Some examples of the suggested \ binomial coefficient expansions in the prime pair congruence sums when h is a \ quadratic function of n: \ \>", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525256632130823`*^9, 3.652525664760097*^9}, {3.652954947029806*^9, 3.652954994104177*^9}, {3.652955024619289*^9, 3.652955036603868*^9}, { 3.6529550693097267`*^9, 3.652955082836746*^9}, 3.652955416676663*^9, 3.652955470633924*^9, 3.6532487769304457`*^9, {3.653248954393446*^9, 3.653248955424737*^9}, {3.653249506055772*^9, 3.6532495067305613`*^9}, { 3.65325040709035*^9, 3.6532504084557257`*^9}, {3.653251330790032*^9, 3.653251335792583*^9}, {3.6552661163940287`*^9, 3.6552661216455593`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Set", " ", "h"}], " ", "\[RightTeeArrow]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "3"}], ")"}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"or", " ", "in", " ", "the", " ", "shorthand", " ", "h"}], " ", "\[RightTeeArrow]", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}]}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529594493227987`*^9, 3.652959489219305*^9}, 3.6529604260932617`*^9, { 3.6529634929961653`*^9, 3.652963536331235*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Define", " ", "the", " ", "next", " ", "function", " ", "to", " ", "assist", " ", "with", " ", "computing", " ", "the", " ", "tables", " ", "for", " ", "a", " ", "few", " ", "example", " ", "cases", " ", "of", " ", "the", " ", "linear", " ", "upper", " ", "index", " ", "functions"}], ",", " ", "\[IndentingNewLine]", RowBox[{"upperIndexFn", "[", RowBox[{"x", ",", "i"}], "]"}], ",", " ", RowBox[{"in", " ", "the", " ", "following", " ", RowBox[{"expansions", ":", " ", "\[IndentingNewLine]", TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"2", " ", "k"}]], RowBox[{ SubscriptBox["c", RowBox[{"k", ",", "i"}]], " ", "\[Times]", TemplateBox[{RowBox[{"upperIndexFn", "(", RowBox[{"x", ",", "i"}], ")"}],"k"}, "Binomial"]}]}], HoldForm]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.6529594493227987`*^9, 3.652959489219305*^9}, 3.6529604260932617`*^9, { 3.6529634929961653`*^9, 3.652963536331235*^9}, {3.652964440172288*^9, 3.652964558368161*^9}, {3.65296465120545*^9, 3.652964673293071*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"getBinomialExpCoeffs", "[", RowBox[{"d_", ",", "kv_", ",", "upperIndexFn_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"UpperIndexFn", "\[Rule]", RowBox[{"upperIndexFn", "[", RowBox[{"x", ",", "i"}], "]"}]}], ",", RowBox[{"BinomExpCoeffs", "\[Rule]", RowBox[{ RowBox[{"Solve", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#1", "\[Equal]", "0"}], "&"}], ",", RowBox[{"FS", "[", RowBox[{"CoefficientList", "[", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "1", "+", RowBox[{"2", "*", "d"}]}], ")"}]}], ",", "kv"}], "]"}], "]"}], "-", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"kv", ",", "i"}], "]"}], "*", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"upperIndexFn", "[", RowBox[{"x", ",", "i"}], "]"}], ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", " ", "kv"}]}], "}"}]}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", "^", "_"}]}], "}"}], ",", "FS"}], "]"}], ",", "x"}], "]"}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655266056251708*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"paramd", "=", "1"}], ";", RowBox[{"kupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "kv"}], ",", RowBox[{"getBinomialExpCoeffs", "[", RowBox[{"paramd", ",", "kv", ",", RowBox[{ RowBox[{"(", RowBox[{"#1", "+", "0"}], ")"}], "&"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"kv", ",", "1", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266069468059*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"paramd", "=", "1"}], ";", RowBox[{"kupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "kv"}], ",", RowBox[{"getBinomialExpCoeffs", "[", RowBox[{"paramd", ",", "kv", ",", RowBox[{ RowBox[{"(", RowBox[{"#1", "+", "#2"}], ")"}], "&"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"kv", ",", "1", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266072558599*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"paramd", "=", "1"}], ";", RowBox[{"kupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "kv"}], ",", RowBox[{"getBinomialExpCoeffs", "[", RowBox[{"paramd", ",", "kv", ",", RowBox[{ RowBox[{"(", RowBox[{"#1", "+", "3", "+", "#2"}], ")"}], "&"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"kv", ",", "1", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266079326374*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"paramd", "=", "1"}], ";", RowBox[{"kupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "kv"}], ",", RowBox[{"getBinomialExpCoeffs", "[", RowBox[{"paramd", ",", "kv", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "#1"}], "+", "#2", "+", "1"}], ")"}], "&"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"kv", ",", "1", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266083212982*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"paramd", "=", "1"}], ";", RowBox[{"kupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "kv"}], ",", RowBox[{"getBinomialExpCoeffs", "[", RowBox[{"paramd", ",", "kv", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", "#1"}], "+", "#2", "+", "2"}], ")"}], "&"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"kv", ",", "1", ",", "kupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655266090467103*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" \[Section] Appendix A: Generating tables:", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.654789053977857*^9, 3.654789054126945*^9}, {3.654789442546795*^9, 3.6547894525972767`*^9}, {3.654790186006219*^9, 3.6547902184028273`*^9}, { 3.654790491696991*^9, 3.654790491764077*^9}, {3.65479306937361*^9, 3.6547931535389977`*^9}, {3.6547976366588583`*^9, 3.6547976376814833`*^9}, {3.654800124458263*^9, 3.6548001444308977`*^9}}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.1", FontVariations->{"Underline"->True}], ": \n Special Cases of the \[Alpha]-Factorial Coefficient Triangles: " }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.652835068317812*^9}, { 3.6528451652138357`*^9, 3.652845188180934*^9}, 3.652846202793702*^9, { 3.6528552955136766`*^9, 3.652855300576394*^9}, 3.652855353215473*^9, { 3.6532504656375513`*^9, 3.653250470323081*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Definition of the triangle and generalized table cases:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.65325172484478*^9, 3.653251743877301*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ RowBox[{"[", GridBox[{ {"n"}, {"k"} }], "]"}], "\[Alpha]"], " ", ":=", " ", RowBox[{ SubscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "n"}], "+", "1", "-", RowBox[{"2", "\[Alpha]"}]}], ")"}], " ", "[", GridBox[{ { RowBox[{"n", "-", "1"}]}, {"k"} }], "]"}], "\[Alpha]"], " ", "+", " ", SubscriptBox[ RowBox[{"[", GridBox[{ { RowBox[{"n", "-", "1"}]}, { RowBox[{"k", "-", "1"}]} }], "]"}], "\[Alpha]"], " ", "+", " ", RowBox[{ TemplateBox[{RowBox[{"0", ",", "n"}]}, "KroneckerDeltaSeq"], " ", TemplateBox[{RowBox[{"0", ",", "k"}]}, "KroneckerDeltaSeq"]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "\[Alpha]"}], ";", RowBox[{"nkupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"FS", "[", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552391480868883`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "\[Alpha]"}], ";", RowBox[{"nkupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Factor", "[", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239152859487*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Table of \ the Stirling numbers of the first kind (\[Alpha] := 1):\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.65325183591018*^9, 3.6532518605664253`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "1"}], ";", RowBox[{"nkupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239190261175*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Table of \ the special case double factorial function triangle where \[Alpha] := 2:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.65325183591018*^9, 3.653251898377389*^9}, {3.6532519287423143`*^9, 3.653251930409512*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "2"}], ";", RowBox[{"nkupper", "=", "8"}], ";"}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552391843333387`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Table of \ the special case triple factorial function triangle where \[Alpha] := 3:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.65325183591018*^9, 3.653251934486305*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "3"}], ";", RowBox[{"nkupper", "=", "8"}], ";"}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239181114565*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Table of \ the special case quadruple factorial function triangle where \[Alpha] := 4:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.65325183591018*^9, 3.653251940938151*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "4"}], ";", RowBox[{"nkupper", "=", "8"}], ";"}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fcf", "[", RowBox[{"n", ",", "k"}], "]"}], "\[Rule]", RowBox[{"Fcf", "[", RowBox[{"alpha", ",", "n", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nkupper"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "nkupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239177106052*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.2", FontVariations->{"Underline"->True}], ": \n Generating the Stirling Polynomial Tables:" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.652835068317812*^9}, { 3.652855317516232*^9, 3.65285535626824*^9}, {3.653250472890512*^9, 3.653250474820908*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Table \ Listings of the Polynomial Sequences : \ \>", "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, 3.653251970098466*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"ToExpression", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\\"", ",", "n"}], "]"}], "]"}], ",", "TeXForm"}], "]"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}], "*", RowBox[{"StirlingPoly", "[", RowBox[{"n", ",", "x"}], "]"}]}], "]"}], ",", RowBox[{"FactorTerms", "[", RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}], "*", RowBox[{"StirlingPoly", "[", RowBox[{"n", ",", "x"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552393763802958`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}], "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "x", ",", "Factor"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65523938004517*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}], ",", "\[Alpha]", ",", "Factor"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65523938618019*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Generate \ the LaTeX Output for the Table Listings of these Polynomial Sequences : \ \>", "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, {3.652835321637781*^9, 3.652835338789008*^9}, 3.652835548846011*^9, 3.653251972109507*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}], "*", "x", "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "x", ",", "Factor"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"TeXForm", "[", RowBox[{"TraditionalForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"2", " ", "n"}], "]"}], "*", "x", "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "x", ",", "Factor"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239359240327*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "\[Alpha]", ",", "Factor"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"TeXForm", "[", RowBox[{"TraditionalForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "\[Alpha]", ",", "Factor"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"TeXForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"StirlingAlphaPoly", "[", RowBox[{"\[Alpha]", ",", "n", ",", "x"}], "]"}]}], ",", "\[Alpha]", ",", "Factor"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239353639842*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"StirlingPoly", "[", RowBox[{"n", ",", "x"}], "]"}]}], ",", "\[Alpha]", ",", "FactorTerms"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm], ",", RowBox[{"TeXForm", "[", RowBox[{"TraditionalForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"StirlingPoly", "[", RowBox[{"n", ",", "x"}], "]"}], ",", "\[Alpha]", ",", "Factor"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "n"}], ",", RowBox[{"x", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", "n", RowBox[{"(", "\[Alpha]", ")"}]], "(", "x", ")"}], TraditionalForm]}], ",", RowBox[{"TeXForm", "[", RowBox[{"TraditionalForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"StirlingPoly", "[", RowBox[{"n", ",", "x"}], "]"}]}], ",", "\[Alpha]", ",", "FactorTerms"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239350317821*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.3", FontVariations->{"Underline"->True}], ": \n Generating the Congruences Modulo p (and p\[Alpha]) Tables for \ p:= 2,3,4,5 and \[Alpha] \[Element] {1,2,3,4} \n (", StyleBox["and the extended congruence cases referenced within the article", FontSlant->"Italic"], "): " }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.652835081778874*^9}, { 3.6528452439919033`*^9, 3.6528452694101343`*^9}, {3.6528553200282383`*^9, 3.652855358843543*^9}, {3.653250477351657*^9, 3.6532504883410273`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Some \ First Listings of These Congruences: \ \>", "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.6528356524035*^9, 3.6528356599122047`*^9}, {3.6528357977730713`*^9, 3.6528357991366053`*^9}, {3.652835834016446*^9, 3.652835840949382*^9}, 3.6532503947540617`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"p_", ",", "alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "alpha"}], ",", "n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getModString", "[", "modulo_", "]"}], ":=", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<(`1`)\>\"", ",", "modulo"}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetModGridTableV2", "[", RowBox[{"alpha_", ",", RowBox[{"nupper_:", "12"}]}], "]"}], ":=", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"2", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"2", ",", "alpha", ",", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"2", "*", "alpha"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"2", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"2", "*", "alpha"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"3", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "3", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"3", ",", "alpha", ",", "n"}], "]"}], ",", "3", ",", "0"}], "]"}], ",", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"3", "*", "alpha"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"3", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"3", "*", "alpha"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"4", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "4", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"4", ",", "alpha", ",", "n"}], "]"}], ",", "4", ",", "0"}], "]"}], ",", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"4", "*", "alpha"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"4", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"4", "*", "alpha"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"5", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "5", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"5", ",", "alpha", ",", "n"}], "]"}], ",", "5", ",", "0"}], "]"}], ",", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"5", "*", "alpha"}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"5", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"5", "*", "alpha"}], ",", "0"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "nupper"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", FormBox[ SubscriptBox[ RowBox[{"n", "!"}], RowBox[{"(", "\[Alpha]", ")"}]], TraditionalForm], ",", FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "2", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}]}], TraditionalForm], ",", RowBox[{"getModString", "[", "2", "]"}], ",", RowBox[{"getModString", "[", "2", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"2", "*", "alpha"}], "]"}], ",", RowBox[{"getModString", "[", RowBox[{"2", "*", "alpha"}], "]"}], ",", "\[IndentingNewLine]", FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "3", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}], TraditionalForm], ",", RowBox[{"getModString", "[", "3", "]"}], ",", RowBox[{"getModString", "[", "3", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"3", "*", "alpha"}], "]"}], ",", RowBox[{"getModString", "[", RowBox[{"3", "*", "alpha"}], "]"}], ",", "\[IndentingNewLine]", FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "4", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}], TraditionalForm], ",", RowBox[{"getModString", "[", "4", "]"}], ",", RowBox[{"getModString", "[", "4", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"4", "*", "alpha"}], "]"}], ",", RowBox[{"getModString", "[", RowBox[{"4", "*", "alpha"}], "]"}], ",", "\[IndentingNewLine]", FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "5", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}], TraditionalForm], ",", RowBox[{"getModString", "[", "5", "]"}], ",", RowBox[{"getModString", "[", "5", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"5", "*", "alpha"}], "]"}], ",", RowBox[{"getModString", "[", RowBox[{"5", "*", "alpha"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "Center", ",", "Left", ",", "Left", ",", "Center", ",", "Center", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center", ",", "Center", ",", "Center"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "False", ",", "False", ",", "False", ",", "False", ",", "True", ",", "False", ",", "False", ",", "False", ",", "False", ",", "True", ",", "False", ",", "False", ",", "False", ",", "False", ",", "True", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}], "}"}]}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655239483648676*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV2", "[", RowBox[{"1", ",", "12"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV2", "[", RowBox[{"2", ",", "21"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV2", "[", RowBox[{"3", ",", "32"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV2", "[", RowBox[{"4", ",", "42"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239638258959*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] Table \ Listings of These Congruences (modulo p and p\[Alpha]): \ \>", "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.652835805573942*^9, 3.652835828084227*^9}, 3.653250396573164*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"p_", ",", "alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "alpha"}], ",", "n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getModString", "[", "modulo_", "]"}], ":=", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<(`1`)\>\"", ",", "modulo"}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha_", ",", RowBox[{"nupper_:", "12"}]}], "]"}], ":=", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"2", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"2", ",", "alpha", ",", "n"}], "]"}], ",", "2", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"2", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"2", "*", "alpha"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"3", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"3", ",", "alpha", ",", "n"}], "]"}], ",", "3", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"3", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"3", "*", "alpha"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"4", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"4", ",", "alpha", ",", "n"}], "]"}], ",", "4", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"4", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"4", "*", "alpha"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RpConvFn", "[", RowBox[{"5", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"5", ",", "alpha", ",", "n"}], "]"}], ",", "5", ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"5", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"5", "*", "alpha"}], ",", "0"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "nupper"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", FormBox[ SubscriptBox[ RowBox[{"n", "!"}], RowBox[{"(", "\[Alpha]", ")"}]], TraditionalForm], ",", FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "2", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}]}], TraditionalForm], ",", RowBox[{"getModString", "[", "2", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"2", "*", "alpha"}], "]"}], ",", "\[IndentingNewLine]", FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "3", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}], TraditionalForm], ",", RowBox[{"getModString", "[", "3", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"3", "*", "alpha"}], "]"}], ",", "\[IndentingNewLine]", FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "4", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}], TraditionalForm], ",", RowBox[{"getModString", "[", "4", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"4", "*", "alpha"}], "]"}], ",", "\[IndentingNewLine]", FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["R", "~"], "5", RowBox[{"(", "alpha", ")"}]], "(", "n", ")"}], TraditionalForm], ",", RowBox[{"getModString", "[", "5", "]"}], ",", RowBox[{"getModString", "[", RowBox[{"5", "*", "alpha"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "Center", ",", "Left", ",", "Left", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "False", ",", "False", ",", "True", ",", "False", ",", "False", ",", "True", ",", "False", ",", "False", ",", "True", ",", "False", ",", "False"}], "}"}], "}"}]}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6552394721280823`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"1", ",", "12"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"2", ",", "21"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"3", ",", "32"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"4", ",", "42"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552396231023893`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", "Generate the ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]]], " Code for these Tables: " }], "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.6528359433287277`*^9, 3.652835961560034*^9}, 3.653250397939898*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "1"}], ";", RowBox[{"nupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], " ", "//", " ", "TeXForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239590346292*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "2"}], ";", RowBox[{"nupper", "=", "21"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], " ", "//", " ", "TeXForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239593398117*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "3"}], ";", RowBox[{"nupper", "=", "32"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], " ", "//", " ", "TeXForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239608580778*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"alpha", "=", "4"}], ";", RowBox[{"nupper", "=", "42"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetModGridTableV3", "[", RowBox[{"alpha", ",", "nupper"}], "]"}], " ", "//", " ", "TeXForm"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239604955724*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", "Extended Congruence Table Data for ", Cell[BoxData[ RowBox[{ FormBox[ SubscriptBox[ RowBox[{"n", "!"}], RowBox[{"(", "\[Alpha]", ")"}]], TraditionalForm], " ", RowBox[{"(", RowBox[{"mod", " ", "p", " ", SuperscriptBox["\[Alpha]", "i"]}], ")"}]}]], "Text", "TR", FontWeight->"Bold"], " (0 \[LessEqual] i \[LessEqual] p): " }], "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.6528356524035*^9, 3.6528356599122047`*^9}, {3.6528357977730713`*^9, 3.6528357991366053`*^9}, {3.652835834016446*^9, 3.652835840949382*^9}, { 3.652838312823482*^9, 3.6528383528205976`*^9}, {3.652838385530957*^9, 3.652838432276895*^9}, 3.653250399099659*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"p_", ",", "alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "alpha"}], ",", "n", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "alpha", "-", "1"}], ")"}], "/", "alpha"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getModString", "[", "modulo_", "]"}], ":=", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<(`1`)\>\"", ",", "modulo"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"p_", ",", "alpha_", ",", "n_"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"RpConvFn", "[", RowBox[{"p", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "alpha", ",", "n", ",", RowBox[{"AlphaFactorial", "[", RowBox[{"alpha", ",", "n"}], "]"}], ",", RowBox[{"RpConvFn", "[", RowBox[{"p", ",", "alpha", ",", "n"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getCongruenceRowHeader", "[", RowBox[{"p_", ",", "alpha_"}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"#1", ",", "Bold"}], "]"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "\"\<\!\(TraditionalForm\`\*SubscriptBox[\(n!\), \((\[Alpha])\)]\) \ \>\"", " ", "<>", " ", RowBox[{"getModString", "[", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], "]"}]}], ",", RowBox[{ "\"\<\!\(\*SubsuperscriptBox[OverscriptBox[\(R\), \(~\)], \(p\), \ \((\[Alpha])\)]\)(n) \>\"", " ", "<>", " ", RowBox[{"getModString", "[", RowBox[{"p", "*", RowBox[{"Power", "[", RowBox[{"alpha", ",", "i"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "p"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\

\"", ",", "p"}], "]"}], "]"}], ",", RowBox[{"ToString", "[", RowBox[{"StringForm", "[", RowBox[{"\"\<\[Alpha] \[RightTeeArrow] `1`\>\"", ",", "alpha"}], "]"}], "]"}], ",", "n", ",", "\"\<\!\(TraditionalForm\`\*SubscriptBox[\(n!\), \((\[Alpha])\)]\)\>\ \"", ",", "\"\<\!\(\*SubsuperscriptBox[OverscriptBox[\(R\), \(~\)], \(p\), \((\ \[Alpha])\)]\)(n)\>\""}], "}"}]}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableGrid", "[", "table_", "]"}], ":=", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{"table", ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Lighter", "[", RowBox[{"#1", ",", "0.35"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"LightCyan", ",", "Green", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}], ",", "LightGreen", ",", "LightPurple"}], "}"}]}], "]"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "Center", ",", "Center", ",", "Center", ",", "Left", ",", "Left", ",", "Center", ",", "Center", ",", "Center", ",", "Center"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetModGridTableFull", "[", RowBox[{"pval_", ",", "alpha_", ",", "nupper_"}], "]"}], ":=", RowBox[{"TableGrid", "[", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"getCongruenceRow", "[", RowBox[{"pval", ",", "alpha", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", RowBox[{"nupper", "+", RowBox[{"2", "*", "pval"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"getCongruenceRowHeader", "[", RowBox[{"pval", ",", "alpha"}], "]"}]}], "]"}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6552394607842073`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pval", "=", "2"}], ";", RowBox[{"nupper", "=", "32"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "2", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "3", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "4", ",", "nupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552395194553833`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pval", "=", "3"}], ";", RowBox[{"nupper", "=", "32"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "2", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "3", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "4", ",", "nupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552395226749687`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pval", "=", "4"}], ";", RowBox[{"nupper", "=", "42"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "2", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "3", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "4", ",", "nupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552395255681877`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pval", "=", "5"}], ";", RowBox[{"nupper", "=", "48"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "2", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "3", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "4", ",", "nupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65523953713167*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pval", "=", "6"}], ";", RowBox[{"nupper", "=", "55"}], ";"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "2", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "3", ",", "nupper"}], "]"}], "\[IndentingNewLine]", RowBox[{"GetModGridTableFull", "[", RowBox[{"pval", ",", "4", ",", "nupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239533553701*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.4", FontVariations->{"Underline"->True}], ": \n The Convergent Numerator and Denominator Function Tables:" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.652835068317812*^9}, { 3.6528451652138357`*^9, 3.652845225443614*^9}, 3.652846924728462*^9, { 3.652855321790717*^9, 3.652855362890954*^9}, {3.6532504918869143`*^9, 3.653250494566412*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ convergent numerator functions, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["FP", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{"R", ";", "z"}]}], ")"}], " "}], TraditionalForm]], "Input", CellChangeTimes->{{3.647861512356234*^9, 3.647861512568672*^9}, { 3.6478615935607557`*^9, 3.647861628573308*^9}}, FontVariations->{"Underline"->False}], ": " }], "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.6528356524035*^9, 3.6528356599122047`*^9}, {3.6528357977730713`*^9, 3.6528357991366053`*^9}, {3.652835834016446*^9, 3.652835840949382*^9}, { 3.65284628024088*^9, 3.652846309118383*^9}, {3.652846347605798*^9, 3.652846347605907*^9}, 3.6532519867795677`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ "Tables", " ", "of", " ", "these", " ", "polynomials", " ", "gathered", " ", "by", " ", "powers", " ", "of", " ", RowBox[{"z", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6528465434848824`*^9, 3.652846568852191*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FP", "[", " ", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552399980448437`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Tables", " ", "of", " ", "these", " ", "polynomials", " ", "gathered", " ", "by", " ", "powers", " ", "of", " ", "R"}], ",", "\[Alpha]", ",", RowBox[{ RowBox[{"and", " ", "then", " ", "simlified", " ", "by", " ", RowBox[{"Mathematica", "'"}], "s", " ", "built"}], "-", RowBox[{"in", " ", StyleBox["FullSimplify", FontFamily->"Courier New"], StyleBox[" ", FontFamily->"Courier New"], StyleBox[ RowBox[{"(", "FS", ")"}], FontFamily->"Courier New"], StyleBox[" ", FontFamily->"Courier New"], RowBox[{"function", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652846575410643*^9, 3.652846631244075*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"NumFn", "[", "h", "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"R", ",", RowBox[{"R", "^", "_"}]}], "}"}], " ", ",", "FS"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "^", "_"}]}], "}"}], " ", ",", "FS"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239986192684*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ convergent numerator functions, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["FQ", "h"], "(", RowBox[{"\[Alpha]", ",", RowBox[{"R", ";", "z"}]}], ")"}], TraditionalForm]], "Input", CellChangeTimes->{{3.647861512356234*^9, 3.647861512568672*^9}, { 3.6478615935607557`*^9, 3.647861628573308*^9}}, FontVariations->{"Underline"->False}], ": " }], "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.6528356524035*^9, 3.6528356599122047`*^9}, {3.6528357977730713`*^9, 3.6528357991366053`*^9}, {3.652835834016446*^9, 3.652835840949382*^9}, { 3.65284628024088*^9, 3.652846309118383*^9}, {3.652846494470784*^9, 3.6528464944708757`*^9}, 3.653251988862805*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ "Tables", " ", "of", " ", "these", " ", "polynomials", " ", "gathered", " ", "by", " ", "powers", " ", "of", " ", RowBox[{"z", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6528465434848824`*^9, 3.652846568852191*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239939842268*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Tables", " ", "of", " ", "these", " ", "polynomials", " ", "gathered", " ", "by", " ", "powers", " ", "of", " ", "R"}], ",", "\[Alpha]", ",", RowBox[{ RowBox[{"and", " ", "then", " ", "simlified", " ", "by", " ", RowBox[{"Mathematica", "'"}], "s", " ", "built"}], "-", RowBox[{"in", " ", StyleBox["FullSimplify", FontFamily->"Courier New", FontWeight->"Bold"], StyleBox[" ", FontFamily->"Courier New"], StyleBox[ RowBox[{"(", StyleBox["FS", FontWeight->"Bold"], ")"}], FontFamily->"Courier New"], StyleBox[" ", FontFamily->"Courier New"], RowBox[{"function", ":"}]}]}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652846575410643*^9, 3.652846631244075*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"DenomFn", "[", "h", "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"R", ",", RowBox[{"R", "^", "_"}]}], "}"}], " ", ",", "FS"}], "]"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "^", "_"}]}], "}"}], " ", ",", "FS"}], "]"}], ",", RowBox[{"FS", "[", RowBox[{"FQ", "[", RowBox[{"h", ",", "a", ",", "R", ",", " ", "z"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239928872094*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ convergent numerator and denominator function special cases, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["FP", "h"], "(", RowBox[{"1", ",", RowBox[{"1", ";", "z"}]}], ")"}], " ", "and", " ", RowBox[{ SubscriptBox["FQ", "h"], "(", RowBox[{"1", ",", RowBox[{"1", ";", "z"}]}], ")"}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.647861512356234*^9, 3.647861512568672*^9}, { 3.6478615935607557`*^9, 3.647861628573308*^9}}], ": " }], "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.6528356524035*^9, 3.6528356599122047`*^9}, {3.6528357977730713`*^9, 3.6528357991366053`*^9}, {3.652835834016446*^9, 3.652835840949382*^9}, { 3.65284628024088*^9, 3.652846309118383*^9}, {3.652846494470784*^9, 3.6528464944708757`*^9}, {3.652846668839061*^9, 3.65284669375664*^9}, 3.6532519904448566`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Generate", " ", "tables", " ", "of", " ", "the", " ", "component", " ", "convergent", " ", "functions", " ", "that", " ", "enumerate", " ", "the", " ", "single", " ", "factorial", " ", "function"}], ",", " ", RowBox[{"n", "!"}], ",", " ", RowBox[{ RowBox[{"h", " ", "\[GreaterEqual]", TemplateBox[{FractionBox["n", "2"]}, "Floor"]}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6528465434848824`*^9, 3.652846568852191*^9}, {3.6528467288922663`*^9, 3.652846787374393*^9}, {3.652846835716683*^9, 3.6528468366379013`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "1", ",", "1", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], ",", RowBox[{"Index", "\[Rule]", "h"}], ",", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "1", ",", "1", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"h", ",", " ", RowBox[{"StandardForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "1", ",", "1", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], "]"}], ",", " ", RowBox[{"StandardForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "1", ",", "1", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{"TeXForm", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239843304854*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ convergent numerator and denominator function special cases, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["FP", "h"], "(", RowBox[{"2", ",", RowBox[{"1", ";", "z"}]}], ")"}], " ", "and", " ", RowBox[{ SubscriptBox["FQ", "h"], "(", RowBox[{"2", ",", RowBox[{"1", ";", "z"}]}], ")"}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.647861512356234*^9, 3.647861512568672*^9}, { 3.6478615935607557`*^9, 3.647861628573308*^9}}], ": " }], "Subsubsection", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.652835198381711*^9, 3.6528352199355392`*^9}, 3.65283553999277*^9, { 3.6528356524035*^9, 3.6528356599122047`*^9}, {3.6528357977730713`*^9, 3.6528357991366053`*^9}, {3.652835834016446*^9, 3.652835840949382*^9}, { 3.65284628024088*^9, 3.652846309118383*^9}, {3.652846494470784*^9, 3.6528464944708757`*^9}, {3.652846668839061*^9, 3.65284669375664*^9}, { 3.652846859695614*^9, 3.652846862996414*^9}, 3.6532519925837812`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "Generate", " ", "tables", " ", "of", " ", "the", " ", "component", " ", "convergent", " ", "functions", " ", "that", " ", "enumerate", " ", "the", " ", "double", " ", "factorial", " ", "function"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ")"}], "!!"}], ",", " ", RowBox[{ RowBox[{"h", " ", "\[GreaterEqual]", TemplateBox[{FractionBox["n", "2"]}, "Floor"]}], ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.6525248215919743`*^9, 3.652524822096932*^9}, { 3.6528465434848824`*^9, 3.652846568852191*^9}, {3.6528467288922663`*^9, 3.652846787374393*^9}, {3.652846835716683*^9, 3.6528468366379013`*^9}, { 3.652846867473812*^9, 3.652846873570868*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"h", ",", " ", RowBox[{"StandardForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FP", "[", RowBox[{"h", ",", "2", ",", "1", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], "]"}], ",", " ", RowBox[{"StandardForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FQ", "[", RowBox[{"h", ",", "2", ",", "1", ",", " ", "z"}], "]"}], ",", " ", RowBox[{"z", "^", "_"}], " ", ",", "Factor"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h", ",", "0", ",", "hupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{"TeXForm", "[", "%", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655239777153556*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[43]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.5", FontVariations->{"Underline"->True}], ": \n The Reflected Numerator Polynomial Sequences:" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.6528350900797873`*^9}, { 3.652845288981689*^9, 3.652845294623329*^9}, {3.652855324246179*^9, 3.6528553656500263`*^9}, {3.653250500966609*^9, 3.653250503917149*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"exData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"h", ",", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"h", "-", "1"}]}], "]"}], "*", RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"1", "/", "z"}]}], "]"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}]}], ")"}]}], ",", RowBox[{"TeXForm", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"h", "-", "1"}]}], "]"}], "*", RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"1", "/", "z"}]}], "]"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"exData", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Center", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}]}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65524003870483*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"hupper", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"exData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"h", ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"h", "-", "1"}]}], "]"}], "*", RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"1", "/", "z"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", RowBox[{"z", "-", "w"}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}]}], ")"}]}], "]"}], ",", RowBox[{"w", "^", "_"}]}], "]"}], ",", RowBox[{"TeXForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"h", "-", "1"}]}], "]"}], "*", RowBox[{"FP", "[", RowBox[{"h", ",", "a", ",", " ", "R", ",", " ", RowBox[{"1", "/", "z"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", RowBox[{"z", "-", "w"}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}]}], ")"}]}], "]"}], ",", RowBox[{"w", "^", "_"}]}], "]"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"h", "-", "1"}]}], "]"}], "*", RowBox[{"FP", "[", RowBox[{"h", ",", RowBox[{"-", "a"}], ",", " ", "R", ",", " ", RowBox[{"1", "/", "z"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", RowBox[{"z", "-", "w"}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}]}], ")"}]}], "]"}], ",", RowBox[{"\[Alpha]", "^", "_"}]}], "]"}], ",", RowBox[{"TeXForm", "[", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"h", "-", "1"}]}], "]"}], "*", RowBox[{"FP", "[", RowBox[{"h", ",", RowBox[{"-", "a"}], ",", " ", "R", ",", " ", RowBox[{"1", "/", "z"}]}], "]"}]}], "/.", RowBox[{"(", RowBox[{"R", "\[Rule]", RowBox[{"z", "-", "w"}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"ToExpression", "[", RowBox[{"\"\<$\\\\alpha$\>\"", ",", "TeXForm"}], "]"}]}], ")"}]}], "]"}], ",", RowBox[{"\[Alpha]", "^", "_"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "hupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"exData", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(TraditionalForm\`\*OverscriptBox[\(FP\), \(~\)](\[Alpha], R, \ z)\) (w:=z-R <-> R->z-w)\>\"", ",", "\"\\"", ",", "\"\< \!\(TraditionalForm\`FS : \\\ \*OverscriptBox[\(FP\), \(~\)](\ \[Alpha], R, z)\) (w:=z-R <-> R->z-w)\>\"", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Center", ",", "Left", ",", "Left"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "False", ",", "True", ",", "False", ",", "True"}], "}"}], "}"}]}]}], "]"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240046773158*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.6", FontVariations->{"Underline"->True}], ": \n The ", Cell[BoxData[ SuperscriptBox["p", "th"]], "Output", CellChangeTimes->{3.6528453291355*^9}], " Power Sequences (Special Case Sequences of Binomials):" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.652835068317812*^9}, { 3.6528451652138357`*^9, 3.652845225443614*^9}, {3.6528453087087317`*^9, 3.652845360010373*^9}, {3.652855325819242*^9, 3.6528553682822523`*^9}, { 3.653250505570476*^9, 3.653250507452689*^9}, 3.6532556713204823`*^9}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the Sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", "p"], "-", "1"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.647956864141124*^9}, FontVariations->{"Underline"->False}], ": (First Tables)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, 3.653254298248312*^9, {3.653254344785132*^9, 3.653254358236298*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Examples", " ", "leading", " ", "to", " ", "the", " ", "expansions", " ", "of", " ", "the", " ", "first", " ", "table", " ", RowBox[{"data", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653254510735791*^9, 3.653254518694769*^9}, {3.653254561690373*^9, 3.653254573866613*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "1"}], ",", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "]"}], ")"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], ",", RowBox[{"Factor", "[", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], ",", "p", ",", "x"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65524038689176*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Gen2PowTable", "[", RowBox[{"mval_", ",", "leadingTermGF_", ",", "expGF_", ",", RowBox[{"pupper_:", "10"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"leadingTermGFz", ",", "expGFx"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"leadingTermGFz", "=", RowBox[{"Function", "[", RowBox[{"z", ",", "leadingTermGF"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"expGFx", "=", RowBox[{"Function", "[", RowBox[{"x", ",", "expGF"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"resultTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "1"}], ",", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"expGFx", "[", "x", "]"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "mval", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"mval", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"expGFx", "[", "x", "]"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"mval", "+", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"mval", "+", "1"}], ",", RowBox[{"pupper", "+", "mval"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "resultTbl", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.65524038030236*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTable", "[", RowBox[{"1", ",", FractionBox["1", RowBox[{"1", "-", "z"}]], ",", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", "x"]}]}], ")"}], " ", SuperscriptBox["x", "2"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTable", "[", RowBox[{"2", ",", FractionBox[ RowBox[{"4", "-", RowBox[{"3", " ", "z"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"8", " ", SuperscriptBox["\[ExponentialE]", "x"]}], "-", "x"}], ")"}], " ", SuperscriptBox["x", "3"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTable", "[", RowBox[{"3", ",", FractionBox[ RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"17", " ", "z"}], "-", RowBox[{"7", " ", SuperscriptBox["z", "2"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "3"]], ",", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", "x"], " ", SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "24"}], "+", RowBox[{"32", " ", SuperscriptBox["\[ExponentialE]", "x"]}], "-", RowBox[{"10", " ", "x"}], "-", SuperscriptBox["x", "2"]}], ")"}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTable", "[", RowBox[{"4", ",", FractionBox[ RowBox[{"26", "-", RowBox[{"62", " ", "z"}], "+", RowBox[{"52", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"15", " ", SuperscriptBox["z", "3"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "4"]], ",", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox["\[ExponentialE]", "x"], " ", SuperscriptBox["x", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "162"}], "+", RowBox[{"192", " ", SuperscriptBox["\[ExponentialE]", "x"]}], "-", RowBox[{"96", " ", "x"}], "-", RowBox[{"18", " ", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["x", "3"]}], ")"}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTable", "[", RowBox[{"5", ",", FractionBox[ RowBox[{ RowBox[{"-", "57"}], "+", RowBox[{"186", " ", "z"}], "-", RowBox[{"238", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"139", " ", SuperscriptBox["z", "3"]}], "-", RowBox[{"31", " ", SuperscriptBox["z", "4"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "5"]], ",", RowBox[{ FractionBox["1", "24"], " ", SuperscriptBox["\[ExponentialE]", "x"], " ", SuperscriptBox["x", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1392"}], "+", RowBox[{"1536", " ", SuperscriptBox["\[ExponentialE]", "x"]}], "-", RowBox[{"1008", " ", "x"}], "-", RowBox[{"264", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"28", " ", SuperscriptBox["x", "3"]}], "-", SuperscriptBox["x", "4"]}], ")"}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552403762443867`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ "Other", " ", "forms", " ", "of", " ", "the", " ", "examples", " ", "leading", " ", "to", " ", "the", " ", "expansions", " ", "of", " ", "the", " ", "first", " ", "table", " ", RowBox[{"data", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653254510735791*^9, 3.653254518694769*^9}, {3.653254561690373*^9, 3.653254573866613*^9}, {3.6532546680180798`*^9, 3.6532546718269787`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";", RowBox[{"mupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "1"}], ",", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"FS", "[", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}]}], "]"}], "]"}], "]"}], ")"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "m", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], ",", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"FS", "[", RowBox[{"-", RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}], ")"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "m", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "m", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "m", "-", "1"}]}], "}"}]}], "]"}], ",", "p", ",", "x"}], "]"}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", "Factor"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "mupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.6552403641049757`*^9, 3.6552403654780903`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Gen2PowTableV2", "[", RowBox[{ "mval_", ",", "leadingTermGF_", ",", "cm2_", ",", "cm1_", ",", "pmxFn_", ",", RowBox[{"pupper_:", "10"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"leadingTermGFz", ",", "pmxFnx"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"leadingTermGFz", "=", RowBox[{"Function", "[", RowBox[{"z", ",", "leadingTermGF"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pmxFnx", "=", RowBox[{"Function", "[", RowBox[{"x", ",", "pmxFn"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"resultTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "1"}], ",", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", "mval"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"cm2", "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "x"}], "]"}]}], "-", RowBox[{"cm1", "*", RowBox[{"Exp", "[", "x", "]"}], "*", RowBox[{"pmxFnx", "[", "x", "]"}]}]}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "mval", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", "mval"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"cm2", "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "x"}], "]"}]}], "-", RowBox[{"cm1", "*", RowBox[{"Exp", "[", "x", "]"}], "*", RowBox[{"pmxFnx", "[", "x", "]"}]}]}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"mval", "+", "1"}], ",", RowBox[{"pupper", "+", "mval"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "resultTbl", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.6552403518231373`*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV2", "[", RowBox[{"1", ",", "1", ",", "4", ",", "1", ",", "1", ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV2", "[", RowBox[{"2", ",", RowBox[{"4", "-", RowBox[{"3", " ", "z"}]}], ",", "8", ",", "1", ",", RowBox[{"x", "+", "5"}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV2", "[", RowBox[{"3", ",", RowBox[{"11", "-", RowBox[{"17", " ", "z"}], "+", RowBox[{"7", " ", SuperscriptBox["z", "2"]}]}], ",", "16", ",", RowBox[{"1", "/", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"6", "+", "x"}], ")"}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV2", "[", RowBox[{"4", ",", RowBox[{"26", "-", RowBox[{"62", " ", "z"}], "+", RowBox[{"52", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"15", " ", SuperscriptBox["z", "3"]}]}], ",", "32", ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"162", "+", RowBox[{"96", " ", "x"}], "+", RowBox[{"18", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV2", "[", RowBox[{"5", ",", RowBox[{"57", "-", RowBox[{"186", " ", "z"}], "+", RowBox[{"238", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"139", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"31", " ", SuperscriptBox["z", "4"]}]}], ",", "64", ",", RowBox[{"1", "/", "24"}], ",", RowBox[{"1392", "+", RowBox[{"1008", " ", "x"}], "+", RowBox[{"264", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"28", " ", SuperscriptBox["x", "3"]}], "+", SuperscriptBox["x", "4"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV2", "[", RowBox[{"6", ",", RowBox[{"120", "-", RowBox[{"501", " ", "z"}], "+", RowBox[{"868", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"769", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"346", " ", SuperscriptBox["z", "4"]}], "-", RowBox[{"63", " ", SuperscriptBox["z", "5"]}]}], ",", "128", ",", RowBox[{"1", "/", "120"}], ",", RowBox[{"14520", "+", RowBox[{"11880", " ", "x"}], "+", RowBox[{"3840", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"580", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"40", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "5"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240348577858*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Gen2PowTableV3", "[", RowBox[{"mval_", ",", "leadingTermGF_", ",", "pmxFn_", ",", RowBox[{"pupper_:", "10"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"leadingTermGFz", ",", "pmxFnx", ",", "p", ",", "m"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"leadingTermGFz", "=", RowBox[{"Function", "[", RowBox[{"z", ",", "leadingTermGF"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pmxFnx", "=", RowBox[{"Function", "[", RowBox[{"x", ",", "pmxFn"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ "resultTbl", "=", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "mval"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", "p"}], "]"}], "-", "1"}], ",", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", "mval"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"mval", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "x"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"mval", "-", "1"}], "]"}]}], "*", RowBox[{"pmxFnx", "[", "x", "]"}]}]}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "mval", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", "mval"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"2", ",", RowBox[{"mval", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "x"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"mval", "-", "1"}], "]"}]}], "*", RowBox[{"pmxFnx", "[", "x", "]"}]}]}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"mval", "+", "1"}], ",", RowBox[{"pupper", "+", "mval"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "resultTbl", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655240338328443*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV3", "[", RowBox[{"1", ",", "1", ",", "2", ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV3", "[", RowBox[{"2", ",", RowBox[{"4", "-", RowBox[{"3", " ", "z"}]}], ",", RowBox[{"x", "+", "5"}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV3", "[", RowBox[{"3", ",", RowBox[{"11", "-", RowBox[{"17", " ", "z"}], "+", RowBox[{"7", " ", SuperscriptBox["z", "2"]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"6", "+", "x"}], ")"}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV3", "[", RowBox[{"4", ",", RowBox[{"26", "-", RowBox[{"62", " ", "z"}], "+", RowBox[{"52", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"15", " ", SuperscriptBox["z", "3"]}]}], ",", RowBox[{"162", "+", RowBox[{"96", " ", "x"}], "+", RowBox[{"18", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV3", "[", RowBox[{"5", ",", RowBox[{"57", "-", RowBox[{"186", " ", "z"}], "+", RowBox[{"238", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"139", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"31", " ", SuperscriptBox["z", "4"]}]}], ",", RowBox[{"1392", "+", RowBox[{"1008", " ", "x"}], "+", RowBox[{"264", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"28", " ", SuperscriptBox["x", "3"]}], "+", SuperscriptBox["x", "4"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV3", "[", RowBox[{"6", ",", RowBox[{"120", "-", RowBox[{"501", " ", "z"}], "+", RowBox[{"868", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"769", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"346", " ", SuperscriptBox["z", "4"]}], "-", RowBox[{"63", " ", SuperscriptBox["z", "5"]}]}], ",", RowBox[{"14520", "+", RowBox[{"11880", " ", "x"}], "+", RowBox[{"3840", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"580", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"40", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "5"]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240334772335*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] ", "Generating the Sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "p"], "-", "1"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.647956864141124*^9}], ": (Last Table)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, 3.653254329788767*^9, {3.653254384416706*^9, 3.653254386737912*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox[ RowBox[{ "Examples", " ", "leading", " ", "to", " ", "the", " ", "expansions", " ", "of", " ", "the", " ", "generalized", " ", "symbolic", " ", "expansions", " ", "with", " ", "respect", " ", "to", " ", "s", " ", "for", " ", "the", " ", "last", " ", "table", " ", RowBox[{"data", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653254510735791*^9, 3.653254518694769*^9}, {3.653254561690373*^9, 3.653254573866613*^9}, {3.6532548854988728`*^9, 3.65325490335069*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Numerator", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}]}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"s", "^", "2"}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"z", "^", "_"}]}], "}"}], ",", "FactorTerms"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"mtable", " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552402418779716`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Numerator", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}]}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"s", "^", "2"}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"s", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"mtable", " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552402511109657`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"Power", "[", RowBox[{"s", ",", "2"}], "]"}]}], "*", RowBox[{ RowBox[{"-", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], ",", RowBox[{"Exp", "[", RowBox[{"s", " ", "x"}], "]"}]}], "]"}]}], "/", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"s", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"mtable", " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552402573069572`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", RowBox[{"r", "-", "1"}], "]"}], "/", RowBox[{"Power", "[", RowBox[{"s", ",", "2"}], "]"}]}], "*", RowBox[{ RowBox[{"-", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], ",", RowBox[{"Exp", "[", RowBox[{"s", " ", "x"}], "]"}]}], "]"}]}], "/", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"s", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"mtable", " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240263482472*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Gen2PowTableV4", "[", RowBox[{"mval_", ",", "s_", ",", "leadingTermGF_", ",", "cmsxFn_", ",", RowBox[{"pupper_:", "10"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"leadingTermGFz", ",", "expGFFnx"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"leadingTermGFz", "=", RowBox[{"Function", "[", RowBox[{"z", ",", RowBox[{"leadingTermGF", "*", RowBox[{ RowBox[{"Power", "[", RowBox[{"s", ",", "2"}], "]"}], "/", RowBox[{"Power", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"s", " ", "z"}]}], ",", "mval"}], "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"expGFFnx", "=", RowBox[{"Function", "[", RowBox[{"x", ",", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"s", "+", "1"}], ",", RowBox[{"mval", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "*", "x"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{"s", ",", "2"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"mval", "-", "1"}], "]"}]}], "*", RowBox[{"Exp", "[", RowBox[{"s", " ", "x"}], "]"}], "*", "cmsxFn"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"resultTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "m"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"s", "+", "1"}], ",", "p"}], "]"}], "-", "1"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"expGFFnx", "[", "x", "]"}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", RowBox[{"-", "1"}], ",", RowBox[{"p", "-", "mval", "-", "1"}], ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"s", "+", "1"}], ",", "p"}], "]"}], "-", "1"}], "]"}], "-", RowBox[{"FS", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"leadingTermGFz", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}]}], "]"}], "+", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"expGFFnx", "[", "x", "]"}], ")"}], "*", RowBox[{"Conv", "[", RowBox[{"p", ",", "1", ",", "1", ",", RowBox[{"z", "/", "x"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"p", "-", "mval", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"mval", "+", "1"}], ",", RowBox[{"pupper", "+", "mval"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "resultTbl", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655240267389578*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"pupper", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV4", "[", RowBox[{"1", ",", "s", ",", "1", ",", "1", ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV4", "[", RowBox[{"2", ",", "s", ",", RowBox[{"3", "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "z"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["s", "2"], " ", "z"}]}], ",", RowBox[{"3", "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV4", "[", RowBox[{"3", ",", "s", ",", RowBox[{"6", "+", RowBox[{ SuperscriptBox["s", "4"], " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"4", " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "3"], " ", "z", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", " ", "z"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"7", " ", "z"}], "+", RowBox[{"3", " ", SuperscriptBox["z", "2"]}]}], ")"}]}]}], ",", RowBox[{"12", "+", RowBox[{"8", " ", "s", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"]}], ")"}]}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV4", "[", RowBox[{"4", ",", "s", ",", RowBox[{"10", "-", RowBox[{ SuperscriptBox["s", "6"], " ", SuperscriptBox["z", "3"]}], "-", RowBox[{"10", " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["s", "5"], " ", SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "z"}]}], ")"}]}], "+", RowBox[{"5", " ", SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"5", " ", "z"}], "+", RowBox[{"3", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["s", "4"], " ", "z", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"13", " ", "z"}], "+", RowBox[{"6", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "3"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"14", " ", "z"}], "+", RowBox[{"21", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["z", "3"]}]}], ")"}]}]}], ",", RowBox[{"60", "+", RowBox[{"60", " ", "s", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], "+", RowBox[{"15", " ", SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "3"], " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"6", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}]}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gen2PowTableV4", "[", RowBox[{"5", ",", "s", ",", RowBox[{"15", "+", RowBox[{ SuperscriptBox["s", "8"], " ", SuperscriptBox["z", "4"]}], "-", RowBox[{"20", " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "7"], " ", SuperscriptBox["z", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"5", " ", "z"}]}], ")"}]}], "+", RowBox[{"5", " ", SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"13", " ", "z"}], "+", RowBox[{"9", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "6"], " ", SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"21", " ", "z"}], "+", RowBox[{"10", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], "-", RowBox[{"3", " ", SuperscriptBox["s", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"18", " ", "z"}], "-", RowBox[{"27", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["z", "3"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "5"], " ", "z", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"33", " ", "z"}], "-", RowBox[{"44", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["z", "3"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "4"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"23", " ", "z"}], "+", RowBox[{"73", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"46", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"5", " ", SuperscriptBox["z", "4"]}]}], ")"}]}]}], ",", RowBox[{"360", "+", RowBox[{"480", " ", "s", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], "+", RowBox[{"180", " ", SuperscriptBox["s", "2"], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"]}], ")"}]}], "+", RowBox[{"24", " ", SuperscriptBox["s", "3"], " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"6", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["s", "4"], " ", RowBox[{"(", RowBox[{"24", "+", RowBox[{"24", " ", "x"}], "+", RowBox[{"12", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "+", SuperscriptBox["x", "4"]}], ")"}]}]}], ",", "pupper"}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65524028701453*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the Sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["2", "p"], "-", "1"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.647956864141124*^9}], ": (Second Tables)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, 3.65325434192988*^9, {3.653254392129184*^9, 3.653254397257183*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "1"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Numerator", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}]}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"s", "^", "2"}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552401490438957`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "1"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Factor", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"sval", "+", "1"}], ",", RowBox[{"r", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"sval", "+", "1"}], ")"}], "*", "x"}], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Power", "[", RowBox[{"sval", ",", "2"}], "]"}]}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"sval", "*", "x"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"r", "-", "1"}], "]"}]}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", RowBox[{"x", "/", "sval"}]}], ")"}]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"x", "^", "_"}], ",", "Factor"}], "]"}], "&"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240152996498*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the Sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["3", "p"], "-", "1"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.647956864141124*^9}], ": (Second Tables)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, 3.65325434192988*^9, {3.653254392129184*^9, 3.653254406918755*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "2"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Numerator", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}]}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"s", "^", "2"}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552401635300426`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "2"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Factor", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"sval", "+", "1"}], ",", RowBox[{"r", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"sval", "+", "1"}], ")"}], "*", "x"}], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Power", "[", RowBox[{"sval", ",", "2"}], "]"}]}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"sval", "*", "x"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"r", "-", "1"}], "]"}]}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", RowBox[{"x", "/", "sval"}]}], ")"}]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"x", "^", "_"}], ",", "Factor"}], "]"}], "&"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240166892487*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the Sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["4", "p"], "-", "1"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.647956864141124*^9}], ": (Second Tables)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, 3.65325434192988*^9, {3.653254392129184*^9, 3.653254409926395*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "3"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Numerator", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}]}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"s", "^", "2"}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.6552401779855433`*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "3"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Factor", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"sval", "+", "1"}], ",", RowBox[{"r", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"sval", "+", "1"}], ")"}], "*", "x"}], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Power", "[", RowBox[{"sval", ",", "2"}], "]"}]}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"sval", "*", "x"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"r", "-", "1"}], "]"}]}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", RowBox[{"x", "/", "sval"}]}], ")"}]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"x", "^", "_"}], ",", "Factor"}], "]"}], "&"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240184843679*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Generating the Sequences, ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["5", "p"], "-", "1"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.647956864141124*^9}], ": (Second Tables)" }], "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, 3.65325434192988*^9, {3.653254392129184*^9, 3.6532544129479027`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "4"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Numerator", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "r"}], "]"}], "*", RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "z"}], "]"}]}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"s", "^", "2"}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240112984671*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"sval", "=", "4"}], ";", RowBox[{"rupper", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sums", "[", RowBox[{"p", ",", "r"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Factor", "[", RowBox[{"FS", "[", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"p", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"p", "+", "1", "-", "i"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "r"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"(", RowBox[{"p", "\[Rule]", RowBox[{"p", "+", "r", "+", "1"}]}], ")"}]}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"sval", "+", "1"}], ",", RowBox[{"r", "+", "1"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"sval", "+", "1"}], ")"}], "*", "x"}], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Power", "[", RowBox[{"sval", ",", "2"}], "]"}]}], "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"sval", "*", "x"}], "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"r", "-", "1"}], "]"}]}]}], ")"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"x", "\[Rule]", RowBox[{"x", "/", "sval"}]}], ")"}]}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"FE", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Factorial", "[", "p", "]"}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "r", "-", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"k", "+", "1"}], "]"}]}], "/", RowBox[{"Factorial", "[", RowBox[{"p", "-", "1", "-", "k"}], "]"}]}], "*", RowBox[{"Power", "[", RowBox[{"s", ",", RowBox[{"k", "+", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"p", "-", "r", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "p", ",", "x"}], "]"}], "/.", RowBox[{"(", RowBox[{"s", "\[Rule]", "sval"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"Power", "[", RowBox[{"x", ",", RowBox[{"r", "+", "1"}]}], "]"}], ")"}]}], ",", RowBox[{"Exp", "[", "_", "]"}], ",", RowBox[{ RowBox[{"Collect", "[", RowBox[{"#1", ",", RowBox[{"x", "^", "_"}], ",", "Factor"}], "]"}], "&"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "rupper"}], "}"}]}], "]"}], " ", "//", " ", "TF"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655240116960772*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.7", FontVariations->{"Underline"->True}], ": \n The Auxilliary Convergent Numerator Function Subsequences, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", RowBox[{"h", ",", "n"}]], "(", RowBox[{"\[Alpha]", ",", "R"}], ")"}], TraditionalForm]], "Output", CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], ": (", StyleBox["See Section 5 above", FontSlant->"Italic"], ")" }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.6528350900797873`*^9}, { 3.652836542612009*^9, 3.6528365442737427`*^9}, {3.652845376484714*^9, 3.652845416999218*^9}, {3.652855327630331*^9, 3.6528553715013847`*^9}, { 3.653250510061714*^9, 3.653250512182755*^9}, {3.6532693572907124`*^9, 3.653269365511806*^9}, {3.653269449111738*^9, 3.653269449276826*^9}, { 3.6532697138004208`*^9, 3.653269715076832*^9}, {3.6552389924200153`*^9, 3.655238992592814*^9}, {3.655240062147623*^9, 3.65524006299475*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Expansions of the polynomials in h only:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.653250008139835*^9, 3.653250030381094*^9}, {3.653251442984248*^9, 3.6532514442900248`*^9}, {3.653270058817382*^9, 3.653270071193459*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"GetPolyHOnlyTableDataV1", "[", "nupper_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Factor", "[", RowBox[{"FE", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[GreaterEqual]", "i"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"h", ",", "k"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"m", ",", "t"}], "]"}], " ", RowBox[{"S1", "[", RowBox[{"k", ",", "m"}], "]"}], "*", RowBox[{"S1", "[", RowBox[{ RowBox[{"n", "-", "k"}], ",", RowBox[{"s", "-", "t"}]}], "]"}], "*", RowBox[{"S2", "[", RowBox[{"s", ",", "i"}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"m", "+", "s", "-", "i"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{ RowBox[{"h", "-", "1"}], ",", RowBox[{"m", "-", "t"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "s"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "n"}], "]"}], "/", RowBox[{"Factorial", "[", "n", "]"}]}], "*", RowBox[{"Binomial", "[", RowBox[{"n", ",", "i"}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"h", "-", "n", "+", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], "]"}]}], ")"}]}], ",", "0"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nupper"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "nupper"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetPolyHOnlyTableDataV2", "[", "nupper_", "]"}], ":=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"#1", ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"h", "-", RowBox[{"(", RowBox[{ RowBox[{"First", "[", "#2", "]"}], "-", "1"}], ")"}], "+", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"First", "[", "#2", "]"}], "-", "1", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"First", "[", "#2", "]"}], "-", "1"}]}], "]"}], "&"}], ",", RowBox[{"GetPolyHOnlyTableDataV1", "[", "nupper", "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GetPolyHOnlyTableDataFull", "[", "nupper_", "]"}], ":=", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"GetPolyHOnlyTableDataV2", "[", "nupper", "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", SubscriptBox["m", RowBox[{"n", ",", "h"}]], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["p", RowBox[{"n", ",", "ii"}]], "[", "h", "]"}], ",", " ", RowBox[{"{", RowBox[{"ii", ",", " ", "0", ",", " ", "nupper"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PolyHOnlyTable", "[", "nupper_", "]"}], ":=", RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"GetPolyHOnlyTableDataFull", "[", "nupper", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Green", ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.8"}], "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "Center", ",", "Left", ",", "Left", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center", ",", "Left", ",", "Center", ",", "Center"}], "}"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], "}"}]}]}], "]"}]}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655240492034329*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"nupper", "=", "7"}], ";"}], "\[IndentingNewLine]", RowBox[{"PolyHOnlyTable", "[", "nupper", "]"}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.65524049566572*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ special case where n := 0:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.653250008139835*^9, 3.653250030381094*^9}, {3.653251442984248*^9, 3.6532514442900248`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "0"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "nval", ",", "a", ",", "R"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "hupper"}], "}"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.655240505695315*^9, { 3.6552421829131393`*^9, 3.655242188648682*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1], CellLabel->"In[101]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The other \ special cases where n \[GreaterEqual] 1:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.6525308712499847`*^9}, {3.6525314339493923`*^9, 3.652531439170874*^9}, {3.653250038553503*^9, 3.653250039842808*^9}, { 3.653251449662981*^9, 3.6532514498487988`*^9}, {3.655242208049321*^9, 3.655242212290737*^9}, {3.655242326135316*^9, 3.655242352499793*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ RowBox[{ RowBox[{"printChnTableFormula", "[", RowBox[{"nval_", ",", "knownFactors_", ",", "hupper_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "chnTbl", ",", "chnFormula", ",", "chnFormulav2", ",", "outTriple", ",", "outTripleFn", ",", "chnComputedFormulaDiffsTbl"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"chnTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{"Chn", "[", RowBox[{"h", ",", "nval", ",", "a", ",", "R"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"h", ",", "nval", ",", "hupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"chnFormula", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{"FindSequenceFunction", "[", RowBox[{"chnTbl", ",", "h"}], "]"}], "/.", RowBox[{"(", RowBox[{"h", "\[Rule]", RowBox[{"h", "-", "nval", "+", "1"}]}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"chnFormulav2", "=", RowBox[{"FS", "[", RowBox[{"Cancel", "[", RowBox[{"chnFormula", "/", "knownFactors"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outTriple", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"NVal", ",", "nval"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"KnownFactors", ",", "knownFactors"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"KnownFactorsDiff", ",", RowBox[{"FS", "[", RowBox[{"knownFactors", "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", "nval"}], "]"}], "/", RowBox[{"Factorial", "[", "nval", "]"}]}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"h", "-", "nval", "+", "j"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"nval", "-", "2"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], "]"}]}], ")"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ChnFormulaV11", ",", "chnFormula"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ChnFormulaV21", ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Expand", "[", "chnFormulav2", "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "\[Alpha]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"R", ",", RowBox[{"R", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ChnFormulaV22", ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Expand", "[", "chnFormulav2", "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "\[Alpha]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"h", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ChnFormulaV12", ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Expand", "[", RowBox[{"chnFormula", "*", RowBox[{"Factorial", "[", "nval", "]"}]}], "]"}], "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "\[Alpha]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"h", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"outTripleFn", "[", RowBox[{"hidx_", ",", "alpha_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"outTriple", "/.", RowBox[{"(", RowBox[{"h", "\[Rule]", "hidx"}], ")"}]}], "/.", RowBox[{"(", RowBox[{"\[Alpha]", "\[Rule]", "alpha"}], ")"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"chnComputedFormulaDiffsTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", "nval", ",", "a", ",", "R"}], "]"}], "/", "knownFactors"}], ")"}], "-", RowBox[{"Last", "[", RowBox[{ RowBox[{"outTripleFn", "[", RowBox[{"h", ",", "a"}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"FS", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", "nval", ",", "a", ",", "R"}], "]"}], "/", "knownFactors"}], ")"}], "-", RowBox[{"Last", "[", RowBox[{ RowBox[{"outTripleFn", "[", RowBox[{"h", ",", "a"}], "]"}], "[", RowBox[{"[", "6", "]"}], "]"}], "]"}]}], " ", "]"}], ",", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Chn", "[", RowBox[{"h", ",", "nval", ",", "a", ",", "R"}], "]"}], "*", RowBox[{"Factorial", "[", "nval", "]"}]}], ")"}], "-", RowBox[{"Last", "[", RowBox[{ RowBox[{"outTripleFn", "[", RowBox[{"h", ",", "a"}], "]"}], "[", RowBox[{"[", "7", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"R", "^", "_"}], ",", "FS"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"nval", "+", "1"}], ",", "hupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"TeXForm", "[", RowBox[{"StandardForm", "[", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "&"}], ",", "outTriple"}], "]"}], ",", RowBox[{"{", RowBox[{"ComputedFormulaDiffsTable", ",", RowBox[{"TF", "[", "chnComputedFormulaDiffsTbl", "]"}]}], "}"}]}], "]"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",\ CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655242236477673*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "n"}], ":=", RowBox[{"1", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655242281472518*^9, 3.65524228350301*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "1"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printChnTableFormula", "[", RowBox[{"nval", ",", "knownFactors", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655242251588932*^9, 3.6552422609319973`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "n"}], ":=", RowBox[{"2", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655242281472518*^9, 3.655242295030448*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "2"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", RowBox[{ RowBox[{"1", "/", "2"}], "*", RowBox[{"(", RowBox[{"h", "-", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printChnTableFormula", "[", RowBox[{"nval", ",", "knownFactors", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655242251588932*^9, 3.6552422609319973`*^9}, {3.6552422974868383`*^9, 3.655242309113307*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "n"}], ":=", RowBox[{"2", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655242281472518*^9, 3.655242295030448*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "2"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", RowBox[{ RowBox[{"1", "/", "2"}], "*", RowBox[{"(", RowBox[{"h", "-", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printChnTableFormula", "[", RowBox[{"nval", ",", "knownFactors", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655242251588932*^9, 3.6552422609319973`*^9}, {3.6552422974868383`*^9, 3.655242309113307*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "n"}], ":=", RowBox[{"3", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655242281472518*^9, 3.655242295030448*^9}, { 3.655242378432119*^9, 3.655242378634446*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "3"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "6"}], "*", RowBox[{"(", RowBox[{"h", "-", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printChnTableFormula", "[", RowBox[{"nval", ",", "knownFactors", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655242251588932*^9, 3.6552422609319973`*^9}, {3.6552422974868383`*^9, 3.655242309113307*^9}, { 3.655242381003709*^9, 3.655242391248527*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "n"}], ":=", RowBox[{"4", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655242281472518*^9, 3.655242295030448*^9}, { 3.655242378432119*^9, 3.655242378634446*^9}, {3.655242413967029*^9, 3.655242414129805*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "4"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", RowBox[{ RowBox[{"1", "/", "24"}], "*", RowBox[{"(", RowBox[{"h", "-", "3"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printChnTableFormula", "[", RowBox[{"nval", ",", "knownFactors", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655242251588932*^9, 3.6552422609319973`*^9}, {3.6552422974868383`*^9, 3.655242309113307*^9}, { 3.655242381003709*^9, 3.655242428932955*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "n"}], ":=", RowBox[{"5", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655242281472518*^9, 3.655242295030448*^9}, { 3.655242378432119*^9, 3.655242378634446*^9}, {3.655242434463578*^9, 3.6552424345864363`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "5"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "120"}], "*", RowBox[{"(", RowBox[{"h", "-", "3"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "4"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "5"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printChnTableFormula", "[", RowBox[{"nval", ",", "knownFactors", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655242251588932*^9, 3.6552422609319973`*^9}, {3.6552422974868383`*^9, 3.655242309113307*^9}, { 3.655242381003709*^9, 3.655242391248527*^9}, {3.655242432135048*^9, 3.655242445660872*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "n"}], ":=", RowBox[{"6", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, {3.655242281472518*^9, 3.655242295030448*^9}, { 3.655242378432119*^9, 3.655242378634446*^9}, {3.655242434463578*^9, 3.655242455757791*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"nval", "=", "6"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "nval"}]}], ";", RowBox[{"knownFactors", "=", RowBox[{ RowBox[{"1", "/", "720"}], "*", RowBox[{"(", RowBox[{"h", "-", "4"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "5"}], ")"}], "*", RowBox[{"(", RowBox[{"h", "-", "6"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printChnTableFormula", "[", RowBox[{"nval", ",", "knownFactors", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, {3.655242251588932*^9, 3.6552422609319973`*^9}, {3.6552422974868383`*^9, 3.655242309113307*^9}, { 3.655242381003709*^9, 3.655242391248527*^9}, {3.655242432135048*^9, 3.6552424642373943`*^9}, {3.6552619263576508`*^9, 3.655261926616596*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]\[FilledRightTriangle] ", StyleBox["Table A.8", FontVariations->{"Underline"->True}], ": \n The Auxilliary Convergent Numerator Function Subsequences, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["R", RowBox[{"h", ",", "k"}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], ": (", StyleBox["See Section 5 above", FontSlant->"Italic"], ")\n Special Cases of the auxiliary numerator subsequences, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["R", RowBox[{"h", ",", "k"}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], ", in the following forms:\n ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"h", "-", "k"}]], " ", SuperscriptBox["z", RowBox[{"k", "-", "h"}]], " ", "\[Times]", " ", RowBox[{ SubscriptBox["R", RowBox[{"h", ",", RowBox[{"h", "-", "k"}]}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}]}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], " and k! \[Times] ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"h", "-", "k"}]], " ", SuperscriptBox["z", RowBox[{"k", "-", "h"}]], " ", "\[Times]", " ", RowBox[{ SubscriptBox["R", RowBox[{"h", ",", RowBox[{"h", "-", "k"}]}]], "(", RowBox[{"\[Alpha]", ",", "z"}], ")"}]}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6479339798278217`*^9}, FontWeight->"Bold"], ": " }], "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, {3.652835066457321*^9, 3.6528350900797873`*^9}, { 3.652836542612009*^9, 3.6528365442737427`*^9}, {3.652845376484714*^9, 3.6528454388465023`*^9}, {3.652855329305999*^9, 3.6528553734808292`*^9}, { 3.653250514472884*^9, 3.653250517506002*^9}, {3.653269378216483*^9, 3.653269379138755*^9}, {3.653269658119248*^9, 3.653269671468987*^9}, { 3.655238995284062*^9, 3.6552389954334497`*^9}, {3.655240065752553*^9, 3.6552400674919567`*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The \ special case where k := 1:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.653250087856895*^9, 3.6532500922682247`*^9}, {3.653251463613771*^9, 3.653251463871191*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[{ RowBox[{ RowBox[{"kval", "=", "1"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "kval"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"rhkFormula", "=", RowBox[{ RowBox[{ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"h", "-", "kval"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "kval"}], ")"}]}]}], "]"}], "*", RowBox[{"Rhk", "[", RowBox[{"h", ",", RowBox[{"h", "-", "kval"}], ",", "a", ",", "R"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"h", ",", "kval", ",", "hupper"}], "}"}]}], "]"}], ",", "h"}], "]"}], "/.", RowBox[{"(", RowBox[{"h", "\[Rule]", RowBox[{"h", "-", "kval", "+", "1"}]}], ")"}]}], " ", "//", " ", "FS"}]}]}], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9, 3.655242592032166*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] The other \ special cases where k \[GreaterEqual] 2:\ \>", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.6525356790500183`*^9, 3.6525356791798067`*^9}, {3.6532500970898046`*^9, 3.653250098084848*^9}, 3.6532514654522533`*^9, {3.6552425629765797`*^9, 3.6552425816811247`*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ RowBox[{ RowBox[{"printRhkTableFormula", "[", RowBox[{"kval_", ",", "hupper_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "rhkTbl", ",", "rhkFormula", ",", "zexpv1", ",", "hexpv1", ",", "alphaexpv1", ",", "zexpv2", ",", "hexpv2", ",", "alphaexpv2", ",", "outTriple", ",", "outTriplev2", ",", "rhkComputedFormulaDiffsTbl", ",", "outTriplePrintLabels", ",", "rhkPrintData"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rhkTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FS", "[", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"h", "-", "kval"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "kval"}], ")"}]}]}], "]"}], "*", RowBox[{"Rhk", "[", RowBox[{"h", ",", RowBox[{"h", "-", "kval"}], ",", "a", ",", "R"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"h", ",", "kval", ",", "hupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhkFormula", "=", RowBox[{"FS", "[", RowBox[{ RowBox[{"FindSequenceFunction", "[", RowBox[{"rhkTbl", ",", "h"}], "]"}], "/.", RowBox[{"(", RowBox[{"h", "\[Rule]", RowBox[{"h", "-", "kval", "+", "1"}]}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"zexpv1", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "rhkFormula", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"z", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hexpv1", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "rhkFormula", "]"}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"h", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"alphaexpv1", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", "rhkFormula", "]"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"zexpv2", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"rhkFormula", "*", RowBox[{"Factorial", "[", "kval", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"z", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hexpv2", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"rhkFormula", "*", RowBox[{"Factorial", "[", "kval", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"h", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"alphaexpv2", "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"rhkFormula", "*", RowBox[{"Factorial", "[", "kval", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "^", "_"}]}], "}"}], ",", "Factor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outTriple", "=", RowBox[{"{", RowBox[{ "zexpv1", ",", "hexpv1", ",", "alphaexpv1", ",", "zexpv2", ",", "hexpv2", ",", "alphaexpv2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhkComputedFormulaDiffsTbl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Index", "\[Rule]", "h"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Rhk", "[", RowBox[{"h", ",", RowBox[{"h", "-", "kval"}], ",", "a", ",", "R"}], "]"}], "-", RowBox[{ RowBox[{"outTriple", "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"h", "-", "kval"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "kval"}], ")"}]}]}], "]"}]}], ")"}]}]}], " ", "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Rhk", "[", RowBox[{"h", ",", RowBox[{"h", "-", "kval"}], ",", "a", ",", "R"}], "]"}], "-", RowBox[{ RowBox[{"outTriple", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"h", "-", "kval"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "kval"}], ")"}]}]}], "]"}]}], ")"}]}]}], " ", "]"}], ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"Rhk", "[", RowBox[{"h", ",", RowBox[{"h", "-", "kval"}], ",", "a", ",", "R"}], "]"}], "*", RowBox[{"Factorial", "[", "kval", "]"}]}], "-", RowBox[{ RowBox[{"outTriple", "[", RowBox[{"[", "6", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"h", "-", "kval"}]}], "]"}], "*", RowBox[{"Power", "[", RowBox[{"z", ",", RowBox[{"-", RowBox[{"(", RowBox[{"h", "-", "kval"}], ")"}]}]}], "]"}]}], ")"}]}]}], " ", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "kval", ",", "hupper"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outTriplev2", "=", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"outTriple", ",", "rhkFormula"}], "]"}], ",", "kval"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outTriplePrintLabels", "=", RowBox[{"{", RowBox[{"KVal", ",", "RkhFormulaV1", ",", RowBox[{"RkhFormulaCollectBy", "[", "z", "]"}], ",", RowBox[{"RkhFormulaCollectBy", "[", "h", "]"}], ",", RowBox[{"RkhFormulaCollectBy", "[", "a", "]"}], ",", RowBox[{"RkhFormulaV2CollectBy", "[", "z", "]"}], ",", RowBox[{"RkhFormulaV2CollectBy", "[", "h", "]"}], ",", RowBox[{"RkhFormulaV2CollectBy", "[", "a", "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhkPrintData", "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"outTriplePrintLabels", "[", RowBox[{"[", RowBox[{"First", "[", "#2", "]"}], "]"}], "]"}], ",", RowBox[{"CF", "[", RowBox[{"{", RowBox[{"#1", ",", RowBox[{"TeXForm", "[", RowBox[{"StandardForm", "[", "#1", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "&"}], ",", RowBox[{"outTriplev2", "/.", RowBox[{"(", RowBox[{"a", "\[Rule]", "\[Alpha]"}], ")"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"ComputedFormulaDiffsTable", ",", RowBox[{"TF", "[", "rhkComputedFormulaDiffsTbl", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TF", "[", "rhkPrintData", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9, 3.655243910925085*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "k"}], ":=", RowBox[{"2", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.6552426154947233`*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"kval", "=", "2"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "kval"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRhkTableFormula", "[", RowBox[{"kval", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.65524263446673*^9, { 3.6552438513153257`*^9, 3.655243867727437*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "k"}], ":=", RowBox[{"3", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.6552426154947233`*^9, {3.6552438825112343`*^9, 3.655243882721129*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"kval", "=", "3"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "kval"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRhkTableFormula", "[", RowBox[{"kval", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.65524263446673*^9, { 3.6552438513153257`*^9, 3.655243885210726*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "k"}], ":=", RowBox[{"4", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.6552426154947233`*^9, {3.655243889747744*^9, 3.6552438898625937`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"kval", "=", "4"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "kval"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRhkTableFormula", "[", RowBox[{"kval", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.65524263446673*^9, { 3.6552438513153257`*^9, 3.655243887246472*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"The", " ", "special", " ", "case", " ", "where", " ", "k"}], ":=", RowBox[{"5", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9, 3.6552426154947233`*^9, {3.65524389245207*^9, 3.6552438926941423`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[{ RowBox[{ RowBox[{"kval", "=", "5"}], ";", RowBox[{"hupper", "=", RowBox[{"16", "+", "kval"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"printRhkTableFormula", "[", RowBox[{"kval", ",", "hupper"}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{ 3.654882610804809*^9, 3.654920369414369*^9, 3.65524263446673*^9, { 3.6552438513153257`*^9, 3.6552438948573093`*^9}}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " \[FilledRightTriangle]", StyleBox[" Input Cell Data Used to Create this Notebook: ", FontSize->24] }], "Section", CellChangeTimes->{{3.647851524728778*^9, 3.647851562288278*^9}, { 3.647851673458769*^9, 3.6478516754327707`*^9}, {3.64785229489474*^9, 3.647852310722492*^9}, 3.647852845363914*^9, {3.6525171718028316`*^9, 3.652517266936874*^9}, {3.6525173233277187`*^9, 3.652517329122237*^9}, { 3.652522225861567*^9, 3.6525222641221*^9}, 3.652522308466014*^9, { 3.652834986699038*^9, 3.6528350548647127`*^9}, {3.652970598651545*^9, 3.652970622889203*^9}, {3.653251286393105*^9, 3.6532513285029573`*^9}}, FontColor->GrayLevel[0], Background->RGBColor[0., 1., 0.]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle] Subsection:", "Subsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525256632130823`*^9, 3.652525664760097*^9}, {3.652954947029806*^9, 3.652954994104177*^9}, {3.652955024619289*^9, 3.652955036603868*^9}, { 3.6529550693097267`*^9, 3.652955082836746*^9}, 3.652955416676663*^9, 3.652955470633924*^9, 3.6532487769304457`*^9, {3.653248954393446*^9, 3.653248955424737*^9}, {3.653249506055772*^9, 3.6532495067305613`*^9}, { 3.65325040709035*^9, 3.6532504084557257`*^9}, {3.653251330790032*^9, 3.653251335792583*^9}}, Background->RGBColor[0.4980392156862745, 1., 0.615686274509804]], Cell[CellGroupData[{ Cell[" \[FilledRightTriangle]\[FilledRightTriangle]\[FilledRightTriangle] \ Subsubsection:", "Subsubsection", CellFrame->{{1, 1}, {3, 6}}, CellChangeTimes->{{3.652520497862533*^9, 3.652520526447832*^9}, 3.652520898695879*^9, {3.652522355289919*^9, 3.652522370662972*^9}, 3.652522756348834*^9, 3.652523239048211*^9, 3.652523417428424*^9, 3.652523730322959*^9, {3.65252467406912*^9, 3.652524674565878*^9}, { 3.6525308384373827`*^9, 3.652530861536263*^9}, {3.6525312471193657`*^9, 3.652531257329565*^9}, {3.652531408198058*^9, 3.6525314270900087`*^9}, { 3.652535609085225*^9, 3.652535630526957*^9}, {3.652539274754472*^9, 3.652539383318604*^9}, {3.652539430847396*^9, 3.652539691577593*^9}, { 3.652540145086484*^9, 3.652540146884529*^9}, {3.652944523488736*^9, 3.652944567380434*^9}, {3.652948223500272*^9, 3.6529482241503773`*^9}, 3.653248922391487*^9, {3.653249502863822*^9, 3.6532495037995663`*^9}, { 3.6532513423875017`*^9, 3.653251344934911*^9}}, Background->RGBColor[0.8627450980392157, 1., 0.8980392156862745]], Cell[BoxData[ FormBox["Paragraph", TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653251352581189*^9, 3.65325135500904*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ FormBox[ RowBox[{"Input", " ", RowBox[{"code", ":"}]}], TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, { 3.652523982420308*^9, 3.652524017878051*^9}, {3.652524048909693*^9, 3.652524312068869*^9}, {3.652834386493297*^9, 3.6528344469696493`*^9}, { 3.652834507539033*^9, 3.6528345340992947`*^9}, {3.652834575507934*^9, 3.652834593817577*^9}, {3.652834730193808*^9, 3.652834814905444*^9}, { 3.652838859580162*^9, 3.6528389379181023`*^9}, 3.652947816835713*^9, { 3.653251364393401*^9, 3.653251367671743*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[""], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920369414369*^9}, FontSize->10, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[""], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920367106845*^9}, FontSize->10, Background->RGBColor[1, 0.9, 1]], Cell[BoxData[""], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920371849656*^9}, FontSize->10, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[""], "Input", CellFrame->True, CellChangeTimes->{3.654882610804809*^9, 3.654920373568322*^9}, FontSize->10, Background->RGBColor[1, 0.85, 0.85]], Cell[BoxData[ FormBox["", TraditionalForm]], "DisplayFormula", PageWidth->WindowWidth, CellFrame->{{4, 4}, {0, 0}}, CellDingbat->"\[Paragraph] ", CellChangeTimes->{{3.652520766680996*^9, 3.652520794562664*^9}, { 3.6525212296427927`*^9, 3.652521231266252*^9}, 3.652521570189398*^9, { 3.652521607146027*^9, 3.6525216457908*^9}, {3.652521800763163*^9, 3.652521850053089*^9}, {3.652522474934349*^9, 3.652522620762635*^9}, 3.652522652558474*^9, {3.65252282693027*^9, 3.6525228773571987`*^9}, 3.6529440343306503`*^9, {3.65294419047388*^9, 3.652944227926787*^9}, 3.654885762478115*^9}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{"(*", RowBox[{"*", " ", RowBox[{":", " ", RowBox[{ RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], " ", ":"}]}]}], " ", "**)"}]], "Input", CellChangeTimes->{{3.6456482720394497`*^9, 3.645648331700836*^9}, { 3.645648365826676*^9, 3.645648379229274*^9}}, FontSize->18, Background->RGBColor[0.87, 0.94, 1]] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{1361, 707}, WindowMargins->{{0, Automatic}, {0, Automatic}}, ShowSelection->True, FrontEndVersion->"8.0 for Linux x86 (64-bit) (October 10, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 617, 10, 119, "Title"], Cell[1199, 34, 594, 14, 70, "Subtitle"], Cell[1796, 50, 1740, 56, 117, "Subsubtitle"], Cell[CellGroupData[{ Cell[3561, 110, 555, 14, 70, "Subtitle"], Cell[4119, 126, 1449, 26, 135, "Subsubtitle"] }, Open ]], Cell[CellGroupData[{ Cell[5605, 157, 615, 14, 70, "Subtitle"], Cell[6223, 173, 967, 17, 91, "Subsubtitle"], Cell[7193, 192, 34177, 943, 1728, "Input"], Cell[CellGroupData[{ Cell[41395, 1139, 789, 16, 47, "Subsubtitle"], Cell[42187, 1157, 1491, 31, 130, "Input"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[43739, 1195, 711, 16, 103, "Title"], Cell[44453, 1213, 724, 16, 70, "Subtitle"], Cell[45180, 1231, 1345, 26, 113, "Subsubtitle"], Cell[CellGroupData[{ Cell[46550, 1261, 538, 11, 83, "Section"], Cell[CellGroupData[{ Cell[47113, 1276, 370, 7, 64, "Subsection"], Cell[47486, 1285, 1194, 31, 93, "DisplayFormula"], Cell[48683, 1318, 774, 23, 62, "Input"], Cell[49460, 1343, 1100, 24, 41, "DisplayFormula"], Cell[50563, 1369, 2402, 64, 104, "Input"], Cell[52968, 1435, 1201, 42, 58, "ItemParagraph"], Cell[54172, 1479, 1294, 34, 79, "Input"], Cell[55469, 1515, 3995, 107, 144, "DisplayFormula"], Cell[59467, 1624, 895, 24, 62, "Input"], Cell[60365, 1650, 2842, 87, 176, "DisplayFormula"], Cell[63210, 1739, 4737, 129, 96, "Input"], Cell[67950, 1870, 2067, 58, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[70054, 1933, 426, 8, 56, "Subsection"], Cell[70483, 1943, 2491, 75, 118, "DisplayFormula"], Cell[72977, 2020, 1228, 35, 62, "Input"], Cell[74208, 2057, 772, 15, 41, "DisplayFormula"], Cell[74983, 2074, 2005, 59, 79, "Input"], Cell[76991, 2135, 874, 19, 41, "DisplayFormula"], Cell[77868, 2156, 1886, 53, 79, "Input"], Cell[79757, 2211, 1145, 25, 57, "DisplayFormula"], Cell[80905, 2238, 715, 22, 62, "Input"], Cell[81623, 2262, 765, 23, 62, "Input"], Cell[82391, 2287, 769, 23, 62, "Input"], Cell[83163, 2312, 767, 23, 62, "Input"], Cell[83933, 2337, 3999, 143, 131, "DisplayFormula"], Cell[87935, 2482, 1637, 46, 79, "Input"], Cell[89575, 2530, 5568, 153, 147, "Input"], Cell[95146, 2685, 7562, 189, 204, "Input"], Cell[102711, 2876, 3654, 97, 155, "Input"], Cell[106368, 2975, 1551, 40, 57, "DisplayFormula"], Cell[107922, 3017, 3422, 93, 113, "Input"], Cell[111347, 3112, 3342, 99, 144, "DisplayFormula"], Cell[114692, 3213, 2020, 55, 103, "Input"], Cell[116715, 3270, 1749, 38, 88, "DisplayFormula"], Cell[118467, 3310, 3150, 90, 96, "Input"], Cell[121620, 3402, 2985, 86, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[124642, 3493, 441, 8, 56, "Subsection"], Cell[CellGroupData[{ Cell[125108, 3505, 1563, 23, 53, "Subsubsection"], Cell[126674, 3530, 1894, 54, 61, "DisplayFormula"], Cell[128571, 3586, 1305, 38, 79, "Input"], Cell[129879, 3626, 805, 19, 62, "Input"], Cell[130687, 3647, 755, 18, 62, "Input"], Cell[131445, 3667, 755, 18, 62, "Input"], Cell[132203, 3687, 755, 18, 62, "Input"], Cell[132961, 3707, 2858, 97, 86, "DisplayFormula"], Cell[135822, 3806, 1075, 33, 79, "Input"], Cell[136900, 3841, 606, 16, 62, "Input"], Cell[137509, 3859, 2739, 97, 86, "DisplayFormula"], Cell[140251, 3958, 1169, 35, 79, "Input"], Cell[CellGroupData[{ Cell[141445, 3997, 606, 16, 62, "Input"], Cell[CellGroupData[{ Cell[142076, 4017, 1235, 42, 53, "Print"], Cell[143314, 4061, 496, 16, 43, "Print"], Cell[143813, 4079, 1388, 40, 23, "Print"], Cell[145204, 4121, 985, 30, 23, "Print"], Cell[146192, 4153, 2327, 60, 108, "Print"], Cell[148522, 4215, 9212, 298, 43, "Print"], Cell[157737, 4515, 2328, 76, 469, "Print"] }, Open ]] }, Closed]], Cell[160092, 4595, 2839, 102, 88, "DisplayFormula"], Cell[162934, 4699, 1131, 33, 79, "Input"], Cell[164068, 4734, 606, 16, 62, "Input"], Cell[164677, 4752, 3269, 123, 88, "DisplayFormula"], Cell[167949, 4877, 1029, 30, 79, "Input"], Cell[168981, 4909, 606, 16, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[169624, 4930, 1734, 26, 64, "Subsubsection"], Cell[171361, 4958, 1384, 25, 41, "DisplayFormula"], Cell[172748, 4985, 2107, 62, 113, "Input"], Cell[174858, 5049, 2729, 72, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[177624, 5126, 1533, 24, 47, "Subsubsection"], Cell[179160, 5152, 3797, 118, 237, "DisplayFormula"], Cell[182960, 5272, 1221, 38, 79, "Input"], Cell[184184, 5312, 3623, 113, 177, "DisplayFormula"], Cell[187810, 5427, 5173, 145, 147, "Input"], Cell[192986, 5574, 2978, 88, 141, "DisplayFormula"], Cell[195967, 5664, 1195, 36, 96, "Input"], Cell[197165, 5702, 1191, 36, 96, "Input"], Cell[198359, 5740, 1431, 47, 151, "Input"], Cell[199793, 5789, 893, 18, 41, "DisplayFormula"], Cell[200689, 5809, 2880, 77, 164, "Input"], Cell[203572, 5888, 1216, 38, 79, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[204837, 5932, 440, 8, 56, "Subsection"], Cell[205280, 5942, 1223, 26, 61, "DisplayFormula"], Cell[206506, 5970, 1255, 35, 62, "Input"], Cell[207764, 6007, 1137, 23, 41, "DisplayFormula"], Cell[208904, 6032, 2765, 80, 96, "Input"], Cell[211672, 6114, 1294, 31, 61, "DisplayFormula"], Cell[212969, 6147, 1595, 46, 79, "Input"], Cell[214567, 6195, 917, 18, 41, "DisplayFormula"], Cell[215487, 6215, 3399, 87, 181, "Input"], Cell[218889, 6304, 1375, 42, 130, "Input"], Cell[220267, 6348, 1271, 38, 62, "Input"], Cell[221541, 6388, 1343, 31, 61, "DisplayFormula"], Cell[222887, 6421, 761, 23, 62, "Input"], Cell[223651, 6446, 1346, 31, 63, "DisplayFormula"], Cell[225000, 6479, 811, 24, 62, "Input"], Cell[225814, 6505, 1033, 20, 41, "DisplayFormula"], Cell[226850, 6527, 2750, 76, 96, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[229649, 6609, 791, 14, 53, "Section"], Cell[CellGroupData[{ Cell[230465, 6627, 496, 9, 64, "Subsection"], Cell[CellGroupData[{ Cell[230986, 6640, 1199, 19, 53, "Subsubsection"], Cell[232188, 6661, 3786, 107, 130, "Input"], Cell[235977, 6770, 2360, 52, 300, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[238374, 6827, 1227, 19, 47, "Subsubsection"], Cell[239604, 6848, 2596, 74, 113, "Input"], Cell[242203, 6924, 1233, 28, 181, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[243473, 6957, 1765, 35, 50, "Subsubsection"], Cell[245241, 6994, 1743, 49, 79, "Input"], Cell[246987, 7045, 1435, 42, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[248459, 7092, 1660, 35, 64, "Subsubsection"], Cell[250122, 7129, 728, 23, 62, "Input"], Cell[250853, 7154, 2642, 76, 96, "Input"], Cell[253498, 7232, 2741, 79, 106, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[256288, 7317, 505, 9, 56, "Subsection"], Cell[CellGroupData[{ Cell[256818, 7330, 1185, 18, 53, "Subsubsection"], Cell[258006, 7350, 1776, 37, 61, "DisplayFormula"], Cell[259785, 7389, 1101, 32, 96, "Input"], Cell[260889, 7423, 1125, 33, 96, "Input"], Cell[262017, 7458, 1539, 31, 41, "DisplayFormula"], Cell[263559, 7491, 1686, 52, 113, "Input"], Cell[265248, 7545, 1395, 24, 41, "DisplayFormula"], Cell[266646, 7571, 2422, 82, 111, "Input"], Cell[269071, 7655, 5189, 149, 179, "Input"], Cell[274263, 7806, 5237, 149, 179, "Input"], Cell[279503, 7957, 5235, 149, 179, "Input"], Cell[284741, 8108, 5235, 149, 179, "Input"], Cell[289979, 8259, 5235, 149, 179, "Input"], Cell[295217, 8410, 5235, 149, 179, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[300489, 8564, 1183, 18, 47, "Subsubsection"], Cell[301675, 8584, 1039, 30, 96, "Input"], Cell[302717, 8616, 3484, 111, 103, "Input"], Cell[306204, 8729, 5719, 189, 148, "Input"], Cell[311926, 8920, 1936, 56, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[313899, 8981, 1209, 18, 47, "Subsubsection"], Cell[315111, 9001, 1014, 29, 96, "Input"], Cell[316128, 9032, 6405, 197, 145, "Input"], Cell[322536, 9231, 11088, 358, 232, "Input"], Cell[333627, 9591, 1916, 55, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[335580, 9651, 1206, 18, 47, "Subsubsection"], Cell[336789, 9671, 1014, 29, 96, "Input"], Cell[337806, 9702, 10852, 322, 271, "Input"], Cell[348661, 10026, 19657, 605, 288, "Input"], Cell[368321, 10633, 1916, 55, 79, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[370286, 10694, 523, 9, 56, "Subsection"], Cell[370812, 10705, 2703, 70, 94, "DisplayFormula"], Cell[373518, 10777, 1217, 21, 41, "DisplayFormula"], Cell[374738, 10800, 623, 18, 79, "Input"], Cell[375364, 10820, 1113, 33, 62, "Input"], Cell[376480, 10855, 1186, 21, 41, "DisplayFormula"], Cell[377669, 10878, 3064, 91, 266, "Input"], Cell[380736, 10971, 2044, 60, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[382817, 11036, 474, 9, 56, "Subsection"], Cell[383294, 11047, 16727, 454, 742, "Input"], Cell[400024, 11503, 1140, 21, 41, "DisplayFormula"], Cell[401167, 11526, 487, 13, 62, "Input"], Cell[401657, 11541, 1140, 21, 41, "DisplayFormula"], Cell[402800, 11564, 514, 14, 62, "Input"], Cell[403317, 11580, 920, 19, 41, "DisplayFormula"], Cell[404240, 11601, 890, 27, 82, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[405167, 11633, 722, 13, 76, "Subsection"], Cell[405892, 11648, 1631, 35, 61, "DisplayFormula"], Cell[407526, 11685, 3691, 104, 113, "Input"], Cell[411220, 11791, 1080, 19, 41, "DisplayFormula"], Cell[412303, 11812, 3475, 97, 96, "Input"], Cell[415781, 11911, 1123, 20, 41, "DisplayFormula"], Cell[416907, 11933, 5166, 143, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[422110, 12081, 503, 9, 56, "Subsection"], Cell[422616, 12092, 7571, 217, 300, "Input"], Cell[430190, 12311, 1173, 23, 41, "DisplayFormula"], Cell[431366, 12336, 2199, 63, 96, "Input"], Cell[433568, 12401, 1117, 20, 41, "DisplayFormula"], Cell[434688, 12423, 1809, 52, 96, "Input"], Cell[436500, 12477, 1187, 21, 41, "DisplayFormula"], Cell[437690, 12500, 3004, 83, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[440731, 12588, 566, 10, 56, "Subsection"], Cell[441300, 12600, 844, 16, 41, "DisplayFormula"], Cell[442147, 12618, 4559, 132, 130, "Input"], Cell[446709, 12752, 877, 16, 41, "DisplayFormula"], Cell[447589, 12770, 3664, 98, 164, "Input"], Cell[451256, 12870, 1005, 18, 41, "DisplayFormula"], Cell[452264, 12890, 626, 19, 44, "Input"], Cell[452893, 12911, 626, 19, 44, "Input"], Cell[453522, 12932, 644, 19, 44, "Input"], Cell[454169, 12953, 644, 19, 44, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[454850, 12977, 564, 10, 56, "Subsection"], Cell[455417, 12989, 1095, 20, 41, "DisplayFormula"], Cell[456515, 13011, 2101, 59, 96, "Input"], Cell[458619, 13072, 1188, 21, 41, "DisplayFormula"], Cell[459810, 13095, 2273, 66, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[462120, 13166, 622, 10, 56, "Subsection"], Cell[462745, 13178, 1449, 26, 41, "DisplayFormula"], Cell[464197, 13206, 4675, 122, 147, "Input"], Cell[468875, 13330, 4459, 117, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[473371, 13452, 554, 10, 56, "Subsection"], Cell[473928, 13464, 4732, 123, 147, "Input"], Cell[478663, 13589, 4244, 117, 147, "Input"], Cell[482910, 13708, 4169, 116, 147, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[487128, 13830, 785, 15, 53, "Section"], Cell[CellGroupData[{ Cell[487938, 13849, 511, 9, 64, "Subsection"], Cell[488452, 13860, 1183, 25, 42, "DisplayFormula"], Cell[489638, 13887, 1899, 54, 79, "Input"], Cell[491540, 13943, 2263, 63, 130, "Input"], Cell[493806, 14008, 1956, 55, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[495799, 14068, 527, 9, 56, "Subsection"], Cell[496329, 14079, 1143, 20, 41, "DisplayFormula"], Cell[497475, 14101, 2046, 58, 79, "Input"], Cell[499524, 14161, 2096, 60, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[501657, 14226, 534, 9, 56, "Subsection"], Cell[502194, 14237, 1154, 21, 41, "DisplayFormula"], Cell[503351, 14260, 836, 27, 44, "Input"], Cell[504190, 14289, 1947, 61, 95, "Input"], Cell[506140, 14352, 1067, 19, 41, "DisplayFormula"], Cell[507210, 14373, 4409, 115, 212, "Input"], Cell[511622, 14490, 2155, 60, 110, "Input"], Cell[513780, 14552, 1928, 54, 108, "Input"], Cell[515711, 14608, 2019, 57, 110, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[517779, 14671, 930, 17, 53, "Section"], Cell[CellGroupData[{ Cell[518734, 14692, 530, 10, 64, "Subsection"], Cell[CellGroupData[{ Cell[519289, 14706, 1446, 22, 53, "Subsubsection"], Cell[520738, 14730, 1303, 38, 62, "Input"], Cell[522044, 14770, 1595, 46, 62, "Input"], Cell[523642, 14818, 7123, 205, 147, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[530802, 15028, 1406, 20, 47, "Subsubsection"], Cell[532211, 15050, 2113, 56, 79, "Input"], Cell[534327, 15108, 1926, 51, 79, "Input"], Cell[536256, 15161, 1994, 52, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[538287, 15218, 1412, 20, 47, "Subsubsection"], Cell[539702, 15240, 1845, 50, 96, "Input"], Cell[541550, 15292, 2065, 54, 96, "Input"], Cell[543618, 15348, 2015, 52, 96, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[545682, 15406, 550, 10, 56, "Subsection"], Cell[CellGroupData[{ Cell[546257, 15420, 1452, 22, 53, "Subsubsection"], Cell[547712, 15444, 1176, 21, 41, "DisplayFormula"], Cell[548891, 15467, 2850, 78, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[551778, 15550, 1842, 32, 50, "Subsubsection"], Cell[553623, 15584, 1917, 45, 86, "DisplayFormula"], Cell[555543, 15631, 1998, 58, 94, "DisplayFormula"], Cell[557544, 15691, 1637, 46, 79, "Input"], Cell[559184, 15739, 992, 30, 79, "Input"], Cell[560179, 15771, 1989, 57, 69, "DisplayFormula"], Cell[562171, 15830, 2407, 65, 130, "Input"], Cell[564581, 15897, 2314, 67, 94, "DisplayFormula"], Cell[566898, 15966, 1701, 48, 79, "Input"], Cell[568602, 16016, 992, 30, 79, "Input"], Cell[569597, 16048, 2340, 68, 94, "DisplayFormula"], Cell[571940, 16118, 1843, 51, 113, "Input"], Cell[573786, 16171, 957, 29, 62, "Input"], Cell[574746, 16202, 2628, 75, 94, "DisplayFormula"], Cell[577377, 16279, 2076, 57, 113, "Input"], Cell[579456, 16338, 957, 29, 62, "Input"], Cell[580416, 16369, 2677, 71, 130, "Input"], Cell[583096, 16442, 2700, 76, 94, "DisplayFormula"], Cell[585799, 16520, 2046, 56, 113, "Input"], Cell[587848, 16578, 955, 29, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[588840, 16612, 1738, 31, 50, "Subsubsection"], Cell[590581, 16645, 867, 18, 41, "DisplayFormula"], Cell[591451, 16665, 2728, 84, 113, "Input"], Cell[594182, 16751, 812, 24, 62, "Input"], Cell[594997, 16777, 1163, 34, 62, "Input"], Cell[596163, 16813, 637, 20, 62, "Input"], Cell[596803, 16835, 1166, 34, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[598006, 16874, 1751, 33, 50, "Subsubsection"], Cell[599760, 16909, 2955, 79, 110, "DisplayFormula"], Cell[602718, 16990, 993, 21, 42, "DisplayFormula"], Cell[603714, 17013, 2291, 63, 113, "Input"], Cell[606008, 17078, 994, 21, 42, "DisplayFormula"], Cell[607005, 17101, 2430, 67, 113, "Input"] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[609496, 17175, 759, 14, 53, "Section"], Cell[CellGroupData[{ Cell[610280, 17193, 542, 10, 64, "Subsection"], Cell[CellGroupData[{ Cell[610847, 17207, 1806, 31, 53, "Subsubsection"], Cell[612656, 17240, 2251, 57, 119, "DisplayFormula"], Cell[614910, 17299, 1039, 18, 41, "DisplayFormula"], Cell[615952, 17319, 1359, 40, 79, "Input"], Cell[617314, 17361, 1386, 40, 79, "Input"], Cell[618703, 17403, 1064, 19, 41, "DisplayFormula"], Cell[619770, 17424, 1358, 40, 79, "Input"], Cell[621131, 17466, 1386, 40, 79, "Input"], Cell[622520, 17508, 1067, 19, 41, "DisplayFormula"], Cell[623590, 17529, 1359, 40, 79, "Input"], Cell[624952, 17571, 1388, 40, 79, "Input"], Cell[626343, 17613, 1067, 19, 41, "DisplayFormula"], Cell[627413, 17634, 1361, 40, 79, "Input"], Cell[628777, 17676, 1386, 40, 79, "Input"], Cell[630166, 17718, 1690, 35, 64, "DisplayFormula"], Cell[631859, 17755, 2070, 63, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[633966, 17823, 1440, 22, 47, "Subsubsection"], Cell[635409, 17847, 1137, 20, 41, "DisplayFormula"], Cell[636549, 17869, 631, 19, 79, "Input"], Cell[637183, 17890, 1121, 20, 41, "DisplayFormula"], Cell[638307, 17912, 1962, 51, 130, "Input"], Cell[640272, 17965, 1256, 35, 79, "Input"], Cell[641531, 18002, 1183, 21, 41, "DisplayFormula"], Cell[642717, 18025, 6399, 192, 406, "Input"], Cell[649119, 18219, 2197, 63, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[651353, 18287, 1439, 22, 47, "Subsubsection"], Cell[652795, 18311, 1137, 20, 41, "DisplayFormula"], Cell[653935, 18333, 706, 21, 79, "Input"], Cell[654644, 18356, 1094, 19, 41, "DisplayFormula"], Cell[655741, 18377, 733, 24, 66, "Input"], Cell[656477, 18403, 1121, 20, 41, "DisplayFormula"], Cell[657601, 18425, 3418, 94, 117, "Input"], Cell[661022, 18521, 1183, 21, 41, "DisplayFormula"], Cell[662208, 18544, 3305, 97, 232, "Input"], Cell[665516, 18643, 3347, 92, 113, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[668912, 18741, 607, 10, 56, "Subsection"], Cell[CellGroupData[{ Cell[669544, 18755, 1461, 22, 53, "Subsubsection"], Cell[671008, 18779, 5801, 153, 249, "Input"], Cell[676812, 18934, 1090, 20, 41, "DisplayFormula"], Cell[677905, 18956, 731, 22, 79, "Input"], Cell[678639, 18980, 1138, 20, 41, "DisplayFormula"], Cell[679780, 19002, 795, 23, 82, "Input"], Cell[680578, 19027, 1136, 20, 41, "DisplayFormula"], Cell[681717, 19049, 890, 27, 82, "Input"], Cell[682610, 19078, 1138, 20, 41, "DisplayFormula"], Cell[683751, 19100, 937, 28, 82, "Input"], Cell[684691, 19130, 1135, 20, 41, "DisplayFormula"], Cell[685829, 19152, 1026, 31, 82, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[686892, 19188, 1478, 22, 47, "Subsubsection"], Cell[688373, 19212, 11232, 308, 521, "Input"], Cell[699608, 19522, 1140, 21, 41, "DisplayFormula"], Cell[700751, 19545, 487, 13, 62, "Input"], Cell[701241, 19560, 1140, 21, 41, "DisplayFormula"], Cell[702384, 19583, 514, 14, 62, "Input"], Cell[702901, 19599, 1188, 21, 41, "DisplayFormula"], Cell[704092, 19622, 510, 13, 62, "Input"], Cell[704605, 19637, 1186, 21, 41, "DisplayFormula"], Cell[705794, 19660, 510, 13, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[706341, 19678, 1660, 25, 47, "Subsubsection"], Cell[708004, 19705, 12636, 343, 572, "Input"], Cell[720643, 20050, 1140, 21, 41, "DisplayFormula"], Cell[721786, 20073, 510, 13, 62, "Input"], Cell[722299, 20088, 1188, 21, 41, "DisplayFormula"], Cell[723490, 20111, 533, 13, 62, "Input"], Cell[724026, 20126, 1239, 22, 41, "DisplayFormula"], Cell[725268, 20150, 558, 14, 62, "Input"], Cell[725829, 20166, 1289, 23, 41, "DisplayFormula"], Cell[727121, 20191, 582, 14, 62, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[727752, 20211, 525, 9, 56, "Subsection"], Cell[728280, 20222, 1254, 28, 63, "DisplayFormula"], Cell[729537, 20252, 1750, 46, 121, "DisplayFormula"], Cell[731290, 20300, 1543, 36, 64, "DisplayFormula"], Cell[732836, 20338, 1798, 41, 108, "DisplayFormula"], Cell[734637, 20381, 7692, 202, 412, "Input"], Cell[742332, 20585, 1231, 35, 79, "Input"], Cell[743566, 20622, 1233, 35, 79, "Input"], Cell[744802, 20659, 1253, 35, 79, "Input"], Cell[746058, 20696, 1259, 35, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[747354, 20736, 496, 9, 56, "Subsection"], Cell[CellGroupData[{ Cell[747875, 20749, 1441, 22, 53, "Subsubsection"], Cell[749319, 20773, 1089, 23, 55, "DisplayFormula"], Cell[750411, 20798, 3486, 98, 96, "Input"], Cell[753900, 20898, 671, 22, 62, "Input"], Cell[754574, 20922, 3210, 92, 106, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[757821, 21019, 1435, 22, 47, "Subsubsection"], Cell[759259, 21043, 1201, 28, 55, "DisplayFormula"], Cell[760463, 21073, 1039, 34, 79, "Input"], Cell[761505, 21109, 3573, 103, 123, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[765115, 21217, 1604, 25, 47, "Subsubsection"], Cell[766722, 21244, 2236, 56, 66, "DisplayFormula"], Cell[768961, 21302, 1795, 58, 130, "Input"], Cell[770759, 21362, 1042, 19, 41, "DisplayFormula"], Cell[771804, 21383, 967, 27, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[772808, 21415, 1488, 23, 47, "Subsubsection"], Cell[774299, 21440, 1287, 33, 57, "DisplayFormula"], Cell[775589, 21475, 1753, 46, 91, "DisplayFormula"], Cell[777345, 21523, 728, 23, 62, "Input"], Cell[778076, 21548, 2642, 76, 96, "Input"], Cell[780721, 21626, 2743, 79, 106, "Input"], Cell[783467, 21707, 1849, 48, 91, "DisplayFormula"], Cell[785319, 21757, 1901, 53, 79, "Input"], Cell[787223, 21812, 802, 25, 62, "Input"], Cell[788028, 21839, 4123, 113, 130, "Input"], Cell[792154, 21954, 4785, 132, 181, "Input"], Cell[796942, 22088, 2053, 54, 91, "DisplayFormula"], Cell[798998, 22144, 752, 24, 62, "Input"], Cell[799753, 22170, 2888, 81, 113, "Input"], Cell[802644, 22253, 2758, 77, 117, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[805439, 22335, 1580, 23, 47, "Subsubsection"], Cell[807022, 22360, 2020, 57, 93, "DisplayFormula"], Cell[809045, 22419, 2537, 73, 96, "Input"], Cell[811585, 22494, 1941, 42, 100, "DisplayFormula"], Cell[813529, 22538, 1220, 42, 79, "Input"], Cell[814752, 22582, 1860, 61, 158, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[816661, 22649, 505, 9, 56, "Subsection"], Cell[CellGroupData[{ Cell[817191, 22662, 1491, 22, 53, "Subsubsection"], Cell[818685, 22686, 1124, 20, 41, "DisplayFormula"], Cell[819812, 22708, 2883, 83, 79, "Input"], Cell[822698, 22793, 1491, 30, 41, "DisplayFormula"], Cell[824192, 22825, 1632, 48, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[825861, 22878, 1445, 22, 47, "Subsubsection"], Cell[827309, 22902, 2927, 80, 96, "Input"], Cell[830239, 22984, 2963, 81, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[833239, 23070, 1447, 22, 47, "Subsubsection"], Cell[834689, 23094, 1248, 22, 41, "DisplayFormula"], Cell[835940, 23118, 5984, 163, 147, "Input"], Cell[841927, 23283, 1213, 21, 41, "DisplayFormula"], Cell[843143, 23306, 3195, 85, 96, "Input"], Cell[846341, 23393, 3195, 85, 96, "Input"], Cell[849539, 23480, 3205, 85, 96, "Input"], Cell[852747, 23567, 3767, 103, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[856551, 23675, 1448, 22, 47, "Subsubsection"], Cell[858002, 23699, 1131, 20, 41, "DisplayFormula"], Cell[859136, 23721, 3733, 104, 113, "Input"], Cell[862872, 23827, 1376, 27, 41, "DisplayFormula"], Cell[864251, 23856, 5624, 147, 147, "Input"], Cell[869878, 24005, 5845, 153, 147, "Input"], Cell[875726, 24160, 4630, 125, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[880393, 24290, 1448, 22, 47, "Subsubsection"], Cell[881844, 24314, 1131, 20, 41, "DisplayFormula"], Cell[882978, 24336, 4339, 120, 130, "Input"], Cell[887320, 24458, 1304, 24, 41, "DisplayFormula"], Cell[888627, 24484, 7980, 205, 198, "Input"], Cell[896610, 24691, 9629, 245, 266, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[906288, 24942, 449, 7, 56, "Subsection"], Cell[CellGroupData[{ Cell[906762, 24953, 1458, 22, 53, "Subsubsection"], Cell[908223, 24977, 1693, 37, 64, "DisplayFormula"], Cell[909919, 25016, 1236, 37, 79, "Input"], Cell[911158, 25055, 1385, 29, 41, "DisplayFormula"], Cell[912546, 25086, 978, 31, 44, "Input"], Cell[913527, 25119, 5038, 140, 130, "Input"], Cell[918568, 25261, 1233, 21, 41, "DisplayFormula"], Cell[919804, 25284, 2571, 69, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[922412, 25358, 1480, 23, 47, "Subsubsection"], Cell[923895, 25383, 1682, 34, 43, "DisplayFormula"], Cell[925580, 25419, 5436, 142, 147, "Input"], Cell[931019, 25563, 1812, 43, 79, "DisplayFormula"], Cell[932834, 25608, 1364, 41, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[934235, 25654, 1492, 23, 47, "Subsubsection"], Cell[935730, 25679, 1160, 20, 41, "DisplayFormula"], Cell[936893, 25701, 399, 13, 44, "Input"], Cell[937295, 25716, 898, 29, 79, "Input"], Cell[938196, 25747, 712, 22, 62, "Input"], Cell[938911, 25771, 1210, 21, 41, "DisplayFormula"], Cell[940124, 25794, 5071, 133, 147, "Input"], Cell[945198, 25929, 1063, 18, 41, "DisplayFormula"], Cell[946264, 25949, 1937, 63, 79, "Input"], Cell[948204, 26014, 1067, 18, 41, "DisplayFormula"], Cell[949274, 26034, 3108, 100, 113, "Input"], Cell[952385, 26136, 1066, 18, 41, "DisplayFormula"], Cell[953454, 26156, 1812, 61, 96, "Input"], Cell[955269, 26219, 1378, 27, 43, "DisplayFormula"], Cell[956650, 26248, 2015, 58, 96, "Input"], Cell[958668, 26308, 1931, 56, 79, "Input"], Cell[960602, 26366, 1903, 55, 79, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[962554, 26427, 480, 9, 56, "Subsection"], Cell[CellGroupData[{ Cell[963059, 26440, 1448, 20, 53, "Subsubsection"], Cell[964510, 26462, 2266, 66, 91, "DisplayFormula"], Cell[966779, 26530, 3452, 98, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[970268, 26633, 1409, 20, 47, "Subsubsection"], Cell[971680, 26655, 2301, 63, 90, "DisplayFormula"], Cell[973984, 26720, 3156, 92, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[977177, 26817, 1683, 29, 47, "Subsubsection"], Cell[978863, 26848, 1791, 44, 90, "DisplayFormula"], Cell[980657, 26894, 2751, 76, 96, "Input"], Cell[983411, 26972, 2877, 77, 161, "DisplayFormula"], Cell[986291, 27051, 550, 18, 44, "Input"], Cell[986844, 27071, 4001, 114, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[990882, 27190, 1458, 22, 47, "Subsubsection"], Cell[992343, 27214, 3828, 106, 113, "Input"], Cell[996174, 27322, 8900, 244, 215, "Input"], Cell[1005077, 27568, 12762, 347, 385, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1017876, 27920, 1518, 23, 47, "Subsubsection"], Cell[1019397, 27945, 2965, 81, 96, "Input"], Cell[1022365, 28028, 6223, 161, 181, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1028625, 28194, 1599, 24, 47, "Subsubsection"], Cell[1030227, 28220, 1307, 24, 41, "DisplayFormula"], Cell[1031537, 28246, 683, 22, 62, "Input"], Cell[1032223, 28270, 2765, 77, 96, "Input"], Cell[1034991, 28349, 1341, 23, 41, "DisplayFormula"], Cell[1036335, 28374, 1650, 48, 79, "Input"], Cell[1037988, 28424, 1840, 53, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1039865, 28482, 1474, 22, 47, "Subsubsection"], Cell[1041342, 28506, 2155, 59, 79, "Input"], Cell[1043500, 28567, 5806, 164, 164, "Input"], Cell[1049309, 28733, 4517, 123, 130, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1053875, 28862, 595, 11, 56, "Subsection"], Cell[CellGroupData[{ Cell[1054495, 28877, 1770, 33, 53, "Subsubsection"], Cell[1056268, 28912, 1483, 28, 42, "DisplayFormula"], Cell[1057754, 28942, 879, 27, 44, "Input"], Cell[1058636, 28971, 1199, 22, 41, "DisplayFormula"], Cell[1059838, 28995, 1961, 58, 81, "Input"], Cell[1061802, 29055, 2679, 77, 83, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1064518, 29137, 1502, 22, 47, "Subsubsection"], Cell[1066023, 29161, 1028, 29, 62, "Input"], Cell[1067054, 29192, 1146, 32, 62, "Input"], Cell[1068203, 29226, 1368, 23, 41, "DisplayFormula"], Cell[1069574, 29251, 1595, 45, 79, "Input"], Cell[1071172, 29298, 1606, 46, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1072815, 29349, 1612, 34, 49, "Subsubsection"], Cell[1074430, 29385, 1140, 20, 41, "DisplayFormula"], Cell[1075573, 29407, 1094, 35, 98, "Input"], Cell[1076670, 29444, 1372, 30, 41, "DisplayFormula"], Cell[1078045, 29476, 1481, 46, 149, "Input"], Cell[1079529, 29524, 1213, 22, 41, "DisplayFormula"], Cell[1080745, 29548, 3222, 94, 117, "Input"], Cell[1083970, 29644, 2471, 68, 107, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1086478, 29717, 1634, 35, 49, "Subsubsection"], Cell[1088115, 29754, 1140, 20, 41, "DisplayFormula"], Cell[1089258, 29776, 1205, 39, 98, "Input"], Cell[1090466, 29817, 1418, 30, 41, "DisplayFormula"], Cell[1091887, 29849, 1583, 49, 149, "Input"], Cell[1093473, 29900, 1213, 22, 41, "DisplayFormula"], Cell[1094689, 29924, 4153, 118, 189, "Input"], Cell[1098845, 30044, 11248, 294, 325, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1110130, 30343, 1738, 37, 50, "Subsubsection"], Cell[1111871, 30382, 1372, 30, 41, "DisplayFormula"], Cell[1113246, 30414, 2051, 64, 168, "Input"], Cell[1115300, 30480, 3646, 124, 85, "Input"], Cell[1118949, 30606, 1213, 22, 41, "DisplayFormula"], Cell[1120165, 30630, 8777, 223, 226, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1128979, 30858, 1268, 19, 47, "Subsubsection"], Cell[1130250, 30879, 1383, 24, 42, "DisplayFormula"], Cell[1131636, 30905, 1152, 37, 79, "Input"], Cell[1132791, 30944, 1224, 39, 79, "Input"], Cell[1134018, 30985, 1211, 39, 79, "Input"], Cell[1135232, 31026, 1281, 41, 79, "Input"], Cell[1136516, 31069, 1252, 23, 41, "DisplayFormula"], Cell[1137771, 31094, 2758, 79, 96, "Input"], Cell[1140532, 31175, 2905, 82, 113, "Input"], Cell[1143440, 31259, 1434, 28, 44, "DisplayFormula"], Cell[1144877, 31289, 3424, 94, 96, "Input"], Cell[1148304, 31385, 3594, 98, 113, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1151947, 31489, 597, 10, 56, "Subsection"], Cell[1152547, 31501, 1256, 25, 41, "DisplayFormula"], Cell[1153806, 31528, 1545, 44, 79, "Input"], Cell[1155354, 31574, 1293, 24, 42, "DisplayFormula"], Cell[1156650, 31600, 1902, 55, 79, "Input"], Cell[1158555, 31657, 1292, 24, 42, "DisplayFormula"], Cell[1159850, 31683, 2392, 67, 147, "Input"], Cell[1162245, 31752, 1199, 20, 41, "DisplayFormula"], Cell[1163447, 31774, 4954, 130, 181, "Input"], Cell[1168404, 31906, 1275, 25, 41, "DisplayFormula"], Cell[1169682, 31933, 686, 21, 62, "Input"], Cell[1170371, 31956, 1330, 27, 41, "DisplayFormula"], Cell[1171704, 31985, 1289, 38, 79, "Input"], Cell[1172996, 32025, 1275, 25, 41, "DisplayFormula"], Cell[1174274, 32052, 1474, 41, 79, "Input"], Cell[1175751, 32095, 1275, 25, 41, "DisplayFormula"], Cell[1177029, 32122, 1717, 44, 79, "Input"], Cell[1178749, 32168, 1274, 25, 41, "DisplayFormula"], Cell[1180026, 32195, 1769, 45, 79, "Input"], Cell[1181798, 32242, 1275, 25, 41, "DisplayFormula"], Cell[1183076, 32269, 1769, 45, 79, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1184894, 32320, 926, 16, 53, "Section"], Cell[CellGroupData[{ Cell[1185845, 32340, 520, 10, 64, "Subsection"], Cell[CellGroupData[{ Cell[1186390, 32354, 1897, 38, 55, "Subsubsection"], Cell[1188290, 32394, 2114, 59, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1190441, 32458, 1404, 21, 47, "Subsubsection"], Cell[1191848, 32481, 1851, 53, 79, "Input"], Cell[1193702, 32536, 2036, 59, 79, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1195787, 32601, 686, 13, 56, "Subsection"], Cell[1196476, 32616, 9422, 267, 351, "Input"], Cell[1205901, 32885, 2439, 72, 113, "Input"], Cell[1208343, 32959, 2439, 72, 113, "Input"], Cell[1210785, 33033, 2439, 72, 113, "Input"], Cell[1213227, 33107, 2485, 74, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1215749, 33186, 661, 14, 56, "Subsection"], Cell[1216413, 33202, 1251, 24, 41, "DisplayFormula"], Cell[1217667, 33228, 1343, 44, 79, "Input"], Cell[1219013, 33274, 1174, 21, 41, "DisplayFormula"], Cell[1220190, 33297, 2280, 64, 130, "Input"], Cell[1222473, 33363, 1860, 53, 96, "Input"], Cell[1224336, 33418, 2516, 70, 130, "Input"], Cell[1226855, 33490, 2288, 64, 130, "Input"], Cell[1229146, 33556, 1321, 26, 41, "DisplayFormula"], Cell[1230470, 33584, 2331, 64, 130, "Input"], Cell[1232804, 33650, 2328, 64, 130, "Input"], Cell[1235135, 33716, 1290, 25, 41, "DisplayFormula"], Cell[1236428, 33743, 2427, 66, 130, "Input"], Cell[1238858, 33811, 2423, 66, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1241318, 33882, 531, 10, 56, "Subsection"], Cell[CellGroupData[{ Cell[1241874, 33896, 1502, 22, 53, "Subsubsection"], Cell[1243379, 33920, 1232, 22, 41, "DisplayFormula"], Cell[1244614, 33944, 3270, 93, 96, "Input"], Cell[1247887, 34039, 4051, 107, 94, "DisplayFormula"], Cell[1251941, 34148, 1249, 23, 41, "DisplayFormula"], Cell[1253193, 34173, 3136, 83, 147, "Input"], Cell[1256332, 34258, 6661, 164, 215, "Input"], Cell[1262996, 34424, 1232, 23, 41, "DisplayFormula"], Cell[1264231, 34449, 7045, 170, 232, "Input"], Cell[1271279, 34621, 4701, 122, 94, "DisplayFormula"], Cell[1275983, 34745, 3092, 92, 130, "Input"], Cell[1279078, 34839, 1311, 24, 41, "DisplayFormula"], Cell[1280392, 34865, 3704, 99, 113, "Input"], Cell[1284099, 34966, 3541, 96, 117, "Input"], Cell[1287643, 35064, 1232, 23, 41, "DisplayFormula"], Cell[1288878, 35089, 4281, 106, 164, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1293196, 35200, 1631, 25, 47, "Subsubsection"], Cell[1294830, 35227, 862, 16, 41, "DisplayFormula"], Cell[1295695, 35245, 2844, 85, 113, "Input"], Cell[1298542, 35332, 8392, 231, 231, "Input"], Cell[1306937, 35565, 813, 16, 41, "DisplayFormula"], Cell[1307753, 35583, 3557, 99, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1311347, 35687, 1534, 23, 47, "Subsubsection"], Cell[1312884, 35712, 1144, 23, 61, "DisplayFormula"], Cell[1314031, 35737, 5997, 170, 164, "Input"], Cell[1320031, 35909, 790, 16, 41, "DisplayFormula"], Cell[1320824, 35927, 3389, 96, 96, "Input"], Cell[1324216, 36025, 1101, 23, 61, "DisplayFormula"], Cell[1325320, 36050, 1361, 41, 62, "Input"], Cell[1326684, 36093, 740, 22, 62, "Input"], Cell[1327427, 36117, 2005, 60, 79, "Input"], Cell[1329435, 36179, 2069, 61, 79, "Input"], Cell[1331507, 36242, 1093, 20, 41, "DisplayFormula"], Cell[1332603, 36264, 3567, 102, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1336207, 36371, 1293, 19, 47, "Subsubsection"], Cell[1337503, 36392, 3603, 82, 164, "DisplayFormula"], Cell[1341109, 36476, 1200, 25, 43, "DisplayFormula"], Cell[1342312, 36503, 4517, 121, 136, "Input"], Cell[1346832, 36626, 4517, 121, 136, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1351398, 36753, 529, 9, 56, "Subsection"], Cell[1351930, 36764, 1133, 21, 41, "DisplayFormula"], Cell[1353066, 36787, 2769, 84, 147, "Input"], Cell[1355838, 36873, 1464, 31, 41, "DisplayFormula"], Cell[1357305, 36906, 1568, 47, 96, "Input"], Cell[1358876, 36955, 1985, 58, 96, "Input"], Cell[1360864, 37015, 1966, 57, 96, "Input"], Cell[1362833, 37074, 1736, 47, 42, "DisplayFormula"], Cell[1364572, 37123, 1426, 44, 79, "Input"], Cell[1366001, 37169, 1273, 39, 79, "Input"], Cell[1367277, 37210, 1271, 39, 79, "Input"], Cell[1368551, 37251, 1735, 47, 42, "DisplayFormula"], Cell[1370289, 37300, 1261, 38, 79, "Input"], Cell[1371553, 37340, 1268, 38, 79, "Input"], Cell[1372824, 37380, 1267, 38, 79, "Input"], Cell[1374094, 37420, 1734, 47, 42, "DisplayFormula"], Cell[1375831, 37469, 1264, 39, 79, "Input"], Cell[1377098, 37510, 1278, 39, 79, "Input"], Cell[1378379, 37551, 1271, 39, 79, "Input"], Cell[1379653, 37592, 1763, 48, 42, "DisplayFormula"], Cell[1381419, 37642, 2118, 63, 96, "Input"], Cell[1383540, 37707, 1679, 32, 61, "DisplayFormula"], Cell[1385222, 37741, 1119, 35, 79, "Input"], Cell[1386344, 37778, 1202, 37, 79, "Input"], Cell[1387549, 37817, 1249, 39, 79, "Input"], Cell[1388801, 37858, 1401, 43, 79, "Input"], Cell[1390205, 37903, 1401, 43, 79, "Input"], Cell[1391609, 37948, 1403, 43, 79, "Input"], Cell[1393015, 37993, 1624, 49, 96, "Input"], Cell[1394642, 38044, 1627, 49, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1396306, 38098, 651, 12, 56, "Subsection"], Cell[1396960, 38112, 1017, 21, 41, "DisplayFormula"], Cell[1397980, 38135, 2107, 67, 96, "Input"], Cell[1400090, 38204, 1083, 34, 79, "Input"], Cell[1401176, 38240, 1395, 43, 79, "Input"], Cell[1402574, 38285, 1591, 49, 79, "Input"], Cell[1404168, 38336, 1020, 21, 41, "DisplayFormula"], Cell[1405191, 38359, 2078, 64, 96, "Input"], Cell[1407272, 38425, 1191, 36, 96, "Input"], Cell[1408466, 38463, 2374, 70, 99, "Input"], Cell[1410843, 38535, 2604, 76, 99, "Input"], Cell[1413450, 38613, 1054, 21, 41, "DisplayFormula"], Cell[1414507, 38636, 2696, 85, 96, "Input"], Cell[1417206, 38723, 3006, 94, 96, "Input"], Cell[1420215, 38819, 4176, 130, 113, "Input"], Cell[1424394, 38951, 3640, 112, 147, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1428071, 39068, 508, 9, 56, "Subsection"], Cell[1428582, 39079, 1133, 21, 41, "DisplayFormula"], Cell[1429718, 39102, 4610, 140, 232, "Input"], Cell[1434331, 39244, 1511, 31, 41, "DisplayFormula"], Cell[1435845, 39277, 1010, 31, 79, "Input"], Cell[1436858, 39310, 1723, 48, 96, "Input"], Cell[1438584, 39360, 1704, 47, 96, "Input"], Cell[1440291, 39409, 1709, 47, 42, "DisplayFormula"], Cell[1442003, 39458, 1896, 51, 79, "Input"], Cell[1443902, 39511, 1885, 51, 79, "Input"], Cell[1445790, 39564, 1883, 51, 79, "Input"], Cell[1447676, 39617, 2184, 55, 40, "DisplayFormula"], Cell[1449863, 39674, 6593, 185, 215, "Input"], Cell[1456459, 39861, 3858, 110, 147, "Input"], Cell[1460320, 39973, 3329, 94, 113, "Input"], Cell[1463652, 40069, 3309, 92, 113, "Input"], Cell[1466964, 40163, 3306, 92, 113, "Input"], Cell[1470273, 40257, 3453, 96, 113, "Input"], Cell[1473729, 40355, 3453, 96, 113, "Input"], Cell[1477185, 40453, 3455, 96, 113, "Input"], Cell[1480643, 40551, 1028, 20, 42, "DisplayFormula"], Cell[1481674, 40573, 1128, 35, 79, "Input"], Cell[1482805, 40610, 1213, 37, 79, "Input"], Cell[1484021, 40649, 1249, 39, 79, "Input"], Cell[1485273, 40690, 1412, 43, 79, "Input"], Cell[1486688, 40735, 1412, 43, 79, "Input"], Cell[1488103, 40780, 1401, 43, 79, "Input"], Cell[1489507, 40825, 1634, 49, 96, "Input"], Cell[1491144, 40876, 1634, 49, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1492815, 40930, 551, 10, 56, "Subsection"], Cell[CellGroupData[{ Cell[1493391, 40944, 1412, 20, 53, "Subsubsection"], Cell[1494806, 40966, 982, 22, 42, "DisplayFormula"], Cell[1495791, 40990, 4746, 150, 215, "Input"], Cell[1500540, 41142, 1823, 50, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1502400, 41197, 1431, 22, 47, "Subsubsection"], Cell[1503834, 41221, 979, 22, 42, "DisplayFormula"], Cell[1504816, 41245, 4799, 151, 215, "Input"], Cell[1509618, 41398, 1878, 51, 79, "Input"], Cell[1511499, 41451, 981, 22, 42, "DisplayFormula"], Cell[1512483, 41475, 4824, 151, 215, "Input"], Cell[1517310, 41628, 1853, 50, 79, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1519212, 41684, 641, 11, 56, "Subsection"], Cell[1519856, 41697, 811, 16, 41, "DisplayFormula"], Cell[1520670, 41715, 6457, 171, 215, "Input"], Cell[1527130, 41888, 876, 18, 41, "DisplayFormula"], Cell[1528009, 41908, 4655, 135, 147, "Input"], Cell[1532667, 42045, 2785, 81, 164, "Input"], Cell[1535455, 42128, 2619, 77, 164, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1538111, 42210, 625, 11, 56, "Subsection"], Cell[1538739, 42223, 10108, 322, 368, "Input"], Cell[1548850, 42547, 4055, 112, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1552942, 42664, 850, 20, 56, "Subsection"], Cell[1553795, 42686, 1100, 20, 41, "DisplayFormula"], Cell[1554898, 42708, 6537, 187, 164, "Input"], Cell[1561438, 42897, 1196, 22, 41, "DisplayFormula"], Cell[1562637, 42921, 7131, 202, 266, "Input"], Cell[1569771, 43125, 3818, 112, 113, "Input"], Cell[1573592, 43239, 3578, 104, 113, "Input"], Cell[1577173, 43345, 1185, 21, 41, "DisplayFormula"], Cell[1578361, 43368, 4020, 112, 147, "Input"], Cell[1582384, 43482, 2434, 71, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1584855, 43558, 608, 9, 56, "Subsection"], Cell[1585466, 43569, 1069, 18, 41, "DisplayFormula"], Cell[1586538, 43589, 1147, 37, 96, "Input"], Cell[1587688, 43628, 1199, 22, 41, "DisplayFormula"], Cell[1588890, 43652, 8072, 226, 368, "Input"], Cell[1596965, 43880, 1274, 22, 41, "DisplayFormula"], Cell[1598242, 43904, 5751, 155, 198, "Input"], Cell[1603996, 44061, 5702, 154, 198, "Input"], Cell[1609701, 44217, 1220, 20, 41, "DisplayFormula"], Cell[1610924, 44239, 5176, 141, 130, "Input"], Cell[1616103, 44382, 3807, 103, 130, "Input"], Cell[1619913, 44487, 4222, 115, 147, "DisplayFormula"], Cell[1624138, 44604, 388, 11, 62, "Input"], Cell[1624529, 44617, 2347, 63, 113, "Input"], Cell[1626879, 44682, 2615, 69, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1629531, 44756, 641, 11, 56, "Subsection"], Cell[CellGroupData[{ Cell[1630197, 44771, 1106, 17, 53, "Subsubsection"], Cell[1631306, 44790, 1121, 20, 41, "DisplayFormula"], Cell[1632430, 44812, 2511, 77, 79, "Input"], Cell[1634944, 44891, 4038, 113, 164, "Input"], Cell[1638985, 45006, 1101, 20, 41, "DisplayFormula"], Cell[1640089, 45028, 3688, 102, 181, "Input"], Cell[1643780, 45132, 2549, 75, 96, "Input"], Cell[1646332, 45209, 2307, 68, 96, "Input"], Cell[1648642, 45279, 4998, 141, 151, "Input"], Cell[1653643, 45422, 1783, 53, 79, "Input"], Cell[1655429, 45477, 1783, 53, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1657249, 45535, 1408, 21, 47, "Subsubsection"], Cell[1658660, 45558, 2499, 77, 79, "Input"], Cell[1661162, 45637, 4023, 113, 164, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1665222, 45755, 1404, 21, 47, "Subsubsection"], Cell[1666629, 45778, 2250, 79, 62, "Input"], Cell[1668882, 45859, 2435, 75, 79, "Input"], Cell[1671320, 45936, 3970, 112, 164, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1675339, 46054, 659, 11, 56, "Subsection"], Cell[CellGroupData[{ Cell[1676023, 46069, 1229, 19, 53, "Subsubsection"], Cell[1677255, 46090, 1711, 51, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1679003, 46146, 1308, 22, 47, "Subsubsection"], Cell[1680314, 46170, 6785, 178, 164, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1687136, 46353, 1553, 29, 81, "Subsubsection"], Cell[1688692, 46384, 6914, 199, 249, "Input"], Cell[1695609, 46585, 1446, 42, 62, "Input"], Cell[1697058, 46629, 3810, 100, 147, "Input"], Cell[1700871, 46731, 4998, 130, 147, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1705906, 46866, 1113, 17, 47, "Subsubsection"], Cell[1707022, 46885, 3397, 92, 113, "Input"], Cell[1710422, 46979, 10216, 272, 249, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1720687, 47257, 1078, 21, 56, "Subsection"], Cell[CellGroupData[{ Cell[1721790, 47282, 2011, 45, 87, "Subsubsection"], Cell[1723804, 47329, 1411, 27, 41, "DisplayFormula"], Cell[CellGroupData[{ Cell[1725240, 47360, 1438, 44, 113, "Input"], Cell[1726681, 47406, 738, 26, 62, "Output"], Cell[1727422, 47434, 2127, 66, 94, "Output"], Cell[1729552, 47502, 1832, 61, 94, "Output"] }, Closed]], Cell[1731399, 47566, 1687, 37, 90, "DisplayFormula"], Cell[1733089, 47605, 912, 29, 79, "Input"], Cell[1734004, 47636, 1477, 26, 41, "DisplayFormula"], Cell[1735484, 47664, 5716, 165, 130, "Input"], Cell[1741203, 47831, 3530, 99, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1744770, 47935, 1772, 31, 47, "Subsubsection"], Cell[1746545, 47968, 1785, 43, 84, "DisplayFormula"], Cell[1748333, 48013, 2797, 54, 183, "Text"], Cell[1751133, 48069, 1774, 35, 43, "DisplayFormula"], Cell[1752910, 48106, 10081, 290, 164, "Input"], Cell[1762994, 48398, 1536, 48, 62, "Input"], Cell[1764533, 48448, 1995, 38, 61, "DisplayFormula"], Cell[1766531, 48488, 6715, 174, 474, "Input"], Cell[CellGroupData[{ Cell[1773271, 48666, 262, 7, 44, "Input"], Cell[CellGroupData[{ Cell[1773558, 48677, 496, 12, 23, "Print"], Cell[1774057, 48691, 1149, 32, 25, "Print"], Cell[1775209, 48725, 1909, 52, 55, "Print"], Cell[1777121, 48779, 1357, 37, 55, "Print"], Cell[1778481, 48818, 954, 25, 51, "Print"], Cell[1779438, 48845, 954, 25, 51, "Print"], Cell[1780395, 48872, 851, 22, 23, "Print"], Cell[1781249, 48896, 786, 20, 23, "Print"] }, Open ]], Cell[1782050, 48919, 1133, 38, 62, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[1783220, 48962, 262, 7, 38, "Input"], Cell[CellGroupData[{ Cell[1783507, 48973, 494, 12, 23, "Print"], Cell[1784004, 48987, 1411, 39, 44, "Print"], Cell[1785418, 49028, 2208, 59, 55, "Print"], Cell[1787629, 49089, 1601, 43, 55, "Print"], Cell[1789233, 49134, 1208, 33, 49, "Print"], Cell[1790444, 49169, 939, 26, 43, "Print"], Cell[1791386, 49197, 1175, 32, 23, "Print"], Cell[1792564, 49231, 1092, 30, 23, "Print"] }, Open ]], Cell[1793671, 49264, 1764, 60, 94, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[1795472, 49329, 290, 8, 38, "Input"], Cell[CellGroupData[{ Cell[1795787, 49341, 494, 12, 23, "Print"], Cell[1796284, 49355, 1600, 44, 44, "Print"], Cell[1797887, 49401, 2311, 61, 55, "Print"], Cell[1800201, 49464, 1696, 45, 55, "Print"], Cell[1801900, 49511, 1403, 38, 49, "Print"], Cell[1803306, 49551, 1105, 31, 43, "Print"], Cell[1804414, 49584, 1222, 33, 40, "Print"], Cell[1805639, 49619, 1230, 35, 40, "Print"] }, Open ]], Cell[1806884, 49657, 1955, 66, 101, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[1808876, 49728, 264, 7, 38, "Input"], Cell[CellGroupData[{ Cell[1809165, 49739, 496, 12, 23, "Print"], Cell[1809664, 49753, 1790, 49, 44, "Print"], Cell[1811457, 49804, 2619, 69, 55, "Print"], Cell[1814079, 49875, 2037, 55, 55, "Print"], Cell[1816119, 49932, 2007, 52, 49, "Print"], Cell[1818129, 49986, 1625, 47, 43, "Print"], Cell[1819757, 50035, 1486, 41, 40, "Print"], Cell[1821246, 50078, 1590, 45, 40, "Print"] }, Open ]], Cell[1822851, 50126, 2694, 88, 137, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1825594, 50220, 2023, 47, 81, "Subsubsection"], Cell[1827620, 50269, 1340, 26, 41, "DisplayFormula"], Cell[CellGroupData[{ Cell[1828985, 50299, 1475, 45, 113, "Input"], Cell[1830463, 50346, 1152, 40, 43, "Output"], Cell[1831618, 50388, 8845, 282, 385, "Output"] }, Closed]], Cell[1840478, 50673, 14571, 420, 352, "Input"], Cell[1855052, 51095, 3734, 102, 94, "DisplayFormula"], Cell[1858789, 51199, 1327, 44, 98, "Input"], Cell[1860119, 51245, 1062, 18, 41, "DisplayFormula"], Cell[1861184, 51265, 1303, 44, 117, "Input"], Cell[1862490, 51311, 1150, 21, 41, "DisplayFormula"], Cell[1863643, 51334, 8741, 255, 235, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1872421, 51594, 1345, 20, 47, "Subsubsection"], Cell[1873769, 51616, 1181, 22, 41, "DisplayFormula"], Cell[CellGroupData[{ Cell[1874975, 51642, 1381, 41, 113, "Input"], Cell[1876359, 51685, 2007, 67, 72, "Output"], Cell[1878369, 51754, 8983, 246, 191, "Output"], Cell[1887355, 52002, 9485, 293, 317, "Output"] }, Closed]], Cell[1896855, 52298, 1138, 20, 41, "DisplayFormula"], Cell[1897996, 52320, 3640, 123, 175, "Input"], Cell[1901639, 52445, 1753, 58, 79, "Input"], Cell[1903395, 52505, 1224, 22, 41, "DisplayFormula"], Cell[1904622, 52529, 6163, 201, 248, "Input"], Cell[1910788, 52732, 1226, 21, 41, "DisplayFormula"], Cell[1912017, 52755, 3213, 98, 79, "Input"], Cell[1915233, 52855, 1229, 21, 41, "DisplayFormula"], Cell[1916465, 52878, 2089, 64, 96, "Input"], Cell[1918557, 52944, 1235, 22, 41, "DisplayFormula"], Cell[1919795, 52968, 2091, 64, 96, "Input"], Cell[1921889, 53034, 1245, 22, 41, "DisplayFormula"], Cell[1923137, 53058, 2098, 64, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1925272, 53127, 1276, 19, 47, "Subsubsection"], Cell[1926551, 53148, 1824, 50, 96, "Input"], Cell[1928378, 53200, 7525, 217, 233, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1935952, 53423, 681, 11, 56, "Subsection"], Cell[CellGroupData[{ Cell[1936658, 53438, 1132, 16, 53, "Subsubsection"], Cell[1937793, 53456, 1094, 20, 41, "DisplayFormula"], Cell[1938890, 53478, 1300, 41, 79, "Input"], Cell[1940193, 53521, 1248, 25, 42, "DisplayFormula"], Cell[1941444, 53548, 3238, 94, 113, "Input"], Cell[1944685, 53644, 1248, 25, 42, "DisplayFormula"], Cell[1945936, 53671, 3286, 95, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1949259, 53771, 1127, 16, 47, "Subsubsection"], Cell[1950389, 53789, 1056, 18, 41, "DisplayFormula"], Cell[1951448, 53809, 890, 27, 62, "Input"], Cell[1952341, 53838, 1409, 28, 49, "DisplayFormula"], Cell[1953753, 53868, 1270, 39, 44, "Input"], Cell[1955026, 53909, 1268, 39, 44, "Input"], Cell[1956297, 53950, 1614, 49, 44, "Input"], Cell[1957914, 54001, 1891, 57, 62, "Input"], Cell[1959808, 54060, 1440, 44, 44, "Input"], Cell[1961251, 54106, 1587, 47, 62, "Input"], Cell[1962841, 54155, 1749, 51, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1964627, 54211, 1131, 16, 47, "Subsubsection"], Cell[1965761, 54229, 1180, 21, 41, "DisplayFormula"], Cell[1966944, 54252, 7423, 202, 198, "Input"], Cell[1974370, 54456, 11370, 297, 283, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1985777, 54758, 1085, 15, 47, "Subsubsection"], Cell[1986865, 54775, 1143, 20, 41, "DisplayFormula"], Cell[1988011, 54797, 3522, 104, 198, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1991582, 54907, 646, 11, 56, "Subsection"], Cell[1992231, 54920, 880, 17, 41, "DisplayFormula"], Cell[1993114, 54939, 4685, 131, 113, "Input"], Cell[1997802, 55072, 882, 18, 41, "DisplayFormula"], Cell[1998687, 55092, 4169, 112, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2002893, 55209, 676, 11, 56, "Subsection"], Cell[CellGroupData[{ Cell[2003594, 55224, 1630, 24, 53, "Subsubsection"], Cell[2005227, 55250, 1201, 21, 41, "DisplayFormula"], Cell[2006431, 55273, 5070, 142, 232, "Input"], Cell[2011504, 55417, 9006, 242, 283, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2020547, 55664, 1984, 38, 58, "Subsubsection"], Cell[2022534, 55704, 1807, 44, 79, "DisplayFormula"], Cell[2024344, 55750, 489, 15, 44, "Input"], Cell[2024836, 55767, 1345, 41, 62, "Input"], Cell[2026184, 55810, 1177, 21, 41, "DisplayFormula"], Cell[2027364, 55833, 579, 19, 44, "Input"], Cell[2027946, 55854, 952, 31, 61, "Input"], Cell[2028901, 55887, 1247, 22, 41, "DisplayFormula"], Cell[2030151, 55911, 2771, 80, 96, "Input"], Cell[2032925, 55993, 2492, 71, 117, "Input"], Cell[2035420, 56066, 1247, 22, 41, "DisplayFormula"], Cell[2036670, 56090, 4305, 122, 96, "Input"], Cell[2040978, 56214, 3820, 108, 152, "Input"], Cell[2044801, 56324, 1249, 22, 41, "DisplayFormula"], Cell[2046053, 56348, 6301, 171, 181, "Input"], Cell[2052357, 56521, 5864, 158, 216, "Input"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2058282, 56686, 969, 18, 53, "Section"], Cell[CellGroupData[{ Cell[2059276, 56708, 1046, 16, 64, "Subsection"], Cell[2060325, 56726, 1384, 25, 41, "DisplayFormula"], Cell[2061712, 56753, 2107, 62, 113, "Input"], Cell[2063822, 56817, 2729, 72, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2066588, 56894, 1110, 17, 56, "Subsection"], Cell[2067701, 56913, 1589, 37, 41, "DisplayFormula"], Cell[2069293, 56952, 2074, 41, 112, "DisplayFormula"], Cell[2071370, 56995, 2152, 57, 96, "Input"], Cell[2073525, 57054, 730, 22, 62, "Input"], Cell[2074258, 57078, 731, 22, 62, "Input"], Cell[2074992, 57102, 746, 23, 62, "Input"], Cell[2075741, 57127, 776, 24, 62, "Input"], Cell[2076520, 57153, 776, 24, 62, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2077345, 57183, 833, 15, 53, "Section"], Cell[CellGroupData[{ Cell[2078203, 57202, 731, 13, 84, "Subsection"], Cell[CellGroupData[{ Cell[2078959, 57219, 1103, 17, 53, "Subsubsection"], Cell[2080065, 57238, 1331, 39, 57, "DisplayFormula"], Cell[2081399, 57279, 745, 22, 62, "Input"], Cell[2082147, 57303, 747, 22, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2082931, 57330, 1114, 17, 47, "Subsubsection"], Cell[2084048, 57349, 702, 21, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2084787, 57375, 1181, 18, 47, "Subsubsection"], Cell[2085971, 57395, 687, 21, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2086695, 57421, 1129, 17, 47, "Subsubsection"], Cell[2087827, 57440, 685, 21, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2088549, 57466, 1132, 17, 47, "Subsubsection"], Cell[2089684, 57485, 685, 21, 62, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2090418, 57512, 609, 12, 76, "Subsection"], Cell[CellGroupData[{ Cell[2091052, 57528, 660, 13, 44, "Subsubsection"], Cell[2091715, 57543, 1241, 35, 79, "Input"], Cell[2092959, 57580, 997, 30, 65, "Input"], Cell[2093959, 57612, 899, 27, 65, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2094895, 57644, 743, 13, 38, "Subsubsection"], Cell[2095641, 57659, 1883, 55, 85, "Input"], Cell[2097527, 57716, 2466, 73, 105, "Input"], Cell[2099996, 57791, 2397, 72, 105, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2102442, 57869, 852, 16, 96, "Subsection"], Cell[CellGroupData[{ Cell[2103319, 57889, 809, 15, 44, "Subsubsection"], Cell[2104131, 57906, 9568, 230, 373, "Input"], Cell[2113702, 58138, 615, 15, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2114354, 58158, 723, 13, 38, "Subsubsection"], Cell[2115080, 58173, 7015, 176, 373, "Input"], Cell[2122098, 58351, 617, 15, 113, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2122752, 58371, 1072, 27, 40, "Subsubsection"], Cell[2123827, 58400, 522, 14, 79, "Input"], Cell[2124352, 58416, 522, 14, 79, "Input"], Cell[2124877, 58432, 522, 14, 79, "Input"], Cell[2125402, 58448, 522, 14, 79, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2125961, 58467, 1237, 28, 41, "Subsubsection"], Cell[2127201, 58497, 5820, 157, 238, "Input"], Cell[2133024, 58656, 615, 14, 96, "Input"], Cell[2133642, 58672, 615, 14, 96, "Input"], Cell[2134260, 58688, 615, 14, 96, "Input"], Cell[2134878, 58704, 612, 14, 96, "Input"], Cell[2135493, 58720, 613, 14, 96, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2136155, 58740, 701, 13, 76, "Subsection"], Cell[CellGroupData[{ Cell[2136881, 58757, 1265, 27, 44, "Subsubsection"], Cell[2138149, 58786, 682, 14, 41, "DisplayFormula"], Cell[2138834, 58802, 741, 22, 62, "Input"], Cell[2139578, 58826, 1156, 28, 41, "DisplayFormula"], Cell[2140737, 58856, 1383, 38, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2142157, 58899, 1242, 26, 40, "Subsubsection"], Cell[2143402, 58927, 682, 14, 41, "DisplayFormula"], Cell[2144087, 58943, 734, 22, 62, "Input"], Cell[2144824, 58967, 1228, 31, 41, "DisplayFormula"], Cell[2146055, 59000, 1400, 39, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2147492, 59044, 1424, 31, 40, "Subsubsection"], Cell[2148919, 59077, 1029, 21, 54, "DisplayFormula"], Cell[2149951, 59100, 1858, 51, 96, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2151846, 59156, 1470, 31, 40, "Subsubsection"], Cell[2153319, 59189, 1153, 25, 54, "DisplayFormula"], Cell[2154475, 59216, 1110, 31, 79, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2155634, 59253, 663, 12, 76, "Subsection"], Cell[2156300, 59267, 2866, 80, 149, "Input"], Cell[2159169, 59349, 5547, 145, 168, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2164753, 59499, 855, 17, 76, "Subsection"], Cell[CellGroupData[{ Cell[2165633, 59520, 1370, 26, 53, "Subsubsection"], Cell[2167006, 59548, 1186, 21, 41, "DisplayFormula"], Cell[2168195, 59571, 2120, 59, 79, "Input"], Cell[2170318, 59632, 3414, 87, 164, "Input"], Cell[2173735, 59721, 4067, 126, 237, "Input"], Cell[2177805, 59849, 1291, 22, 41, "DisplayFormula"], Cell[2179099, 59873, 2959, 82, 113, "Input"], Cell[2182061, 59957, 4312, 109, 215, "Input"], Cell[2186376, 60068, 3145, 92, 159, "Input"], Cell[2189524, 60162, 4867, 120, 232, "Input"], Cell[2194394, 60284, 2916, 88, 159, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2197347, 60377, 1387, 28, 47, "Subsubsection"], Cell[2198737, 60407, 1370, 23, 41, "DisplayFormula"], Cell[2200110, 60432, 2885, 76, 130, "Input"], Cell[2202998, 60510, 2880, 76, 113, "Input"], Cell[2205881, 60588, 2314, 61, 147, "Input"], Cell[2208198, 60651, 2390, 63, 164, "Input"], Cell[2210591, 60716, 5130, 131, 215, "Input"], Cell[2215724, 60849, 7015, 217, 179, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2222776, 61071, 1330, 25, 47, "Subsubsection"], Cell[2224109, 61098, 2856, 76, 96, "Input"], Cell[2226968, 61176, 5686, 147, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2232691, 61328, 1330, 25, 47, "Subsubsection"], Cell[2234024, 61355, 2856, 76, 96, "Input"], Cell[2236883, 61433, 5686, 147, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2242606, 61585, 1330, 25, 47, "Subsubsection"], Cell[2243939, 61612, 2856, 76, 96, "Input"], Cell[2246798, 61690, 5686, 147, 130, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2252521, 61842, 1332, 25, 47, "Subsubsection"], Cell[2253856, 61869, 2854, 76, 96, "Input"], Cell[2256713, 61947, 5686, 147, 130, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2262448, 62100, 1285, 28, 78, "Subsection"], Cell[CellGroupData[{ Cell[2263758, 62132, 819, 13, 53, "Subsubsection"], Cell[2264580, 62147, 5681, 153, 198, "Input"], Cell[2270264, 62302, 306, 8, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2270607, 62315, 763, 13, 47, "Subsubsection"], Cell[2271373, 62330, 676, 19, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2272086, 62354, 829, 13, 47, "Subsubsection"], Cell[2272918, 62369, 7641, 197, 368, "Input"], Cell[2280562, 62568, 804, 15, 41, "DisplayFormula"], Cell[2281369, 62585, 517, 14, 62, "Input"], Cell[2281889, 62601, 805, 15, 41, "DisplayFormula"], Cell[2282697, 62618, 646, 17, 62, "Input"], Cell[2283346, 62637, 805, 15, 41, "DisplayFormula"], Cell[2284154, 62654, 646, 17, 62, "Input"], Cell[2284803, 62673, 855, 16, 41, "DisplayFormula"], Cell[2285661, 62691, 717, 19, 62, "Input"], Cell[2286381, 62712, 905, 17, 41, "DisplayFormula"], Cell[2287289, 62731, 758, 20, 62, "Input"], Cell[2288050, 62753, 907, 17, 41, "DisplayFormula"], Cell[2288960, 62772, 891, 24, 62, "Input"], Cell[2289854, 62798, 905, 17, 41, "DisplayFormula"], Cell[2290762, 62817, 920, 23, 62, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2291731, 62846, 2764, 79, 122, "Subsection"], Cell[CellGroupData[{ Cell[2294520, 62929, 809, 13, 53, "Subsubsection"], Cell[2295332, 62944, 1259, 38, 62, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2296628, 62987, 911, 14, 47, "Subsubsection"], Cell[2297542, 63003, 8482, 221, 402, "Input"], Cell[2306027, 63226, 783, 15, 41, "DisplayFormula"], Cell[2306813, 63243, 454, 12, 62, "Input"], Cell[2307270, 63257, 835, 16, 41, "DisplayFormula"], Cell[2308108, 63275, 454, 12, 62, "Input"], Cell[2308565, 63289, 835, 16, 41, "DisplayFormula"], Cell[2309403, 63307, 454, 12, 62, "Input"], Cell[2309860, 63321, 834, 16, 41, "DisplayFormula"], Cell[2310697, 63339, 456, 12, 62, "Input"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2311214, 63358, 705, 13, 53, "Section"], Cell[CellGroupData[{ Cell[2311944, 63375, 925, 13, 64, "Subsection"], Cell[CellGroupData[{ Cell[2312894, 63392, 1057, 15, 53, "Subsubsection"], Cell[2313954, 63409, 975, 16, 41, "DisplayFormula"], Cell[2314932, 63427, 1017, 18, 41, "DisplayFormula"], Cell[2315952, 63447, 161, 4, 44, "Input"], Cell[2316116, 63453, 157, 4, 44, "Input"], Cell[2316276, 63459, 158, 4, 44, "Input"], Cell[2316437, 63465, 161, 4, 44, "Input"], Cell[2316601, 63471, 646, 12, 41, "DisplayFormula"], Cell[2317250, 63485, 401, 11, 52, "Input"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)