(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     97383,       3298]
NotebookOptionsPosition[     81306,       2754]
NotebookOutlinePosition[     84385,       2844]
CellTagsIndexPosition[     83627,       2823]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["SequenceIdentification 1.21", "Title"],

Cell["documentation notebook", "Subtitle"],

Cell[TextData[{
 "Eric Rowland\n",
 ButtonBox["http://math.tulane.edu/~erowland/packages.html",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://math.tulane.edu/~erowland/packages.html"], None}]
}], "Subsubtitle"],

Cell[CellGroupData[{

Cell["Introduction", "Section"],

Cell["\<\
SequenceIdentification is a package for identifying and studying integer \
sequences.
This introduction gives an overview of the main features of the package; the \
next section provides a complete list of package symbols along with their \
usage messages and further examples.\
\>", "Text"],

Cell[TextData[{
 "To use SequenceIdentification, first you will need to load the package by \
evaluating the following cell.  (If you need help, see ",
 ButtonBox["loading a package",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://math.rutgers.edu/~erowland/programs/loadingapackage.html"], 
    None},
  ButtonNote->
   "http://math.rutgers.edu/~erowland/programs/loadingapackage.html"],
 ".)"
}], "Text"],

Cell[BoxData[
 RowBox[{"<<", "SequenceIdentification`"}]], "Code"],

Cell[CellGroupData[{

Cell["Elementary number theory", "Subsection"],

Cell[TextData[{
 "SequenceIdentification extends built-in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " functionality for number theoretic functions on integers such as ",
 StyleBox["DigitCount", "Input"],
 ", ",
 StyleBox["IntegerDigits", "Input"],
 ", and ",
 StyleBox["IntegerExponent", "Input"],
 "."
}], "Text"],

Cell["\<\
The radical of an integer is the product of its prime divisors.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Radical", "[", "200", "]"}]], "Input"],

Cell[BoxData["10"], "Output"]
}, Open  ]],

Cell[TextData[{
 StyleBox["RationalComplement", "Input"],
 " and ",
 StyleBox["RationalPart", "Input"],
 " partition a number multiplicatively."
}], "Text"],

Cell["Pull out all factors of 4 from 800:", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RationalPart", "[", 
  RowBox[{"800", ",", "4"}], "]"}]], "Input"],

Cell[BoxData["16"], "Output"]
}, Open  ]],

Cell["\<\
Find what's left from 800 after pulling out all factors of 4:\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RationalComplement", "[", 
  RowBox[{"800", ",", "4"}], "]"}]], "Input"],

Cell[BoxData["50"], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Specific integer sequences", "Subsection"],

Cell[TextData[{
 "Two symbols giving integer sequences are available in \
SequenceIdentification \[LongDash] ",
 StyleBox["MotzkinNumber", "Input"],
 " and ",
 StyleBox["TriangularNumber", "Input"],
 "."
}], "Text"],

Cell["\<\
The Motzkin numbers are closely related to the Catalan numbers.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MotzkinNumber", "/@", 
  RowBox[{"Range", "[", "10", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "4", ",", "9", ",", "21", ",", "51", ",", "127", ",", 
   "323", ",", "835", ",", "2188"}], "}"}]], "Output"]
}, Open  ]],

Cell["\<\
The triangular numbers form the second column of Pascal's triangle.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TriangularNumber", "/@", 
  RowBox[{"Range", "[", 
   RowBox[{"0", ",", "10"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "3", ",", "6", ",", "10", ",", "15", ",", "21", ",", 
   "28", ",", "36", ",", "45", ",", "55"}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Identifying integer sequences", "Subsection"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " has several powerful built-in symbols for sequence identification, \
including ",
 StyleBox["InterpolatingPolynomial", "Input"],
 ", ",
 StyleBox["FindSequenceFunction", "Input"],
 ", and ",
 StyleBox["FindGeneratingFunction", "Input"],
 ".  SequenceIdentification generalizes ",
 StyleBox["InterpolatingPolynomial", "Input"],
 " to multidimensional arrays and includes two new symbols for identifying \
quasi-polynomials and ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]]],
 "-regular sequences, ",
 StyleBox["InterpolatingQuasiPolynomial", "Input"],
 " and ",
 StyleBox["FindRegularSequenceFunction", "Input"],
 "."
}], "Text"],

Cell[TextData[{
 "Find the polynomial in ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 " that reproduces an array of values for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1", "\[LessEqual]", "x", "\[LessEqual]", "3"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1", "\[LessEqual]", "y", "\[LessEqual]", "4"}], TraditionalForm]]],
 ":"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingPolynomial", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "29", ",", "83", ",", "179"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11", ",", "78", ",", "247", ",", "566"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"21", ",", "159", ",", "519", ",", "1209"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "x"}], "+", 
  RowBox[{"x", " ", "y"}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox["y", "3"]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "x"}], "+", 
    RowBox[{"x", " ", "y"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["y", "2"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["x", "2"], " ", 
     SuperscriptBox["y", "3"]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "4"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "29", ",", "83", ",", "179"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "78", ",", "247", ",", "566"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "159", ",", "519", ",", "1209"}], "}"}]}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[TextData[{
 "A quasi-polynomial is a function that, when restricted to each residue \
class modulo ",
 Cell[BoxData[
  FormBox["m", TraditionalForm]]],
 ", is a polynomial.  For example, the coefficients of some rational series \
are quasi-polynomials."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x", "+", 
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["x", "3"], "+", 
       SuperscriptBox["x", "4"]}], ")"}], "2"]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   RowBox[{"2", " ", "x"}], "+", 
   SuperscriptBox["x", "2"], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["x", "5"]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "6"]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["x", "7"]}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "10"]}], "-", 
   RowBox[{"6", " ", 
    SuperscriptBox["x", "11"]}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "12"]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "15"]}], "-", 
   RowBox[{"8", " ", 
    SuperscriptBox["x", "16"]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "17"]}], "+", 
   RowBox[{"5", " ", 
    SuperscriptBox["x", "20"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "21"],
    SeriesData[$CellContext`x, 0, {}, 0, 21, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {1, -2, 1, 0, 0, 2, -4, 2, 0, 0, 3, -6, 3, 0, 
   0, 4, -8, 4, 0, 0, 5}, 0, 21, 1],
  Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingQuasiPolynomial", "[", 
  RowBox[{
   RowBox[{"CoefficientList", "[", 
    RowBox[{
     RowBox[{"Normal", "[", 
      RowBox[{"Series", "[", 
       RowBox[{
        FractionBox["1", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "x", "+", 
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["x", "3"], "+", 
            SuperscriptBox["x", "4"]}], ")"}], "2"]], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
     "x"}], "]"}], ",", 
   RowBox[{"n", "+", "1"}], ",", "5"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {"0", 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "0"}]},
    {
     RowBox[{"1", "+", 
      FractionBox["n", "5"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "1"}]},
    {
     RowBox[{
      RowBox[{"-", 
       FractionBox["8", "5"]}], "-", 
      FractionBox[
       RowBox[{"2", " ", "n"}], "5"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "2"}]},
    {
     RowBox[{
      FractionBox["3", "5"], "+", 
      FractionBox["n", "5"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "3"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->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" -> {}}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"n", "=", "0"}], "20"], 
  RowBox[{
   SuperscriptBox["x", "n"], 
   RowBox[{"\[Piecewise]", GridBox[{
      {"0", 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "0"}]},
      {
       RowBox[{"1", "+", 
        FractionBox["n", "5"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "1"}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["8", "5"]}], "-", 
        FractionBox[
         RowBox[{"2", " ", "n"}], "5"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "2"}]},
      {
       RowBox[{
        FractionBox["3", "5"], "+", 
        FractionBox["n", "5"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{"1", "+", "n"}], ",", "5"}], "]"}], "\[Equal]", "3"}]},
      {"0", 
       TagBox["True",
        "PiecewiseDefault",
        AutoDelete->False,
        DeletionWarning->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" -> {}}]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{"2", " ", "x"}], "+", 
  SuperscriptBox["x", "2"], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "5"]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "6"]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "7"]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["x", "10"]}], "-", 
  RowBox[{"6", " ", 
   SuperscriptBox["x", "11"]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["x", "12"]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "15"]}], "-", 
  RowBox[{"8", " ", 
   SuperscriptBox["x", "16"]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "17"]}], "+", 
  RowBox[{"5", " ", 
   SuperscriptBox["x", "20"]}]}]], "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Package symbols", "Section"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["CauchyProduct", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", 
  StyleBox["CauchyProduct", "Input"]}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"CauchyProduct[{\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\\\
\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"], \
\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\\\"], StyleBox[\\\"k\\\", \
\\\"TI\\\"]]\)}, {\!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\
\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \
\*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"], \
\!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], StyleBox[\\\"k\\\", \
\\\"TI\\\"]]\)}] gives the Cauchy product of two sequences.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871514-8903707"]
}, Open  ]],

Cell["\<\
The Cauchy product of two sequences corresponds to the multiplication of \
their generating functions:\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CoefficientList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "5"], 
      RowBox[{
       SubscriptBox["a", "i"], " ", 
       SuperscriptBox["x", "i"]}]}], ")"}], 
    RowBox[{"(", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "5"], 
      RowBox[{
       SubscriptBox["b", "i"], " ", 
       SuperscriptBox["x", "i"]}]}], ")"}]}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "0"], " ", 
    SubscriptBox["b", "0"]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "1"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "3"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    SubscriptBox["a", "5"], " ", 
    SubscriptBox["b", "5"]}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CauchyProduct", "[", 
  RowBox[{
   RowBox[{"PadRight", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      SubscriptBox["a", 
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", "5"}], "]"}]], "]"}], ",", "11"}], "]"}], ",", 
   RowBox[{"PadRight", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      SubscriptBox["b", 
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", "5"}], "]"}]], "]"}], ",", "11"}], "]"}]}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "0"], " ", 
    SubscriptBox["b", "0"]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "1"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "3"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "0"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "0"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "1"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "2"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "2"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "3"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "3"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "5"], " ", 
     SubscriptBox["b", "4"]}], "+", 
    RowBox[{
     SubscriptBox["a", "4"], " ", 
     SubscriptBox["b", "5"]}]}], ",", 
   RowBox[{
    SubscriptBox["a", "5"], " ", 
    SubscriptBox["b", "5"]}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "\[Equal]", "%%"}]], "Input"],

Cell[BoxData["True"], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["ComplexListPlot", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ComplexListPlot"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"ComplexListPlot[{\!\(\*SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\
\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}] plots a list of \
numbers in the complex plane.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871514-7836812"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexListPlot", "[", 
  RowBox[{"z", "/.", "\[InvisibleSpace]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["z", "5"], "+", 
      RowBox[{"2", " ", "z"}], "+", "1"}], "\[Equal]", "0"}], "]"}]}], 
  "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointSize[0.015], 
    PointBox[{{-0.48638903593454297`, 
     0.}, {-0.7018735688558619, -0.879697197929824}, {-0.7018735688558619, 
     0.879697197929824}, {0.9450680868231334, -0.8545175144390459}, {
     0.9450680868231334, 0.8545175144390459}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output"]
}, Open  ]],

Cell[TextData[{
 StyleBox["ComplexListPlot", "Input"],
 " inherits the options of ",
 StyleBox["ListPlot", "Input"],
 "."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "ComplexListPlot", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"AlignmentPoint", "\[Rule]", "Center"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    FractionBox["1", "GoldenRatio"]}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Background", "\[Rule]", "None"}], ",", 
   RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",", 
   RowBox[{"ColorOutput", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ContentSelectable", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"CoordinatesToolOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"DataRange", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"DisplayFunction", "\[RuleDelayed]", "$DisplayFunction"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Filling", "\[Rule]", "None"}], ",", 
   RowBox[{"FillingStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FormatType", "\[RuleDelayed]", "TraditionalForm"}], ",", 
   RowBox[{"Frame", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FrameTicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", "None"}], ",", 
   RowBox[{"GridLinesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ImageMargins", "\[Rule]", "0.`"}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ImageSizeRaw", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "None"}], ",", 
   RowBox[{"Joined", "\[Rule]", "False"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"MaxPlotPoints", "\[Rule]", "\[Infinity]"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshFunctions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"#1", "&"}], "}"}]}], ",", 
   RowBox[{"MeshShading", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PerformanceGoal", "\[RuleDelayed]", "$PerformanceGoal"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRegion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.015`", "]"}]}], ",", 
   RowBox[{"PreserveImageOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Prolog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
   RowBox[{"Ticks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"TicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}]}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["DigitList", "Input"],
 StyleBox[" (variant of ",
  FontWeight->"Plain"],
 StyleBox["IntegerDigits", "Input"],
 StyleBox[")",
  FontWeight->"Plain"]
}], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "DigitList"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"DigitList[\*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives a list of \
the decimal digits of \*StyleBox[\\\"n\\\", \\\"TI\\\"], where successive \
digits increase in significance.\\nDigitList[\*StyleBox[\\\"n\\\", \
\\\"TI\\\"], \*StyleBox[\\\"b\\\", \\\"TI\\\"]] gives a list of the base\
\[Hyphen]\*StyleBox[\\\"b\\\", \\\"TI\\\"] digits of \*StyleBox[\\\"n\\\", \\\
\"TI\\\"].\\nDigitList[\*StyleBox[\\\"n\\\", \\\"TI\\\"], \
\*StyleBox[\\\"b\\\", \\\"TI\\\"], \*StyleBox[\\\"len\\\", \\\"TI\\\"]] pads \
the list on the right with zeros to give a list of length \
\*StyleBox[\\\"len\\\", \\\"TI\\\"].\\nDigitList[\*StyleBox[\\\"n\\\", \\\"TI\
\\\"], \\\"Factorial\\\"] gives a list of the factorial base digits of \
\*StyleBox[\\\"n\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871514-8884873"]
}, Open  ]],

Cell[TextData[{
 StyleBox["DigitList", "Input"],
 " extends functionality of ",
 StyleBox["IntegerDigits", "Input"],
 " to negative integer bases and the factorial base."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitList", "[", 
  RowBox[{"2179", ",", 
   RowBox[{"-", "3"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "0", ",", "2", ",", "1", ",", "0", ",", "0", ",", "0", ",", "2", 
   ",", "1"}], "}"}]], "Output"]
}, Open  ]],

Cell[TextData[{
 "Use ",
 StyleBox["FromDigitList", "Input"],
 " to reconstruct the integer:"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDigitList", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0", ",", "2", ",", "1", ",", "0", ",", "0", ",", "0", ",", "2",
      ",", "1"}], "}"}], ",", 
   RowBox[{"-", "3"}]}], "]"}]], "Input"],

Cell[BoxData["2179"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitList", "[", 
  RowBox[{"2179", ",", "\"\<Factorial\>\""}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "3", ",", "0", ",", "0", ",", "3"}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDigitList", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "3", ",", "0", ",", "0", ",", "3"}], "}"}], 
   ",", "\"\<Factorial\>\""}], "]"}]], "Input"],

Cell[BoxData["2179"], "Output"]
}, Open  ]],

Cell[TextData[{
 "Unlike ",
 StyleBox["IntegerDigits", "Input"],
 ", ",
 StyleBox["DigitList", "Input"],
 " considers 0 to have length 0:"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerDigits", "[", 
  RowBox[{"0", ",", "2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", "0", "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitList", "[", 
  RowBox[{"0", ",", "2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["DigitsCount", "Input"],
 StyleBox[" (generalization of ",
  FontWeight->"Plain"],
 StyleBox["DigitCount", "Input"],
 StyleBox[")",
  FontWeight->"Plain"]
}], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "DigitsCount"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"DigitsCount[\*StyleBox[\\\"n\\\", \\\"TI\\\"], \
\*StyleBox[\\\"b\\\", \\\"TI\\\"], \*StyleBox[\\\"d\\\", \\\"TI\\\"]] gives \
the number of \*StyleBox[\\\"d\\\", \\\"TI\\\"] digits in the \
base\[Hyphen]\*StyleBox[\\\"b\\\", \\\"TI\\\"] representation of \
\*StyleBox[\\\"n\\\", \\\"TI\\\"].\\nDigitsCount[\*StyleBox[\\\"n\\\", \\\"TI\
\\\"], \*StyleBox[\\\"b\\\", \\\"TI\\\"], \*StyleBox[\\\"digitlist\\\", \
\\\"TI\\\"]] gives the number of appearances of a block of digits in the base\
\[Hyphen]\*StyleBox[\\\"b\\\", \\\"TI\\\"] representation of \*StyleBox[\\\"n\
\\\", \\\"TI\\\"], where successive digits increase in significance.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871515-6741081"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitsCount", "[", 
  RowBox[{"1111729111", ",", "10", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["5"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitsCount", "[", 
  RowBox[{"1111729111", ",", "10", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["3"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitsCount", "[", 
  RowBox[{
   RowBox[{"FromDigits", "[", 
    RowBox[{"\"\<101\>\"", ",", "2"}], "]"}], ",", "2", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["2"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitsCount", "[", 
  RowBox[{
   RowBox[{"FromDigits", "[", 
    RowBox[{"\"\<1010101\>\"", ",", "2"}], "]"}], ",", "2", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["3"], "Output"]
}, Open  ]],

Cell[TextData[{
 "Unlike ",
 StyleBox["DigitCount", "Input"],
 ", ",
 StyleBox["DigitsCount", "Input"],
 " considers 0 to have length 0:"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitCount", "[", 
  RowBox[{"0", ",", "2", ",", "0"}], "]"}]], "Input"],

Cell[BoxData["1"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitsCount", "[", 
  RowBox[{"0", ",", "2", ",", "0"}], "]"}]], "Input"],

Cell[BoxData["0"], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["FactorForm", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FactorForm"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"FactorForm[\*StyleBox[\\\"n\\\", \\\"TI\\\"]] writes integers, \
rationals, and Gaussian integers as products of their prime factors.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871515-4261484"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"FactorForm", "[", 
       RowBox[{"n", "!"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {"0", "1"},
    {"1", "1"},
    {"2", 
     TagBox["\<\"2\"\>",
      DisplayForm]},
    {"3", 
     TagBox[
      RowBox[{"2", " ", "3"}],
      DisplayForm]},
    {"4", 
     TagBox[
      RowBox[{
       SuperscriptBox["2", "3"], " ", "3"}],
      DisplayForm]},
    {"5", 
     TagBox[
      RowBox[{
       SuperscriptBox["2", "3"], " ", "3", " ", "5"}],
      DisplayForm]},
    {"6", 
     TagBox[
      RowBox[{
       SuperscriptBox["2", "4"], " ", 
       SuperscriptBox["3", "2"], " ", "5"}],
      DisplayForm]},
    {"7", 
     TagBox[
      RowBox[{
       SuperscriptBox["2", "4"], " ", 
       SuperscriptBox["3", "2"], " ", "5", " ", "7"}],
      DisplayForm]},
    {"8", 
     TagBox[
      RowBox[{
       SuperscriptBox["2", "7"], " ", 
       SuperscriptBox["3", "2"], " ", "5", " ", "7"}],
      DisplayForm]},
    {"9", 
     TagBox[
      RowBox[{
       SuperscriptBox["2", "7"], " ", 
       SuperscriptBox["3", "4"], " ", "5", " ", "7"}],
      DisplayForm]},
    {"10", 
     TagBox[
      RowBox[{
       SuperscriptBox["2", "8"], " ", 
       SuperscriptBox["3", "4"], " ", 
       SuperscriptBox["5", "2"], " ", "7"}],
      DisplayForm]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.7]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorForm", "[", 
  FractionBox[
   RowBox[{"Zeta", "[", "8", "]"}], 
   SuperscriptBox["\[Pi]", "8"]], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox["3", "3"], " ", 
    SuperscriptBox["5", "2"], " ", "7"}]],
  DisplayForm]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorForm", "[", 
  FractionBox[
   RowBox[{"17", " ", "\[ImaginaryI]"}], "5"], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"4", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"4", "+", "\[ImaginaryI]"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}]}]],
  DisplayForm]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorForm", "[", 
  RowBox[{"Zeta", "[", "8", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Pi]", 
   TagBox[
    SuperscriptBox["2", "3"],
    DisplayForm]], " ", 
  TagBox[
   FractionBox["1", 
    RowBox[{"2", " ", 
     SuperscriptBox["3", "3"], " ", 
     SuperscriptBox["5", "2"], " ", "7"}]],
   DisplayForm]}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["FactorTable", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FactorTable"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"FactorTable[\*StyleBox[\\\"list\\\", \\\"TI\\\"]] displays a \
table of the orders to which all primes dividing at least one of the Gaussian \
rational numbers in \*StyleBox[\\\"list\\\", \\\"TI\\\"] divide \
each.\\nFactorTable[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \*StyleBox[\\\"zero\
\\\", \\\"TI\\\"]] replaces each 0 in the table with \*StyleBox[\\\"zero\\\", \
\\\"TI\\\"] rather than with Null.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871515-1697390"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", 
   RowBox[{"Range", "[", "20", "]"}]], "-", "1"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "3", ",", "7", ",", "15", ",", "31", ",", "63", ",", "127", ",", 
   "255", ",", "511", ",", "1023", ",", "2047", ",", "4095", ",", "8191", ",",
    "16383", ",", "32767", ",", "65535", ",", "131071", ",", "262143", ",", 
   "524287", ",", "1048575"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorTable", "[", 
  RowBox[{
   SuperscriptBox["2", 
    RowBox[{"Range", "[", "20", "]"}]], "-", "1"}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "3", "5", "7", "11", "13", "17", "19", "23", "31", "41", "43", "73", 
     "89", "127", "151", "257", "8191", "131071", "524287"},
    {"1", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", ""},
    {"3", "1", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
      "", ""},
    {"7", "", "", "1", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
      "", ""},
    {"15", "1", "1", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", ""},
    {"31", "", "", "", "", "", "", "", "", "1", "", "", "", "", "", "", "", 
     "", "", ""},
    {"63", "2", "", "1", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", ""},
    {"127", "", "", "", "", "", "", "", "", "", "", "", "", "", "1", "", "", 
     "", "", ""},
    {"255", "1", "1", "", "", "", "1", "", "", "", "", "", "", "", "", "", "",
      "", "", ""},
    {"511", "", "", "1", "", "", "", "", "", "", "", "", "1", "", "", "", "", 
     "", "", ""},
    {"1023", "1", "", "", "1", "", "", "", "", "1", "", "", "", "", "", "", 
     "", "", "", ""},
    {"2047", "", "", "", "", "", "", "", "1", "", "", "", "", "1", "", "", "",
      "", "", ""},
    {"4095", "2", "1", "1", "", "1", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", ""},
    {"8191", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "1", "", ""},
    {"16383", "1", "", "", "", "", "", "", "", "", "", "1", "", "", "1", "", 
     "", "", "", ""},
    {"32767", "", "", "1", "", "", "", "", "", "1", "", "", "", "", "", "1", 
     "", "", "", ""},
    {"65535", "1", "1", "", "", "", "1", "", "", "", "", "", "", "", "", "", 
     "1", "", "", ""},
    {"131071", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
      "", "1", ""},
    {"262143", "3", "", "1", "", "", "", "1", "", "", "", "", "1", "", "", "",
      "", "", "", ""},
    {"524287", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
      "", "", "1"},
    {"1048575", "1", "2", "", "1", "", "", "", "", "1", "1", "", "", "", "", 
     "", "", "", "", ""}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Right}}},
   GridBoxDividers->{"Columns" -> {False, True}, "Rows" -> {False, True}},
   GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}],
  "Grid"]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorTable", "[", 
  RowBox[{"1", "+", 
   RowBox[{
    RowBox[{"Range", "[", "20", "]"}], " ", "\[ImaginaryI]"}]}], 
  "]"}]], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", 
     RowBox[{"1", "+", "\[ImaginaryI]"}], 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"2", "+", "\[ImaginaryI]"}], 
     RowBox[{"2", "+", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"3", "+", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"1", "+", 
      RowBox[{"4", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"4", "+", "\[ImaginaryI]"}], 
     RowBox[{"2", "+", 
      RowBox[{"5", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"5", "+", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"1", "+", 
      RowBox[{"6", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"5", "+", 
      RowBox[{"4", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"6", "+", 
      RowBox[{"5", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"1", "+", 
      RowBox[{"10", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"8", "+", 
      RowBox[{"7", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"10", "+", 
      RowBox[{"9", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"1", "+", 
      RowBox[{"14", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"1", "+", 
      RowBox[{"16", " ", "\[ImaginaryI]"}]}], 
     RowBox[{"1", "+", 
      RowBox[{"20", " ", "\[ImaginaryI]"}]}]},
    {
     RowBox[{"1", "+", "\[ImaginaryI]"}], "1", "", "", "", "", "", "", "", "",
      "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], "", "1", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}], "1", "", "1", "", "", "", "", "",
      "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"4", " ", "\[ImaginaryI]"}]}], "", "", "", "", "", "1", "", "", 
     "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"5", " ", "\[ImaginaryI]"}]}], "1", "", "", "", "1", "", "", "",
      "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"6", " ", "\[ImaginaryI]"}]}], "", "", "", "", "", "", "", "", 
     "", "1", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"7", " ", "\[ImaginaryI]"}]}], "1", "2", "", "", "", "", "", "",
      "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"8", " ", "\[ImaginaryI]"}]}], "", "", "1", "1", "", "", "", "",
      "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"9", " ", "\[ImaginaryI]"}]}], "1", "", "", "", "", "", "", "", 
     "", "", "1", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"10", " ", "\[ImaginaryI]"}]}], "", "", "", "", "", "", "", "", 
     "", "", "", "", "1", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"11", " ", "\[ImaginaryI]"}]}], "1", "", "", "", "", "", "", "",
      "", "", "", "1", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"12", " ", "\[ImaginaryI]"}]}], "", "1", "", "", "", "", "", "",
      "1", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"13", " ", "\[ImaginaryI]"}]}], "1", "", "1", "", "", "", "1", 
     "", "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"14", " ", "\[ImaginaryI]"}]}], "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", "1", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"15", " ", "\[ImaginaryI]"}]}], "1", "", "", "", "", "", "", "",
      "", "", "", "", "", "1", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"16", " ", "\[ImaginaryI]"}]}], "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", "", "1", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"17", " ", "\[ImaginaryI]"}]}], "1", "1", "", "", "", "", "", 
     "1", "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"18", " ", "\[ImaginaryI]"}]}], "", "", "2", "", "1", "", "", 
     "", "", "", "", "", "", "", "", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"19", " ", "\[ImaginaryI]"}]}], "1", "", "", "", "", "", "", "",
      "", "", "", "", "", "", "1", "", "", ""},
    {
     RowBox[{"1", "+", 
      RowBox[{"20", " ", "\[ImaginaryI]"}]}], "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", "", "", "1"}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Right}}},
   GridBoxDividers->{"Columns" -> {False, True}, "Rows" -> {False, True}},
   GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}],
  "Grid"]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["FromDigitList", "Input"],
 StyleBox[" (variant and generalization of ",
  FontWeight->"Plain"],
 StyleBox["FromDigits", "Input"],
 StyleBox[")",
  FontWeight->"Plain"]
}], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FromDigitList"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"FromDigitList[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \
\*StyleBox[\\\"b\\\", \\\"TI\\\"]] constructs an integer from the list of its \
base\[Hyphen]\*StyleBox[\\\"b\\\", \\\"TI\\\"] digits, where successive \
digits increase in significance.\\nFromDigitList[\*StyleBox[\\\"list\\\", \
\\\"TI\\\"], {\!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], StyleBox[\\\
\"0\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \
\\\"TI\\\"], \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], \
StyleBox[\\\"m\\\", \\\"TI\\\"]]\)}] constructs an integer from its mixed \
base digits in bases \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], \
StyleBox[\\\"0\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\
\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"], \
\!\(\*SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], StyleBox[\\\"m\\\", \
\\\"TI\\\"]]\).\\nFromDigitList[\*StyleBox[\\\"list\\\", \\\"TI\\\"], \
\\\"Factorial\\\"] constructs an integer from the list of its factorial base \
digits.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451070543-2770564"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitList", "[", 
  RowBox[{"2179", ",", 
   RowBox[{"-", "3"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "0", ",", "2", ",", "1", ",", "0", ",", "0", ",", "0", ",", "2", 
   ",", "1"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDigitList", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0", ",", "2", ",", "1", ",", "0", ",", "0", ",", "0", ",", "2",
      ",", "1"}], "}"}], ",", 
   RowBox[{"-", "3"}]}], "]"}]], "Input"],

Cell[BoxData["2179"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DigitList", "[", 
  RowBox[{"2179", ",", "\"\<Factorial\>\""}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "3", ",", "0", ",", "0", ",", "3"}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDigitList", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "3", ",", "0", ",", "0", ",", "3"}], "}"}], 
   ",", "\"\<Factorial\>\""}], "]"}]], "Input"],

Cell[BoxData["2179"], "Output"]
}, Open  ]],

Cell["\<\
Compute the number of seconds in 2 weeks, 1 day, 15 hours, 45 minutes, and 3 \
seconds:\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDigitList", "[", 
  RowBox[{
   RowBox[{"Reverse", "[", 
    RowBox[{"{", 
     RowBox[{"2", ",", "1", ",", "15", ",", "45", ",", "3"}], "}"}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "60", ",", "24", ",", "7"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["1352703"], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["FunctionRiffle", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FunctionRiffle"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"FunctionRiffle[{\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\
\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TI\\\"], \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\
\"], StyleBox[\\\"m\\\", \\\"TI\\\"]]\)}, \*StyleBox[\\\"x\\\", \\\"TI\\\"]] \
forms a Piecewise expression in \*StyleBox[\\\"x\\\", \\\"TI\\\"] that \
represents the expressions \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\
\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TI\\\"], \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\
\"], StyleBox[\\\"m\\\", \\\"TI\\\"]]\) on residue classes modulo \*StyleBox[\
\\\"m\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871516-6748178"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionRiffle", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", ",", 
     SuperscriptBox["n", "2"], ",", 
     SuperscriptBox["n", "3"]}], "}"}], ",", "n"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     FractionBox[
      SuperscriptBox["n", "3"], "27"], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"n", ",", "3"}], "]"}], "\[Equal]", "0"}]},
    {
     FractionBox[
      RowBox[{"2", "+", "n"}], "3"], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"n", ",", "3"}], "]"}], "\[Equal]", "1"}]},
    {
     RowBox[{
      FractionBox["1", "9"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "n"}], ")"}], "2"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"n", ",", "3"}], "]"}], "\[Equal]", "2"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->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" -> {}}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"\[Piecewise]", GridBox[{
      {
       FractionBox[
        SuperscriptBox["n", "3"], "27"], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"n", ",", "3"}], "]"}], "\[Equal]", "0"}]},
      {
       FractionBox[
        RowBox[{"2", "+", "n"}], "3"], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"n", ",", "3"}], "]"}], "\[Equal]", "1"}]},
      {
       RowBox[{
        FractionBox["1", "9"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "n"}], ")"}], "2"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"n", ",", "3"}], "]"}], "\[Equal]", "2"}]},
      {"0", 
       TagBox["True",
        "PiecewiseDefault",
        AutoDelete->False,
        DeletionWarning->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" -> {}}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "2", ",", "4", ",", "8", ",", "3", ",", "9", 
   ",", "27", ",", "4", ",", "16", ",", "64", ",", "5", ",", "25", ",", "125",
    ",", "6", ",", "36", ",", "216", ",", "7", ",", "49", ",", "343", ",", 
   "8", ",", "64", ",", "512", ",", "9", ",", "81", ",", "729", ",", "10", 
   ",", "100", ",", "1000"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", 
      SuperscriptBox["n", "2"], ",", 
      SuperscriptBox["n", "3"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "2", ",", "4", ",", "8", ",", "3", ",", "9", 
   ",", "27", ",", "4", ",", "16", ",", "64", ",", "5", ",", "25", ",", "125",
    ",", "6", ",", "36", ",", "216", ",", "7", ",", "49", ",", "343", ",", 
   "8", ",", "64", ",", "512", ",", "9", ",", "81", ",", "729", ",", "10", 
   ",", "100", ",", "1000"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Transpose", "[", 
  RowBox[{"Partition", "[", 
   RowBox[{"%", ",", "3"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "4", ",", "9", ",", "16", ",", "25", ",", "36", ",", "49", ",", 
     "64", ",", "81", ",", "100"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "8", ",", "27", ",", "64", ",", "125", ",", "216", ",", "343", 
     ",", "512", ",", "729", ",", "1000"}], "}"}]}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["IntegerExponent", "Input"],
 StyleBox[" (generalization)",
  FontWeight->"Plain"]
}], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "IntegerExponent"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"IntegerExponent[\*StyleBox[\\\"n\\\", \\\"TI\\\"], \
\*StyleBox[\\\"b\\\", \\\"TI\\\"]] gives the highest power of \
\*StyleBox[\\\"b\\\", \\\"TI\\\"] that divides \*StyleBox[\\\"n\\\", \\\"TI\\\
\"].\\nIntegerExponent[\*StyleBox[\\\"r\\\", \\\"TI\\\"], \
\*StyleBox[\\\"b\\\", \\\"TI\\\"]] gives the order to which a rational number \
\*StyleBox[\\\"b\\\", \\\"TI\\\"] divides a rational number \
\*StyleBox[\\\"r\\\", \\\"TI\\\"], in the sense that the numerator divides \
the numerator and the denominator divides the denominator.\"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/IntegerExponent"]}]], "Print", "PrintUsage",
 CellTags->"Info3449871516-2955937"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerExponent", "[", 
  RowBox[{"10000", ",", "2"}], "]"}]], "Input"],

Cell[BoxData["4"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerExponent", "[", 
  RowBox[{
   RowBox[{"405", "/", "64"}], ",", " ", 
   RowBox[{"3", "/", "4"}]}], "]"}]], "Input"],

Cell[BoxData["3"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerExponent", "[", 
  RowBox[{
   RowBox[{"64", "/", "405"}], ",", " ", 
   RowBox[{"3", "/", "4"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", "3"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerExponent", "[", 
  RowBox[{
   RowBox[{"BernoulliB", "[", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "100", ",", "2"}], "]"}], "]"}], ",", "5"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "2", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", 
   RowBox[{"-", "1"}]}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["InterpolatingPolynomial", "Input"],
 StyleBox[" (generalization)",
  FontWeight->"Plain"]
}], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "InterpolatingPolynomial"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"InterpolatingPolynomial[{\!\(\*SubscriptBox[StyleBox[\\\"f\\\"\
, \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \
\*StyleBox[\\\"x\\\", \\\"TI\\\"]] constructs an interpolating polynomial in \
\*StyleBox[\\\"x\\\", \\\"TI\\\"] which reproduces the function values \
\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\) at successive integer values 1, 2, \[Ellipsis] of \
\*StyleBox[\\\"x\\\", \
\\\"TI\\\"].\\nInterpolatingPolynomial[{\!\(\*SubscriptBox[StyleBox[\\\"f\\\",\
 \\\"TI\\\"], StyleBox[\\\"d\\\", \\\"TI\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"d+1\\\", \
\\\"TI\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \
\*StyleBox[\\\"x\\\", \\\"TI\\\"], \*StyleBox[\\\"d\\\", \\\"TI\\\"]] \
reproduces \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\
\\\", \\\"TI\\\"]]\) at \*StyleBox[\\\"d\\\", \\\"TI\\\"], \*StyleBox[\\\"d+1\
\\\", \\\"TI\\\"], \*StyleBox[\\\"...\\\", \
\\\"TI\\\"].\\nInterpolatingPolynomial[{{\!\(\*SubscriptBox[StyleBox[\\\"x\\\"\
, \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]]\)}, {\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\
\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\)}, \*StyleBox[\\\"...\\\", \
\\\"TI\\\"]}, \*StyleBox[\\\"x\\\", \\\"TI\\\"]] constructs an interpolating \
polynomial for the function values \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \
\\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\) corresponding to \
\*StyleBox[\\\"x\\\", \\\"TI\\\"] values \
\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\).\\nInterpolatingPolynomial[{{{\!\(\*SubscriptBox[StyleBox[\\\"\
x\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"y\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]]\), \*StyleBox[\\\"...\\\", \\\"TI\\\"]}, \
\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]]\)}, {{\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"y\\\", \\\
\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"...\\\", \\\"TI\
\\\"]}, \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]]\)}, \*StyleBox[\\\"...\\\", \\\"TI\\\"]}, \
{\*StyleBox[\\\"x\\\", \\\"TI\\\"], \*StyleBox[\\\"y\\\", \\\"TI\\\"], \
\*StyleBox[\\\"...\\\", \\\"TI\\\"]}] constructs a multidimensional \
interpolating polynomial in the variables \*StyleBox[\\\"x\\\", \\\"TI\\\"], \
\*StyleBox[\\\"y\\\", \\\"TI\\\"], \*StyleBox[\\\"...\\\", \
\\\"TI\\\"].\\nInterpolatingPolynomial[\*StyleBox[\\\"data\\\", \\\"TI\\\"], \
{\*StyleBox[\\\"x\\\", \\\"TI\\\"], \*StyleBox[\\\"y\\\", \\\"TI\\\"], \
\*StyleBox[\\\"...\\\", \\\"TI\\\"]}] gives a multivariate polynomial which \
provides an exact fit to a full array of \
data.\\nInterpolatingPolynomial[\*StyleBox[\\\"data\\\", \\\"TI\\\"]] gives \
the coefficient array of the multivariate interpolating \
polynomial.\\nInterpolatingPolynomial[{{{\!\(\*SubscriptBox[StyleBox[\\\"x\\\"\
, \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\
\\\", \\\"TI\\\"]}, \!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\\\"df\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"...\\\", \
\\\"TI\\\"]}, \*StyleBox[\\\"...\\\", \\\"TI\\\"]}, {\*StyleBox[\\\"x\\\", \\\
\"TI\\\"], \*StyleBox[\\\"...\\\", \\\"TI\\\"]}] constructs an interpolating \
polynomial that reproduces derivatives as well as function values.\"\>", 
   "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/InterpolatingPolynomial"]}]], "Print", "PrintUsage",
 CellTags->"Info3449871516-6023091"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"x", "-", 
    SuperscriptBox["x", "2"]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2"}], ",", "0", ",", "0", ",", 
   RowBox[{"-", "2"}], ",", 
   RowBox[{"-", "6"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingPolynomial", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "2"}], ",", "0", ",", "0", ",", 
    RowBox[{"-", "2"}], ",", 
    RowBox[{"-", "6"}]}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "6"}], ",", "5", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"InterpolatingPolynomial", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "0", ",", "0", ",", 
      RowBox[{"-", "2"}], ",", 
      RowBox[{"-", "6"}]}], "}"}], ",", "x"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "6"}], "+", 
  RowBox[{"5", " ", "x"}], "-", 
  SuperscriptBox["x", "2"]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"InterpolatingPolynomial", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "0", ",", "0", ",", 
      RowBox[{"-", "2"}], ",", 
      RowBox[{"-", "6"}]}], "}"}], ",", "x", ",", 
    RowBox[{"-", "1"}]}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"x", "-", 
  SuperscriptBox["x", "2"]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "x"}], "+", 
    RowBox[{"x", " ", "y"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["y", "2"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["x", "2"], " ", 
     SuperscriptBox["y", "3"]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "4"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "29", ",", "83", ",", "179"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "78", ",", "247", ",", "566"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "159", ",", "519", ",", "1209"}], "}"}]}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingPolynomial", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"5", ",", "29", ",", "83", ",", "179"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"11", ",", "78", ",", "247", ",", "566"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"21", ",", "159", ",", "519", ",", "1209"}], "}"}]}], "}"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "}"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingPolynomial", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "29", ",", "83", ",", "179"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11", ",", "78", ",", "247", ",", "566"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"21", ",", "159", ",", "519", ",", "1209"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "x"}], "+", 
  RowBox[{"x", " ", "y"}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox["y", "3"]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingPolynomial", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"3", " ", 
       SuperscriptBox["y", "2"]}], "-", 
      RowBox[{"3", " ", "z"}], "+", 
      RowBox[{"x", " ", "y", " ", "z"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["x", "2"], " ", 
       SuperscriptBox["y", "3"], " ", "z"}], "-", 
      RowBox[{"x", " ", 
       SuperscriptBox["z", "3"]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", "4"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", 
   SuperscriptBox["y", "2"]}], "-", 
  RowBox[{"3", " ", "z"}], "+", 
  RowBox[{"x", " ", "y", " ", "z"}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox["y", "3"], " ", "z"}], "-", 
  RowBox[{"x", " ", 
   SuperscriptBox["z", "3"]}]}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["InterpolatingQuasiPolynomial", "Input"]], \
"Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "InterpolatingQuasiPolynomial"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"InterpolatingQuasiPolynomial[{\!\(\*SubscriptBox[StyleBox[\\\"\
a\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \
\*StyleBox[\\\"x\\\", \\\"TI\\\"], \*StyleBox[\\\"m\\\", \\\"TI\\\"]] \
constructs an interpolating polynomial in \*StyleBox[\\\"x\\\", \\\"TI\\\"] \
for each residue class of \*StyleBox[\\\"x\\\", \\\"TI\\\"] modulo \
\*StyleBox[\\\"m\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871517-5620416"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingQuasiPolynomial", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "0", ",", "8", ",", "11", ",", "13", ",", "20", ",", "30", ",", "18", ",",
      "35", ",", "41", ",", "45", ",", "57", ",", "73", ",", "55", ",", "81", 
     ",", "90", ",", "96", ",", "113", ",", "135", ",", "111", ",", "146", 
     ",", "158", ",", "166", ",", "188", ",", "216", ",", "186", ",", "230", 
     ",", "245", ",", "255", ",", "282", ",", "316", ",", "280", ",", "333", 
     ",", "351", ",", "363", ",", "395"}], "}"}], ",", "x", ",", "6"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{"6", "+", 
      FractionBox[
       RowBox[{"29", " ", "x"}], "12"], "+", 
      FractionBox[
       RowBox[{"19", " ", 
        SuperscriptBox["x", "2"]}], "72"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "0"}]},
    {
     RowBox[{
      RowBox[{"-", 
       FractionBox["83", "72"]}], "+", 
      FractionBox[
       RowBox[{"8", " ", "x"}], "9"], "+", 
      FractionBox[
       RowBox[{"19", " ", 
        SuperscriptBox["x", "2"]}], "72"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "1"}]},
    {
     RowBox[{
      FractionBox["29", "9"], "+", 
      FractionBox[
       RowBox[{"67", " ", "x"}], "36"], "+", 
      FractionBox[
       RowBox[{"19", " ", 
        SuperscriptBox["x", "2"]}], "72"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "2"}]},
    {
     RowBox[{
      FractionBox["25", "8"], "+", 
      FractionBox[
       RowBox[{"11", " ", "x"}], "6"], "+", 
      FractionBox[
       RowBox[{"19", " ", 
        SuperscriptBox["x", "2"]}], "72"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "3"}]},
    {
     RowBox[{
      FractionBox["20", "9"], "+", 
      FractionBox[
       RowBox[{"59", " ", "x"}], "36"], "+", 
      FractionBox[
       RowBox[{"19", " ", 
        SuperscriptBox["x", "2"]}], "72"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "4"}]},
    {
     RowBox[{
      FractionBox["265", "72"], "+", 
      FractionBox[
       RowBox[{"35", " ", "x"}], "18"], "+", 
      FractionBox[
       RowBox[{"19", " ", 
        SuperscriptBox["x", "2"]}], "72"]}], 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "5"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->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" -> {}}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"\[Piecewise]", GridBox[{
      {
       RowBox[{"6", "+", 
        FractionBox[
         RowBox[{"29", " ", "x"}], "12"], "+", 
        FractionBox[
         RowBox[{"19", " ", 
          SuperscriptBox["x", "2"]}], "72"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "0"}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["83", "72"]}], "+", 
        FractionBox[
         RowBox[{"8", " ", "x"}], "9"], "+", 
        FractionBox[
         RowBox[{"19", " ", 
          SuperscriptBox["x", "2"]}], "72"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "1"}]},
      {
       RowBox[{
        FractionBox["29", "9"], "+", 
        FractionBox[
         RowBox[{"67", " ", "x"}], "36"], "+", 
        FractionBox[
         RowBox[{"19", " ", 
          SuperscriptBox["x", "2"]}], "72"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "2"}]},
      {
       RowBox[{
        FractionBox["25", "8"], "+", 
        FractionBox[
         RowBox[{"11", " ", "x"}], "6"], "+", 
        FractionBox[
         RowBox[{"19", " ", 
          SuperscriptBox["x", "2"]}], "72"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "3"}]},
      {
       RowBox[{
        FractionBox["20", "9"], "+", 
        FractionBox[
         RowBox[{"59", " ", "x"}], "36"], "+", 
        FractionBox[
         RowBox[{"19", " ", 
          SuperscriptBox["x", "2"]}], "72"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "4"}]},
      {
       RowBox[{
        FractionBox["265", "72"], "+", 
        FractionBox[
         RowBox[{"35", " ", "x"}], "18"], "+", 
        FractionBox[
         RowBox[{"19", " ", 
          SuperscriptBox["x", "2"]}], "72"]}], 
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"x", ",", "6"}], "]"}], "\[Equal]", "5"}]},
      {"0", 
       TagBox["True",
        "PiecewiseDefault",
        AutoDelete->False,
        DeletionWarning->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" -> {}}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "35"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "8", ",", "11", ",", "13", ",", "20", ",", "30", ",", "18", ",", 
   "35", ",", "41", ",", "45", ",", "57", ",", "73", ",", "55", ",", "81", 
   ",", "90", ",", "96", ",", "113", ",", "135", ",", "111", ",", "146", ",", 
   "158", ",", "166", ",", "188", ",", "216", ",", "186", ",", "230", ",", 
   "245", ",", "255", ",", "282", ",", "316", ",", "280", ",", "333", ",", 
   "351", ",", "363", ",", "395"}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["MotzkinNumber", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "MotzkinNumber"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"MotzkinNumber[\*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives the \
\*StyleBox[\\\"n\\\", \\\"TI\\\"]th Motzkin number \
\!\(\*SubscriptBox[StyleBox[\\\"M\\\", \\\"TI\\\"], StyleBox[\\\"n\\\", \
\\\"TI\\\"]]\).\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3451485091-9267169"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MotzkinNumber", "[", 
  RowBox[{"Range", "[", "20", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "4", ",", "9", ",", "21", ",", "51", ",", "127", ",", 
   "323", ",", "835", ",", "2188", ",", "5798", ",", "15511", ",", "41835", 
   ",", "113634", ",", "310572", ",", "853467", ",", "2356779", ",", 
   "6536382", ",", "18199284", ",", "50852019"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MotzkinNumber", "[", "100", "]"}]], "Input"],

Cell[BoxData["737415571391164350797051905752637361193303669"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MotzkinNumber", "[", "1.5", "]"}]], "Input"],

Cell[BoxData["2.8413667444220194`"], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["PolynomialTerms", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "PolynomialTerms"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"PolynomialTerms[{\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\
\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \
\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\), \*StyleBox[\\\"\[Ellipsis]\\\", \\\"TI\\\"]}, \
\*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives a sequence of \*StyleBox[\\\"n\\\", \
\\\"TI\\\"] terms, beginning with those of \*StyleBox[\\\"list\\\", \
\\\"TI\\\"], extrapolated by a polynomial of minimal \
degree.\\nPolynomialTerms[{\!\(\*SubscriptBox[StyleBox[\\\"a\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]\), \!\(\*SubscriptBox[StyleBox[\
\\\"a\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]\), \*StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TI\\\"]}, -\*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives a \
sequence of \*StyleBox[\\\"n\\\", \\\"TI\\\"] terms, ending with those of \
\*StyleBox[\\\"list\\\", \\\"TI\\\"], extrapolated by a polynomial of minimal \
degree.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871517-1310017"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PolynomialTerms", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "8", ",", "27", ",", "64"}], "}"}], ",", "10"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "8", ",", "27", ",", "64", ",", "125", ",", "216", ",", "343", 
   ",", "512", ",", "729", ",", "1000"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PolynomialTerms", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "8", ",", "27", ",", "64"}], "}"}], ",", 
   RowBox[{"-", "10"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "125"}], ",", 
   RowBox[{"-", "64"}], ",", 
   RowBox[{"-", "27"}], ",", 
   RowBox[{"-", "8"}], ",", 
   RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "8", ",", "27", ",", "64"}], 
  "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Radical", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Radical"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"Radical[\*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives the product \
of the prime divisors of \*StyleBox[\\\"n\\\", \\\"TI\\\"].\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871517-5420955"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Radical", "[", "200", "]"}]], "Input"],

Cell[BoxData["10"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Radical", "[", 
  RowBox[{"Range", "[", "20", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "2", ",", "5", ",", "6", ",", "7", ",", "2", 
   ",", "3", ",", "10", ",", "11", ",", "6", ",", "13", ",", "14", ",", "15", 
   ",", "2", ",", "17", ",", "6", ",", "19", ",", "10"}], "}"}]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["RationalComplement", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "RationalComplement"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"RationalComplement[\*StyleBox[\\\"r\\\", \\\"TI\\\"], \
\*StyleBox[\\\"b\\\", \\\"TI\\\"]] gives the multiplicative part of \
\*StyleBox[\\\"r\\\", \\\"TI\\\"] with the maximal number of factors of \
\*StyleBox[\\\"b\\\", \\\"TI\\\"] removed.\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellTags->"Info3449871517-4390631"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RationalComplement", "[", 
  RowBox[{"1600", ",", "20"}], "]"}]], "Input"],

Cell[BoxData["4"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RationalComplement", "[", 
  RowBox[{
   FractionBox["10", "9"], ",", "3"}], "]"}]], "Input"],

Cell[BoxData["10"], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["RationalPart", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "RationalPart"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"RationalPart[\*StyleBox[\\\"r\\\", \\\"TI\\\"], \
\*StyleBox[\\\"b\\\", \\\"TI\\\"]] gives \*StyleBox[\\\"b\\\", \\\"TI\\\"] \
raised to the highest power to which it divides a rational number \*StyleBox[\
\\\"r\\\", \\\"TI\\\"].\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3449871518-1263517"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RationalPart", "[", 
  RowBox[{"1600", ",", "20"}], "]"}]], "Input"],

Cell[BoxData["400"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RationalPart", "[", 
  RowBox[{
   FractionBox["4", "9"], ",", "3"}], "]"}]], "Input"],

Cell[BoxData[
 FractionBox["1", "9"]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["TriangularNumber", "Input"]], "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "TriangularNumber"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"TriangularNumber[\*StyleBox[\\\"n\\\", \\\"TI\\\"]] gives the \
\*StyleBox[\\\"n\\\", \\\"TI\\\"]th triangular number.\"\>", "MSG"]], "Print",\
 "PrintUsage",
 CellTags->"Info3449871519-6971629"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TriangularNumber", "[", 
  RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "3", ",", "6", ",", "10", ",", "15", ",", "21", ",", "28", ",", 
   "36", ",", "45", ",", "55"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Accumulate", "[", 
  RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "3", ",", "6", ",", "10", ",", "15", ",", "21", ",", "28", ",", 
   "36", ",", "45", ",", "55"}], "}"}]], "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{1272, 717},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
ShowSelection->True,
CellLabelAutoDelete->True,
TrackCellChangeTimes->False,
Magnification->1.,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3449871514-8903707"->{
  Cell[13469, 510, 805, 13, 70, "Print",
   CellTags->"Info3449871514-8903707"]},
 "Info3449871514-7836812"->{
  Cell[22266, 833, 396, 6, 70, "Print",
   CellTags->"Info3449871514-7836812"]},
 "Info3449871514-8884873"->{
  Cell[27408, 970, 850, 12, 70, "Print",
   CellTags->"Info3449871514-8884873"]},
 "Info3449871515-6741081"->{
  Cell[30520, 1095, 744, 11, 70, "Print",
   CellTags->"Info3449871515-6741081"]},
 "Info3449871515-4261484"->{
  Cell[32985, 1193, 240, 4, 70, "Print",
   CellTags->"Info3449871515-4261484"]},
 "Info3449871515-1697390"->{
  Cell[36798, 1352, 506, 7, 70, "Print",
   CellTags->"Info3449871515-1697390"]},
 "Info3451070543-2770564"->{
  Cell[45431, 1587, 1241, 18, 76, "Print",
   CellTags->"Info3451070543-2770564"]},
 "Info3449871516-6748178"->{
  Cell[48480, 1690, 953, 13, 42, "Print",
   CellTags->"Info3449871516-6748178"]},
 "Info3449871516-2955937"->{
  Cell[54499, 1880, 814, 16, 70, "Print",
   CellTags->"Info3449871516-2955937"]},
 "Info3449871516-6023091"->{
  Cell[57485, 1985, 4193, 64, 70, "Print",
   CellTags->"Info3449871516-6023091"]},
 "Info3449871517-5620416"->{
  Cell[66899, 2259, 617, 9, 70, "Print",
   CellTags->"Info3449871517-5620416"]},
 "Info3451485091-9267169"->{
  Cell[74264, 2490, 307, 5, 42, "Print",
   CellTags->"Info3451485091-9267169"]},
 "Info3449871517-1310017"->{
  Cell[75579, 2539, 1019, 15, 70, "Print",
   CellTags->"Info3449871517-1310017"]},
 "Info3449871517-5420955"->{
  Cell[77646, 2603, 229, 4, 70, "Print",
   CellTags->"Info3449871517-5420955"]},
 "Info3449871517-4390631"->{
  Cell[78621, 2642, 348, 6, 70, "Print",
   CellTags->"Info3449871517-4390631"]},
 "Info3449871518-1263517"->{
  Cell[79519, 2680, 333, 5, 70, "Print",
   CellTags->"Info3449871518-1263517"]},
 "Info3449871519-6971629"->{
  Cell[80418, 2718, 224, 4, 70, "Print",
   CellTags->"Info3449871519-6971629"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3449871514-8903707", 81738, 2769},
 {"Info3449871514-7836812", 81849, 2772},
 {"Info3449871514-8884873", 81959, 2775},
 {"Info3449871515-6741081", 82070, 2778},
 {"Info3449871515-4261484", 82182, 2781},
 {"Info3449871515-1697390", 82293, 2784},
 {"Info3451070543-2770564", 82404, 2787},
 {"Info3449871516-6748178", 82517, 2790},
 {"Info3449871516-2955937", 82629, 2793},
 {"Info3449871516-6023091", 82741, 2796},
 {"Info3449871517-5620416", 82854, 2799},
 {"Info3451485091-9267169", 82965, 2802},
 {"Info3449871517-1310017", 83076, 2805},
 {"Info3449871517-5420955", 83189, 2808},
 {"Info3449871517-4390631", 83300, 2811},
 {"Info3449871518-1263517", 83411, 2814},
 {"Info3449871519-6971629", 83522, 2817}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 44, 0, 83, "Title"],
Cell[614, 24, 42, 0, 49, "Subtitle"],
Cell[659, 26, 222, 6, 47, "Subsubtitle"],
Cell[CellGroupData[{
Cell[906, 36, 31, 0, 71, "Section"],
Cell[940, 38, 301, 6, 47, "Text"],
Cell[1244, 46, 417, 11, 29, "Text"],
Cell[1664, 59, 66, 1, 47, "Code"],
Cell[CellGroupData[{
Cell[1755, 64, 46, 0, 36, "Subsection"],
Cell[1804, 66, 325, 11, 30, "Text"],
Cell[2132, 79, 87, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[2244, 85, 62, 1, 31, "Input"],
Cell[2309, 88, 29, 0, 30, "Output"]
}, Open  ]],
Cell[2353, 91, 156, 5, 30, "Text"],
Cell[2512, 98, 51, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[2588, 102, 90, 2, 31, "Input"],
Cell[2681, 106, 29, 0, 30, "Output"]
}, Open  ]],
Cell[2725, 109, 85, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[2835, 115, 96, 2, 31, "Input"],
Cell[2934, 119, 29, 0, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[3012, 125, 48, 0, 28, "Subsection"],
Cell[3063, 127, 215, 7, 30, "Text"],
Cell[3281, 136, 87, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[3393, 142, 95, 2, 31, "Input"],
Cell[3491, 146, 171, 4, 30, "Output"]
}, Open  ]],
Cell[3677, 153, 91, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[3793, 159, 122, 3, 31, "Input"],
Cell[3918, 164, 177, 4, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4144, 174, 51, 0, 28, "Subsection"],
Cell[4198, 176, 701, 21, 49, "Text"],
Cell[4902, 199, 437, 16, 29, "Text"],
Cell[CellGroupData[{
Cell[5364, 219, 448, 13, 31, "Input"],
Cell[5815, 234, 242, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6094, 247, 419, 14, 33, "Input"],
Cell[6516, 263, 311, 9, 30, "Output"]
}, Open  ]],
Cell[6842, 275, 270, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[7137, 286, 360, 11, 53, "Input"],
Cell[7500, 299, 1034, 32, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8571, 336, 636, 18, 53, "Input"],
Cell[9210, 356, 1505, 50, 115, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10752, 411, 1727, 55, 115, "Input"],
Cell[12482, 468, 694, 23, 30, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13237, 498, 34, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[13296, 502, 67, 0, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[13388, 506, 78, 2, 31, "Input"],
Cell[13469, 510, 805, 13, 70, "Print",
 CellTags->"Info3449871514-8903707"]
}, Open  ]],
Cell[14289, 526, 126, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[14440, 533, 513, 17, 55, "Input"],
Cell[14956, 552, 3233, 119, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18226, 676, 472, 15, 31, "Input"],
Cell[18701, 693, 3233, 119, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21971, 817, 57, 1, 31, "Input"],
Cell[22031, 820, 31, 0, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22111, 826, 69, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[22205, 830, 58, 1, 31, "Input"],
Cell[22266, 833, 396, 6, 70, "Print",
 CellTags->"Info3449871514-7836812"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22699, 844, 272, 8, 33, "Input"],
Cell[22974, 854, 520, 12, 70, "Output"]
}, Open  ]],
Cell[23509, 869, 133, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[23667, 878, 74, 1, 31, "Input"],
Cell[23744, 881, 3340, 69, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27133, 956, 195, 7, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[27353, 967, 52, 1, 31, "Input"],
Cell[27408, 970, 850, 12, 70, "Print",
 CellTags->"Info3449871514-8884873"]
}, Open  ]],
Cell[28273, 985, 182, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[28480, 994, 107, 3, 31, "Input"],
Cell[28590, 999, 150, 4, 70, "Output"]
}, Open  ]],
Cell[28755, 1006, 105, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[28885, 1014, 238, 7, 31, "Input"],
Cell[29126, 1023, 31, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29194, 1028, 104, 2, 31, "Input"],
Cell[29301, 1032, 116, 3, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29454, 1040, 198, 5, 31, "Input"],
Cell[29655, 1047, 31, 0, 70, "Output"]
}, Open  ]],
Cell[29701, 1050, 150, 6, 30, "Text"],
Cell[CellGroupData[{
Cell[29876, 1060, 89, 2, 31, "Input"],
Cell[29968, 1064, 50, 1, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30055, 1070, 85, 2, 31, "Input"],
Cell[30143, 1074, 45, 1, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30237, 1081, 201, 7, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[30463, 1092, 54, 1, 31, "Input"],
Cell[30520, 1095, 744, 11, 70, "Print",
 CellTags->"Info3449871515-6741081"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31301, 1111, 156, 4, 31, "Input"],
Cell[31460, 1117, 28, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31525, 1122, 166, 4, 31, "Input"],
Cell[31694, 1128, 28, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31759, 1133, 219, 6, 31, "Input"],
Cell[31981, 1141, 28, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32046, 1146, 233, 6, 31, "Input"],
Cell[32282, 1154, 28, 0, 70, "Output"]
}, Open  ]],
Cell[32325, 1157, 149, 6, 30, "Text"],
Cell[CellGroupData[{
Cell[32499, 1167, 96, 2, 31, "Input"],
Cell[32598, 1171, 28, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32663, 1176, 97, 2, 31, "Input"],
Cell[32763, 1180, 28, 0, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[32840, 1186, 64, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[32929, 1190, 53, 1, 31, "Input"],
Cell[32985, 1193, 240, 4, 70, "Print",
 CellTags->"Info3449871515-4261484"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33262, 1202, 295, 9, 31, "Input"],
Cell[33560, 1213, 1661, 64, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35258, 1282, 145, 4, 47, "Input"],
Cell[35406, 1288, 170, 6, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35613, 1299, 121, 3, 48, "Input"],
Cell[35737, 1304, 450, 15, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36224, 1324, 94, 2, 31, "Input"],
Cell[36321, 1328, 281, 11, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[36651, 1345, 65, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[36741, 1349, 54, 1, 31, "Input"],
Cell[36798, 1352, 506, 7, 70, "Print",
 CellTags->"Info3449871515-1697390"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37341, 1364, 107, 3, 31, "Input"],
Cell[37451, 1369, 322, 6, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37810, 1380, 147, 4, 33, "Input"],
Cell[37960, 1386, 2364, 49, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40361, 1440, 161, 5, 31, "Input"],
Cell[40525, 1447, 4558, 120, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[45132, 1573, 215, 7, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[45372, 1584, 56, 1, 31, "Input"],
Cell[45431, 1587, 1241, 18, 76, "Print",
 CellTags->"Info3451070543-2770564"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46709, 1610, 107, 3, 31, "Input"],
Cell[46819, 1615, 150, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47006, 1624, 238, 7, 31, "Input"],
Cell[47247, 1633, 31, 0, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47315, 1638, 104, 2, 31, "Input"],
Cell[47422, 1642, 116, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47575, 1650, 198, 5, 31, "Input"],
Cell[47776, 1657, 31, 0, 30, "Output"]
}, Open  ]],
Cell[47822, 1660, 111, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[47958, 1667, 283, 8, 31, "Input"],
Cell[48244, 1677, 34, 0, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[48327, 1683, 68, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[48420, 1687, 57, 1, 31, "Input"],
Cell[48480, 1690, 953, 13, 42, "Print",
 CellTags->"Info3449871516-6748178"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49470, 1708, 203, 6, 33, "Input"],
Cell[49676, 1716, 1264, 41, 106, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50977, 1762, 1449, 45, 106, "Input"],
Cell[52429, 1809, 396, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52862, 1821, 285, 9, 33, "Input"],
Cell[53150, 1832, 396, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53583, 1844, 122, 3, 31, "Input"],
Cell[53708, 1849, 527, 14, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[54284, 1869, 129, 4, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[54438, 1877, 58, 1, 31, "Input"],
Cell[54499, 1880, 814, 16, 70, "Print",
 CellTags->"Info3449871516-2955937"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55350, 1901, 95, 2, 31, "Input"],
Cell[55448, 1905, 28, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55513, 1910, 147, 4, 31, "Input"],
Cell[55663, 1916, 28, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55728, 1921, 147, 4, 31, "Input"],
Cell[55878, 1927, 45, 1, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55960, 1933, 204, 6, 31, "Input"],
Cell[56167, 1941, 1038, 27, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[57254, 1974, 137, 4, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[57416, 1982, 66, 1, 31, "Input"],
Cell[57485, 1985, 4193, 64, 70, "Print",
 CellTags->"Info3449871516-6023091"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61715, 2054, 211, 7, 33, "Input"],
Cell[61929, 2063, 160, 5, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62126, 2073, 213, 6, 31, "Input"],
Cell[62342, 2081, 141, 4, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62520, 2090, 280, 8, 31, "Input"],
Cell[62803, 2100, 125, 4, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62965, 2109, 310, 9, 31, "Input"],
Cell[63278, 2120, 74, 2, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63389, 2127, 419, 14, 33, "Input"],
Cell[63811, 2143, 311, 9, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64159, 2157, 367, 10, 31, "Input"],
Cell[64529, 2169, 311, 9, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64877, 2183, 448, 13, 31, "Input"],
Cell[65328, 2198, 242, 8, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65607, 2211, 732, 22, 33, "Input"],
Cell[66342, 2235, 325, 10, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[66716, 2251, 84, 1, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[66825, 2256, 71, 1, 31, "Input"],
Cell[66899, 2259, 617, 9, 70, "Print",
 CellTags->"Info3449871517-5620416"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67553, 2273, 583, 11, 52, "Input"],
Cell[68139, 2286, 2566, 86, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70742, 2377, 2841, 90, 201, "Input"],
Cell[73586, 2469, 478, 8, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[74113, 2483, 67, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[74205, 2487, 56, 1, 31, "Input"],
Cell[74264, 2490, 307, 5, 42, "Print",
 CellTags->"Info3451485091-9267169"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74608, 2500, 99, 2, 31, "Input"],
Cell[74710, 2504, 331, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75078, 2515, 68, 1, 31, "Input"],
Cell[75149, 2518, 72, 0, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75258, 2523, 68, 1, 31, "Input"],
Cell[75329, 2526, 46, 0, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[75424, 2532, 69, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[75518, 2536, 58, 1, 31, "Input"],
Cell[75579, 2539, 1019, 15, 70, "Print",
 CellTags->"Info3449871517-1310017"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76635, 2559, 166, 5, 31, "Input"],
Cell[76804, 2566, 175, 4, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77016, 2575, 182, 5, 31, "Input"],
Cell[77201, 2582, 257, 8, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[77507, 2596, 61, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[77593, 2600, 50, 1, 31, "Input"],
Cell[77646, 2603, 229, 4, 70, "Print",
 CellTags->"Info3449871517-5420955"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77912, 2612, 62, 1, 31, "Input"],
Cell[77977, 2615, 29, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78043, 2620, 93, 2, 31, "Input"],
Cell[78139, 2624, 272, 5, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[78460, 2635, 72, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[78557, 2639, 61, 1, 31, "Input"],
Cell[78621, 2642, 348, 6, 70, "Print",
 CellTags->"Info3449871517-4390631"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79006, 2653, 98, 2, 31, "Input"],
Cell[79107, 2657, 28, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79172, 2662, 117, 3, 47, "Input"],
Cell[79292, 2667, 29, 0, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[79370, 2673, 66, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[79461, 2677, 55, 1, 31, "Input"],
Cell[79519, 2680, 333, 5, 70, "Print",
 CellTags->"Info3449871518-1263517"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79889, 2690, 92, 2, 31, "Input"],
Cell[79984, 2694, 30, 0, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80051, 2699, 110, 3, 47, "Input"],
Cell[80164, 2704, 48, 1, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[80261, 2711, 70, 0, 22, "Subsubsection"],
Cell[CellGroupData[{
Cell[80356, 2715, 59, 1, 31, "Input"],
Cell[80418, 2718, 224, 4, 70, "Print",
 CellTags->"Info3449871519-6971629"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80679, 2727, 102, 2, 31, "Input"],
Cell[80784, 2731, 167, 4, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80988, 2740, 96, 2, 31, "Input"],
Cell[81087, 2744, 167, 4, 70, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)