(* 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[ 200319, 4824] NotebookOptionsPosition[ 198198, 4766] NotebookOutlinePosition[ 198540, 4781] CellTagsIndexPosition[ 198497, 4778] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "8", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", "I", " ", "only", " ", "add", " ", "comments", " ", "where", " ", "there", " ", "is", " ", "non"}], "-", RowBox[{ "trivial", " ", "deviation", " ", "from", " ", "the", " ", "\"\\"", " ", "and", " ", "\"\\"", " ", RowBox[{"file", "."}]}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "i", ",", "g", ",", " ", "mark"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "n", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Cyclotomic", "[", RowBox[{"4", ",", RowBox[{"x", "^", RowBox[{"(", "9", ")"}]}]}], "]"}], RowBox[{"Cyclotomic", "[", RowBox[{"3", ",", RowBox[{"x", "^", RowBox[{"(", "16", ")"}]}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"B", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "L", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "L", "]"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"L", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"B", "\[Union]", RowBox[{"{", "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "8", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Here", " ", "i", " ", "make", " ", "a", " ", "crosscheking", " ", "of", " ", "the", " ", "\"\\"", " ", RowBox[{"procedure", ".", " ", "In"}], " ", "fact", " ", "i", " ", "KNOW", " ", "that", " ", "there", " ", "will", " ", "be", " ", "different", " ", "maxperiods"}]}], ",", " ", RowBox[{ "and", " ", "i", " ", "wanted", " ", "to", " ", "see", " ", "that", " ", "my", " ", "program", " ", "indeed", " ", "finds", " ", RowBox[{"them", ".", " ", "It"}], " ", RowBox[{"does", "."}]}]}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{ "jj", ",", "j", ",", "i", ",", "g", ",", " ", "mark", ",", " ", "rr"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "n", ",", "J", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"J", "=", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "16", ",", "18", ",", "32", ",", "34", ",", "50"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rr", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gcd", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"kk", "=", "1"}], ",", RowBox[{"kk", "\[LessEqual]", RowBox[{"Length", "[", "J", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"mm", "=", "2"}], ",", RowBox[{"mm", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "kk", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", "mm"}], "]"}], "]"}], "=", RowBox[{"GCD", "[", RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", RowBox[{"mm", "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"J", "[", RowBox[{"[", RowBox[{"kk", ",", "mm"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mm", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"kk", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"kk", "=", "1"}], ",", RowBox[{"kk", "\[LessEqual]", RowBox[{"Length", "[", "J", "]"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], "=", RowBox[{"GCD", "[", RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kk", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"maxperiod", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", "10000"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"jj", "=", "1"}], ",", " ", RowBox[{"jj", "\[LessEqual]", RowBox[{"Length", "[", "J", "]"}]}], ",", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";", RowBox[{"n", "=", "144"}], ";", RowBox[{"n", "=", RowBox[{"n", "/", RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"jj", ",", " ", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ";", RowBox[{"B", "=", RowBox[{ RowBox[{"J", "[", RowBox[{"[", "jj", "]"}], "]"}], "/", RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"jj", ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Tile", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100000"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"R", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], ",", "n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "B"}], ";", "\[IndentingNewLine]", RowBox[{"mark", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], "+", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"g", "=", "1"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "n"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", RowBox[{"jj", ",", "g"}], "]"}], "]"}], "=", "99"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"ff", "=", RowBox[{ RowBox[{"Length", "[", RowBox[{"Divisors", "[", "n", "]"}], "]"}], "-", "1"}]}], ",", " ", RowBox[{"ff", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], "[", RowBox[{"[", "ff", "]"}], "]"}], ")"}], "+", RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}]}], ")"}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], "==", RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", RowBox[{"jj", ",", "g"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], "[", RowBox[{"[", "ff", "]"}], "]"}]}], ";", RowBox[{"ff", "=", "0"}], ";"}]}], "\[IndentingNewLine]", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"ff", "-", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"g", "=", RowBox[{"g", "+", "1"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{ RowBox[{"k", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"j", ",", "n"}], "]"}]}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"k", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", " ", RowBox[{"m", "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Intersection]", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ")"}], "+", "B"}], ",", "n"}], "]"}]}], "\[Equal]", RowBox[{"{", "}"}]}], ",", " ", RowBox[{ RowBox[{"k", "=", RowBox[{"k", "+", "1"}]}], ";", " ", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "m"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ",", "n"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "k"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"min", "=", RowBox[{"Min", "[", "R", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{"min", "\[Equal]", "0"}], "]"}], ")"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Catch", "[", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", RowBox[{"[", "ii", "]"}], "]"}], "\[Equal]", "min"}], ",", " ", RowBox[{"Throw", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"b", "=", RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", RowBox[{"b", "<=", RowBox[{"Length", "[", "B", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"b", "+", "1"}]}], ";", RowBox[{"z", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "\[Equal]", "200"}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "+", "B"}], ",", "n"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "}"}]}]}], ";", " ", RowBox[{"b", "=", RowBox[{ RowBox[{"Length", "[", "B", "]"}], "+", "1"}]}], ";", RowBox[{"z", "=", "1"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"b", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"z", "==", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", "Tile"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "Tile", "]"}]}], ",", " ", RowBox[{ RowBox[{"P", "=", RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "<=", RowBox[{"Length", "[", "P", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Tile", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"P", "-", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "0"}], ";", RowBox[{"i", "=", RowBox[{ RowBox[{"Length", "[", "P", "]"}], "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"Length", "[", "Tile", "]"}], "\[Equal]", "0"}], "]"}], ",", " ", RowBox[{"rr", "=", RowBox[{"rr", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", "Tile", ";", "\[IndentingNewLine]", RowBox[{"jj", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "rr", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "maxperiod", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "maxperiod", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "8", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ";", " ", RowBox[{ RowBox[{ "Let", " ", "us", " ", "get", " ", "back", " ", "to", " ", "the", " ", "normal", " ", "track", " ", "of", " ", RowBox[{"events", ".", " ", "The"}], " ", "fill"}], "-", RowBox[{"out", " ", "procedure", " ", "for", " ", RowBox[{"B", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "i", ",", "g", ",", " ", "mark"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "n", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"B", "=", RowBox[{"{", RowBox[{"0", ",", "16", ",", "18", ",", "32", ",", "34", ",", "50"}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "B", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "1000000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "n"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], ",", "n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "B"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mark", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "n"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", RowBox[{"g", "=", RowBox[{"g", "+", "1"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{ RowBox[{"k", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"j", ",", "n"}], "]"}]}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"k", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", " ", RowBox[{"m", "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Intersection]", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ")"}], "+", "B"}], ",", "n"}], "]"}]}], "\[Equal]", RowBox[{"{", "}"}]}], ",", " ", RowBox[{ RowBox[{"k", "=", RowBox[{"k", "+", "1"}]}], ";", " ", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "m"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ",", "n"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "k"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"min", "=", RowBox[{"Min", "[", "R", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{"min", "\[Equal]", "0"}], "]"}], ")"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Catch", "[", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", RowBox[{"[", "ii", "]"}], "]"}], "\[Equal]", "min"}], ",", " ", RowBox[{"Throw", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"b", "=", RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", RowBox[{"b", "<=", RowBox[{"Length", "[", "B", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"b", "+", "1"}]}], ";", RowBox[{"z", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "\[Equal]", "200"}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "+", "B"}], ",", "n"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "}"}]}]}], ";", " ", RowBox[{"b", "=", RowBox[{ RowBox[{"Length", "[", "B", "]"}], "+", "1"}]}], ";", RowBox[{"z", "=", "1"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"b", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"z", "==", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", RowBox[{"Tile", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"Tile", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"Tile", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "B"}], ")"}], "\[Union]", " ", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{ RowBox[{"Length", "[", "K", "]"}], "+", "1"}], "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "Tile", "]"}]}], ",", " ", RowBox[{ RowBox[{"P", "=", RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "<=", RowBox[{"Length", "[", "P", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Tile", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"P", "-", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "0"}], ";", RowBox[{"i", "=", RowBox[{ RowBox[{"Length", "[", "P", "]"}], "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", "Tile", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Here", " ", "comes", " ", "a", " ", "slightly", " ", "earlier"}], "-", RowBox[{ "written", " ", "version", " ", "of", " ", "the", " ", "Fourier"}], "-", RowBox[{"selection", " ", RowBox[{"procedure", ".", " ", "It"}], " ", "is", " ", "just", " ", "non"}], "-", RowBox[{"optimal", " ", RowBox[{"programming", ".", " ", "It"}], " ", "contains", " ", "MT", " ", "and", " ", "MTT", " ", "and", " ", "all", " ", "that", " ", RowBox[{"stuff", ".", " ", "But"}], " ", "it", " ", "does", " ", "the", " ", "job"}]}], ",", " ", RowBox[{ "the", " ", "36", " ", "tiles", " ", "fall", " ", "into", " ", "2", " ", RowBox[{"classes", "."}]}]}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"T2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "17", ",", "20", ",", "23", ",", "28", ",", "29", ",", "40", ",", "48", ",", "53", ",", "59", ",", "65", ",", "68", ",", "76", ",", "88", ",", "89", ",", "95", ",", "96", ",", "101", ",", "116", ",", "124", ",", "125", ",", "131", ",", "136", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "17", ",", "24", ",", "25", ",", "30", ",", "36", ",", "37", ",", "45", ",", "60", ",", "65", ",", "66", ",", "72", ",", "73", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "113", ",", "121", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "24", ",", "25", ",", "28", ",", "31", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "72", ",", "76", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "120", ",", "124", ",", "127", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "25", ",", "28", ",", "31", ",", "40", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "76", ",", "88", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "124", ",", "127", ",", "133", ",", "136", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "23", ",", "24", ",", "30", ",", "31", ",", "36", ",", "43", ",", "60", ",", "66", ",", "67", ",", "71", ",", "72", ",", "79", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "119", ",", "127", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "28", ",", "31", ",", "36", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "76", ",", "84", ",", "91", ",", "96", ",", "97", ",", "103", ",", "120", ",", "124", ",", "127", ",", "132", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "31", ",", "36", ",", "44", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "84", ",", "91", ",", "92", ",", "96", ",", "97", ",", "103", ",", "120", ",", "127", ",", "132", ",", "133", ",", "139", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "27", ",", "30", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "75", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "123", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "31", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "67", ",", "72", ",", "79", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "127", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "72", ",", "76", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "120", ",", "124", ",", "129", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "28", ",", "33", ",", "40", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "76", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "124", ",", "129", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "33", ",", "40", ",", "44", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "88", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "129", ",", "135", ",", "136", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "72", ",", "76", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "120", ",", "124", ",", "131", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "28", ",", "29", ",", "35", ",", "40", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "76", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "124", ",", "131", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "29", ",", "35", ",", "40", ",", "44", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "88", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "131", ",", "136", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "73", ",", "81", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "121", ",", "129", ",", "132", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "36", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "76", ",", "84", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "124", ",", "129", ",", "132", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "33", ",", "36", ",", "44", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "84", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "129", ",", "132", ",", "135", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "30", ",", "33", ",", "36", ",", "41", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "81", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "129", ",", "132", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "27", ",", "28", ",", "33", ",", "36", ",", "40", ",", "48", ",", "57", ",", "63", ",", "69", ",", "76", ",", "84", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "124", ",", "129", ",", "132", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "75", ",", "83", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "123", ",", "131", ",", "132", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "36", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "76", ",", "84", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "124", ",", "131", ",", "132", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "29", ",", "35", ",", "36", ",", "44", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "84", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "131", ",", "132", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "43", ",", "60", ",", "66", ",", "71", ",", "72", ",", "79", ",", "83", ",", "91", ",", "96", ",", "102", ",", "108", ",", "119", ",", "127", ",", "131", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "35", ",", "36", ",", "43", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "83", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "131", ",", "132", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "28", ",", "29", ",", "35", ",", "36", ",", "40", ",", "48", ",", "59", ",", "65", ",", "71", ",", "76", ",", "84", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "124", ",", "131", ",", "132", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "60", ",", "66", ",", "72", ",", "73", ",", "77", ",", "81", ",", "85", ",", "96", ",", "102", ",", "108", ",", "121", ",", "125", ",", "129", ",", "132", ",", "133", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "37", ",", "45", ",", "60", ",", "66", ",", "72", ",", "73", ",", "81", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "121", ",", "129", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "60", ",", "66", ",", "72", ",", "75", ",", "79", ",", "83", ",", "87", ",", "96", ",", "102", ",", "108", ",", "123", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "72", ",", "75", ",", "83", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "123", ",", "131", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "60", ",", "66", ",", "72", ",", "77", ",", "81", ",", "85", ",", "89", ",", "96", ",", "102", ",", "108", ",", "125", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "72", ",", "79", ",", "83", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "45", ",", "60", ",", "66", ",", "72", ",", "81", ",", "85", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "35", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "72", ",", "83", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Length", "[", "T2", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "T2", "]"}], ",", "144"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MF", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "T2", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "T2", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "T2", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "\[LessEqual]", "144"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"T2", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"k", ",", "144"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"vv", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "<=", "144"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}], ",", " ", RowBox[{"vv", "=", RowBox[{"vv", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "T2", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "\[LessEqual]", "144"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "==", RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], ")"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}], "\[Or]", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}]}], ")"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"MF", "[", RowBox[{"[", "v", "]"}], "]"}], "=", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"MT", "[", RowBox[{"[", "v", "]"}], "]"}], "=", RowBox[{"T2", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", " ", RowBox[{"v", "=", RowBox[{"v", "+", "1"}]}], ";", " ", RowBox[{"k", "=", "145"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MT", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MT", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MF", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MF", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "MF", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MMF", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "T2", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "T2", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vvv", "=", "1"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "MF", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "\[LessEqual]", "144"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "==", RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], ")"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}], "\[Or]", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}]}], ")"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"MMF", "[", RowBox[{"[", "vvv", "]"}], "]"}], "=", RowBox[{"MF", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"MMT", "[", RowBox[{"[", "vvv", "]"}], "]"}], "=", RowBox[{"MT", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", " ", RowBox[{"vvv", "=", RowBox[{"vvv", "+", "1"}]}], ";", " ", RowBox[{"k", "=", "145"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MMT", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MMT", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMF", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MMF", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "MMF", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "MT", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "8", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "i", ",", "g", ",", " ", "mark"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "n", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "A", " ", "representative", " ", "of", " ", "the", " ", "first", " ", "class"}], "*)"}], "\[IndentingNewLine]", RowBox[{"B", "=", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "B", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "1000000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "n"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], ",", "n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "B"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mark", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "n"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", RowBox[{"g", "=", RowBox[{"g", "+", "1"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{ RowBox[{"k", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"j", ",", "n"}], "]"}]}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"k", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", " ", RowBox[{"m", "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Intersection]", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ")"}], "+", "B"}], ",", "n"}], "]"}]}], "\[Equal]", RowBox[{"{", "}"}]}], ",", " ", RowBox[{ RowBox[{"k", "=", RowBox[{"k", "+", "1"}]}], ";", " ", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "m"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ",", "n"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "k"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"min", "=", RowBox[{"Min", "[", "R", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{"min", "\[Equal]", "0"}], "]"}], ")"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Catch", "[", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", RowBox[{"[", "ii", "]"}], "]"}], "\[Equal]", "min"}], ",", " ", RowBox[{"Throw", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"b", "=", RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", RowBox[{"b", "<=", RowBox[{"Length", "[", "B", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"b", "+", "1"}]}], ";", RowBox[{"z", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "\[Equal]", "200"}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "+", "B"}], ",", "n"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "}"}]}]}], ";", " ", RowBox[{"b", "=", RowBox[{ RowBox[{"Length", "[", "B", "]"}], "+", "1"}]}], ";", RowBox[{"z", "=", "1"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"b", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"z", "==", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", RowBox[{"Tile", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"Tile", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"Tile", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "B"}], ")"}], "\[Union]", " ", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{ RowBox[{"Length", "[", "K", "]"}], "+", "1"}], "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "Tile", "]"}]}], ",", " ", RowBox[{ RowBox[{"P", "=", RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "<=", RowBox[{"Length", "[", "P", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Tile", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"P", "-", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "0"}], ";", RowBox[{"i", "=", RowBox[{ RowBox[{"Length", "[", "P", "]"}], "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", "Tile", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "8", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "i", ",", "g", ",", " ", "mark"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "n", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "A", " ", "representative", " ", "of", " ", "the", " ", "second", " ", "class"}], "*)"}], "\[IndentingNewLine]", RowBox[{"B", "=", RowBox[{"{", RowBox[{ "0", ",", "17", ",", "20", ",", "23", ",", "28", ",", "29", ",", "40", ",", "48", ",", "53", ",", "59", ",", "65", ",", "68", ",", "76", ",", "88", ",", "89", ",", "95", ",", "96", ",", "101", ",", "116", ",", "124", ",", "125", ",", "131", ",", "136", ",", "137"}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "B", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "1000000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "n"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], ",", "n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "B"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mark", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "n"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", RowBox[{"g", "=", RowBox[{"g", "+", "1"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{ RowBox[{"k", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"j", ",", "n"}], "]"}]}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"k", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", " ", RowBox[{"m", "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Intersection]", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ")"}], "+", "B"}], ",", "n"}], "]"}]}], "\[Equal]", RowBox[{"{", "}"}]}], ",", " ", RowBox[{ RowBox[{"k", "=", RowBox[{"k", "+", "1"}]}], ";", " ", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "m"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ",", "n"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "k"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"min", "=", RowBox[{"Min", "[", "R", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{"min", "\[Equal]", "0"}], "]"}], ")"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Catch", "[", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", RowBox[{"[", "ii", "]"}], "]"}], "\[Equal]", "min"}], ",", " ", RowBox[{"Throw", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"b", "=", RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", RowBox[{"b", "<=", RowBox[{"Length", "[", "B", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"b", "+", "1"}]}], ";", RowBox[{"z", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "\[Equal]", "200"}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "+", "B"}], ",", "n"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "}"}]}]}], ";", " ", RowBox[{"b", "=", RowBox[{ RowBox[{"Length", "[", "B", "]"}], "+", "1"}]}], ";", RowBox[{"z", "=", "1"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"b", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"z", "==", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", RowBox[{"Tile", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"Tile", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"Tile", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "B"}], ")"}], "\[Union]", " ", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{ RowBox[{"Length", "[", "K", "]"}], "+", "1"}], "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "Tile", "]"}]}], ",", " ", RowBox[{ RowBox[{"P", "=", RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "<=", RowBox[{"Length", "[", "P", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Tile", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"P", "-", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "0"}], ";", RowBox[{"i", "=", RowBox[{ RowBox[{"Length", "[", "P", "]"}], "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", "Tile", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "the", " ", "same", " ", "6", " ", "tiles", " ", "emerge", " ", "for", " ", "both", " ", "classes"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Crosscheking", " ", "that", " ", "all", " ", "tiles", " ", "with", " ", RowBox[{"all", "."}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"t1", ",", "t2", ",", " ", "dd"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"T1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "32", ",", "58", ",", "90", ",", "112", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "46", ",", "64", ",", "110", ",", "126", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "54", ",", "64", ",", "80", ",", "118", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "58", ",", "74", ",", "90", ",", "112", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "62", ",", "80", ",", "94", ",", "112", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "94", ",", "110", ",", "112", ",", "126", ",", "128"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"T2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "17", ",", "20", ",", "23", ",", "28", ",", "29", ",", "40", ",", "48", ",", "53", ",", "59", ",", "65", ",", "68", ",", "76", ",", "88", ",", "89", ",", "95", ",", "96", ",", "101", ",", "116", ",", "124", ",", "125", ",", "131", ",", "136", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "17", ",", "24", ",", "25", ",", "30", ",", "36", ",", "37", ",", "45", ",", "60", ",", "65", ",", "66", ",", "72", ",", "73", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "113", ",", "121", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "24", ",", "25", ",", "28", ",", "31", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "72", ",", "76", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "120", ",", "124", ",", "127", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "25", ",", "28", ",", "31", ",", "40", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "76", ",", "88", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "124", ",", "127", ",", "133", ",", "136", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "23", ",", "24", ",", "30", ",", "31", ",", "36", ",", "43", ",", "60", ",", "66", ",", "67", ",", "71", ",", "72", ",", "79", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "119", ",", "127", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "28", ",", "31", ",", "36", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "76", ",", "84", ",", "91", ",", "96", ",", "97", ",", "103", ",", "120", ",", "124", ",", "127", ",", "132", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "31", ",", "36", ",", "44", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "84", ",", "91", ",", "92", ",", "96", ",", "97", ",", "103", ",", "120", ",", "127", ",", "132", ",", "133", ",", "139", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "27", ",", "30", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "75", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "123", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "31", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "67", ",", "72", ",", "79", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "127", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "72", ",", "76", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "120", ",", "124", ",", "129", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "28", ",", "33", ",", "40", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "76", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "124", ",", "129", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "33", ",", "40", ",", "44", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "88", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "129", ",", "135", ",", "136", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "72", ",", "76", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "120", ",", "124", ",", "131", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "28", ",", "29", ",", "35", ",", "40", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "76", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "124", ",", "131", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "29", ",", "35", ",", "40", ",", "44", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "88", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "131", ",", "136", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "73", ",", "81", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "121", ",", "129", ",", "132", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "36", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "76", ",", "84", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "124", ",", "129", ",", "132", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "33", ",", "36", ",", "44", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "84", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "129", ",", "132", ",", "135", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "30", ",", "33", ",", "36", ",", "41", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "81", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "129", ",", "132", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "27", ",", "28", ",", "33", ",", "36", ",", "40", ",", "48", ",", "57", ",", "63", ",", "69", ",", "76", ",", "84", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "124", ",", "129", ",", "132", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "75", ",", "83", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "123", ",", "131", ",", "132", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "36", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "76", ",", "84", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "124", ",", "131", ",", "132", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "29", ",", "35", ",", "36", ",", "44", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "84", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "131", ",", "132", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "43", ",", "60", ",", "66", ",", "71", ",", "72", ",", "79", ",", "83", ",", "91", ",", "96", ",", "102", ",", "108", ",", "119", ",", "127", ",", "131", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "35", ",", "36", ",", "43", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "83", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "131", ",", "132", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "28", ",", "29", ",", "35", ",", "36", ",", "40", ",", "48", ",", "59", ",", "65", ",", "71", ",", "76", ",", "84", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "124", ",", "131", ",", "132", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "60", ",", "66", ",", "72", ",", "73", ",", "77", ",", "81", ",", "85", ",", "96", ",", "102", ",", "108", ",", "121", ",", "125", ",", "129", ",", "132", ",", "133", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "37", ",", "45", ",", "60", ",", "66", ",", "72", ",", "73", ",", "81", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "121", ",", "129", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "60", ",", "66", ",", "72", ",", "75", ",", "79", ",", "83", ",", "87", ",", "96", ",", "102", ",", "108", ",", "123", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "72", ",", "75", ",", "83", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "123", ",", "131", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "60", ",", "66", ",", "72", ",", "77", ",", "81", ",", "85", ",", "89", ",", "96", ",", "102", ",", "108", ",", "125", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "72", ",", "79", ",", "83", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "45", ",", "60", ",", "66", ",", "72", ",", "81", ",", "85", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "35", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "72", ",", "83", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "62", ",", "63", ",", "64", ",", "65", ",", "66", ",", "67", ",", "68", ",", "69", ",", "70", ",", "71", ",", "72", ",", "73", ",", "74", ",", "75", ",", "76", ",", "77", ",", "78", ",", "79", ",", "80", ",", "81", ",", "82", ",", "83", ",", "84", ",", "85", ",", "86", ",", "87", ",", "88", ",", "89", ",", "90", ",", "91", ",", "92", ",", "93", ",", "94", ",", "95", ",", "96", ",", "97", ",", "98", ",", "99", ",", "100", ",", "101", ",", "102", ",", "103", ",", "104", ",", "105", ",", "106", ",", "107", ",", "108", ",", "109", ",", "110", ",", "111", ",", "112", ",", "113", ",", "114", ",", "115", ",", "116", ",", "117", ",", "118", ",", "119", ",", "120", ",", "121", ",", "122", ",", "123", ",", "124", ",", "125", ",", "126", ",", "127", ",", "128", ",", "129", ",", "130", ",", "131", ",", "132", ",", "133", ",", "134", ",", "135", ",", "136", ",", "137", ",", "138", ",", "139", ",", "140", ",", "141", ",", "142", ",", "143"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"T1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{ RowBox[{"Length", "[", "K", "]"}], "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dd", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"t1", "=", "1"}], ",", " ", RowBox[{"t1", "\[LessEqual]", RowBox[{"Length", "[", "T1", "]"}]}], ",", " ", RowBox[{ RowBox[{"K", "=", RowBox[{"T1", "[", RowBox[{"[", "t1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t2", "=", "1"}], ",", RowBox[{"t2", "\[LessEqual]", RowBox[{"Length", "[", "T2", "]"}]}], ",", RowBox[{ RowBox[{"B", "=", RowBox[{"T2", "[", RowBox[{"[", "t2", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"H", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"{", "0", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "B"}], ")"}], "\[Union]", " ", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{ RowBox[{"Length", "[", "K", "]"}], "+", "1"}], "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], " ", "\[Equal]", " ", "NN"}], "]"}], ",", " ", RowBox[{"dd", "=", RowBox[{"dd", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"t2", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"t1", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", "dd", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "v", ",", "vvv", ",", "vvvv"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"T2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "17", ",", "20", ",", "23", ",", "28", ",", "29", ",", "40", ",", "48", ",", "53", ",", "59", ",", "65", ",", "68", ",", "76", ",", "88", ",", "89", ",", "95", ",", "96", ",", "101", ",", "116", ",", "124", ",", "125", ",", "131", ",", "136", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "17", ",", "24", ",", "25", ",", "30", ",", "36", ",", "37", ",", "45", ",", "60", ",", "65", ",", "66", ",", "72", ",", "73", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "113", ",", "121", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "24", ",", "25", ",", "28", ",", "31", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "72", ",", "76", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "120", ",", "124", ",", "127", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "25", ",", "28", ",", "31", ",", "40", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "76", ",", "88", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "124", ",", "127", ",", "133", ",", "136", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "23", ",", "24", ",", "30", ",", "31", ",", "36", ",", "43", ",", "60", ",", "66", ",", "67", ",", "71", ",", "72", ",", "79", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "119", ",", "127", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "28", ",", "31", ",", "36", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "76", ",", "84", ",", "91", ",", "96", ",", "97", ",", "103", ",", "120", ",", "124", ",", "127", ",", "132", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "31", ",", "36", ",", "44", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "84", ",", "91", ",", "92", ",", "96", ",", "97", ",", "103", ",", "120", ",", "127", ",", "132", ",", "133", ",", "139", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "27", ",", "30", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "75", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "123", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "31", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "67", ",", "72", ",", "79", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "127", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "72", ",", "76", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "120", ",", "124", ",", "129", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "28", ",", "33", ",", "40", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "76", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "124", ",", "129", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "33", ",", "40", ",", "44", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "88", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "129", ",", "135", ",", "136", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "72", ",", "76", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "120", ",", "124", ",", "131", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "28", ",", "29", ",", "35", ",", "40", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "76", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "124", ",", "131", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "29", ",", "35", ",", "40", ",", "44", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "88", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "131", ",", "136", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "73", ",", "81", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "121", ",", "129", ",", "132", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "36", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "76", ",", "84", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "124", ",", "129", ",", "132", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "33", ",", "36", ",", "44", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "84", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "129", ",", "132", ",", "135", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "30", ",", "33", ",", "36", ",", "41", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "81", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "129", ",", "132", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "27", ",", "28", ",", "33", ",", "36", ",", "40", ",", "48", ",", "57", ",", "63", ",", "69", ",", "76", ",", "84", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "124", ",", "129", ",", "132", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "75", ",", "83", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "123", ",", "131", ",", "132", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "36", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "76", ",", "84", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "124", ",", "131", ",", "132", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "29", ",", "35", ",", "36", ",", "44", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "84", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "131", ",", "132", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "43", ",", "60", ",", "66", ",", "71", ",", "72", ",", "79", ",", "83", ",", "91", ",", "96", ",", "102", ",", "108", ",", "119", ",", "127", ",", "131", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "35", ",", "36", ",", "43", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "83", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "131", ",", "132", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "28", ",", "29", ",", "35", ",", "36", ",", "40", ",", "48", ",", "59", ",", "65", ",", "71", ",", "76", ",", "84", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "124", ",", "131", ",", "132", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "60", ",", "66", ",", "72", ",", "73", ",", "77", ",", "81", ",", "85", ",", "96", ",", "102", ",", "108", ",", "121", ",", "125", ",", "129", ",", "132", ",", "133", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "37", ",", "45", ",", "60", ",", "66", ",", "72", ",", "73", ",", "81", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "121", ",", "129", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "60", ",", "66", ",", "72", ",", "75", ",", "79", ",", "83", ",", "87", ",", "96", ",", "102", ",", "108", ",", "123", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "72", ",", "75", ",", "83", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "123", ",", "131", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "60", ",", "66", ",", "72", ",", "77", ",", "81", ",", "85", ",", "89", ",", "96", ",", "102", ",", "108", ",", "125", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "72", ",", "79", ",", "83", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "45", ",", "60", ",", "66", ",", "72", ",", "81", ",", "85", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "35", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "72", ",", "83", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "H", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Length", "[", "T2", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "T2", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MF", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "T2", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"T2", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"k", ",", "n"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MF", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"H", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MT", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"T2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"cont", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "T2", "]"}]}], ",", " ", RowBox[{ RowBox[{"cont", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"c", "=", "1"}], ",", RowBox[{"c", "\[LessEqual]", "v"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "c", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "==", RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], ")"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "c", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}], "\[Or]", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}]}], ")"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], ";", RowBox[{"cont", "=", RowBox[{"cont", "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"cont", "\[LessEqual]", "c"}], ",", " ", RowBox[{"c", "=", RowBox[{"v", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"c", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"cont", "\[Equal]", RowBox[{"v", "+", "1"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"MF", "[", RowBox[{"[", RowBox[{"v", "+", "1"}], "]"}], "]"}], "=", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"MT", "[", RowBox[{"[", RowBox[{"v", "+", "1"}], "]"}], "]"}], "=", RowBox[{"T2", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", " ", RowBox[{"v", "=", RowBox[{"v", "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MT", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MT", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MF", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MF", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "MF", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "MT", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "8", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}]}], "}"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Next", ",", " ", RowBox[{ RowBox[{"we", " ", "see", " ", "what", " ", "those", " ", "Fourier"}], "-", RowBox[{"zero", " ", "sets", " ", RowBox[{"are", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"J", "=", "MF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F1", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", RowBox[{"Length", "[", "J", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"J", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{"F1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"F1", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FF1", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "F1", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "F1", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{"FF1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "j"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "FF1", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FF1", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"FF1", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"FF1", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "=", RowBox[{"FF1", "-", "1"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", RowBox[{"m", "\[LessEqual]", RowBox[{"Length", "[", "FF1", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"FF1", "[", RowBox[{"[", "m", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FF", "[", RowBox[{"[", RowBox[{"m", ",", "j"}], "]"}], "]"}], "=", RowBox[{"GCD", "[", RowBox[{ RowBox[{"FF", "[", RowBox[{"[", RowBox[{"m", ",", "j"}], "]"}], "]"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"FF", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "FF", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FF", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"FF", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "FF", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FT", "=", RowBox[{"n", "/", "FF"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CFT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "FT", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "FT", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CFT", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], ",", RowBox[{"FT", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "CFT", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "v", ",", "vvv", ",", "vvvv"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"T2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "32", ",", "58", ",", "90", ",", "112", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "46", ",", "64", ",", "110", ",", "126", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "54", ",", "64", ",", "80", ",", "118", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "58", ",", "74", ",", "90", ",", "112", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "62", ",", "80", ",", "94", ",", "112", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "94", ",", "110", ",", "112", ",", "126", ",", "128"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "H", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Length", "[", "T2", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "T2", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MF", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "T2", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"T2", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"k", ",", "n"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"H", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MF", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"H", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MT", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"T2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"cont", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "T2", "]"}]}], ",", " ", RowBox[{ RowBox[{"cont", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"c", "=", "1"}], ",", RowBox[{"c", "\[LessEqual]", "v"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", " ", RowBox[{"k", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "c", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "==", RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], ")"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"MF", "[", RowBox[{"[", "c", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}], "\[Or]", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}]}], ")"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], ";", RowBox[{"cont", "=", RowBox[{"cont", "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"cont", "\[LessEqual]", "c"}], ",", " ", RowBox[{"c", "=", RowBox[{"v", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"c", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"cont", "\[Equal]", RowBox[{"v", "+", "1"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"MF", "[", RowBox[{"[", RowBox[{"v", "+", "1"}], "]"}], "]"}], "=", RowBox[{"H", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"MT", "[", RowBox[{"[", RowBox[{"v", "+", "1"}], "]"}], "]"}], "=", RowBox[{"T2", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", " ", RowBox[{"v", "=", RowBox[{"v", "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MT", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MT", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MF", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MF", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "MF", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "MT", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "8", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}]}], "}"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Next", ",", " ", RowBox[{ RowBox[{"we", " ", "see", " ", "what", " ", "those", " ", "Fourier"}], "-", RowBox[{"zero", " ", "sets", " ", RowBox[{"are", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"J", "=", "MF"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F1", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", RowBox[{"Length", "[", "J", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Fourier", "[", RowBox[{"J", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{"F1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"F1", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FF1", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "F1", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "F1", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{"FF1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "j"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "FF1", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FF1", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"FF1", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"FF1", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "=", RowBox[{"FF1", "-", "1"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", RowBox[{"m", "\[LessEqual]", RowBox[{"Length", "[", "FF1", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"FF1", "[", RowBox[{"[", "m", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FF", "[", RowBox[{"[", RowBox[{"m", ",", "j"}], "]"}], "]"}], "=", RowBox[{"GCD", "[", RowBox[{ RowBox[{"FF", "[", RowBox[{"[", RowBox[{"m", ",", "j"}], "]"}], "]"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"FF", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "FF", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FF", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"FF", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "FF", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FT", "=", RowBox[{"n", "/", "FF"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CFT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "FT", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "FT", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CFT", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], ",", RowBox[{"FT", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "CFT", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.432223184796875*^9, 3.43222320371875*^9}, { 3.432223236609375*^9, 3.43222323809375*^9}, 3.43222327996875*^9, { 3.432223309984375*^9, 3.43222337615625*^9}, 3.43244328346875*^9, { 3.432443331359375*^9, 3.43244336390625*^9}, {3.432443426484375*^9, 3.432443449421875*^9}, {3.4324445218125*^9, 3.432444589453125*^9}, { 3.433609965078125*^9, 3.4336099688125*^9}, {3.433610009859375*^9, 3.43361001040625*^9}, {3.43361010796875*^9, 3.433610216140625*^9}, { 3.433610248859375*^9, 3.43361032721875*^9}, {3.433610419546875*^9, 3.43361052040625*^9}, {3.433610561171875*^9, 3.4336105999375*^9}, { 3.43361063615625*^9, 3.43361063628125*^9}, {3.433611236640625*^9, 3.43361126046875*^9}, {3.433614521109375*^9, 3.433614541578125*^9}, { 3.433614987453125*^9, 3.43361499046875*^9}, 3.43365304975*^9, { 3.433653090671875*^9, 3.43365309790625*^9}, 3.433653151265625*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`i, $CellContext`g, $CellContext`mark}, StandardForm], ImageSizeCache->{205.6875, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.4336531553125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "16", ",", "18", ",", "32", ",", "34", ",", "50"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653155796875*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`jj, $CellContext`j, $CellContext`i, $CellContext`g, \ $CellContext`mark, $CellContext`rr}, StandardForm], ImageSizeCache->{242.0625, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653155796875*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.4336531573125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"24", ",", "36"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.4336531573125*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`i, $CellContext`g, $CellContext`mark}, StandardForm], ImageSizeCache->{205.6875, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653157328125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "16", ",", "18", ",", "32", ",", "34", ",", "50"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653157328125*^9}], Cell[BoxData["5400"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365354303125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "62", ",", "63", ",", "64", ",", "65", ",", "66", ",", "67", ",", "68", ",", "69", ",", "70", ",", "71", ",", "72", ",", "73", ",", "74", ",", "75", ",", "76", ",", "77", ",", "78", ",", "79", ",", "80", ",", "81", ",", "82", ",", "83", ",", "84", ",", "85", ",", "86", ",", "87", ",", "88", ",", "89", ",", "90", ",", "91", ",", "92", ",", "93", ",", "94", ",", "95", ",", "96", ",", "97", ",", "98", ",", "99", ",", "100", ",", "101", ",", "102", ",", "103", ",", "104", ",", "105", ",", "106", ",", "107", ",", "108", ",", "109", ",", "110", ",", "111", ",", "112", ",", "113", ",", "114", ",", "115", ",", "116", ",", "117", ",", "118", ",", "119", ",", "120", ",", "121", ",", "122", ",", "123", ",", "124", ",", "125", ",", "126", ",", "127", ",", "128", ",", "129", ",", "130", ",", "131", ",", "132", ",", "133", ",", "134", ",", "135", ",", "136", ",", "137", ",", "138", ",", "139", ",", "140", ",", "141", ",", "142", ",", "143"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653543078125*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653551546875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "17", ",", "20", ",", "23", ",", "28", ",", "29", ",", "40", ",", "48", ",", "53", ",", "59", ",", "65", ",", "68", ",", "76", ",", "88", ",", "89", ",", "95", ",", "96", ",", "101", ",", "116", ",", "124", ",", "125", ",", "131", ",", "136", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "17", ",", "24", ",", "25", ",", "30", ",", "36", ",", "37", ",", "45", ",", "60", ",", "65", ",", "66", ",", "72", ",", "73", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "113", ",", "121", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "24", ",", "25", ",", "28", ",", "31", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "72", ",", "76", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "120", ",", "124", ",", "127", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "20", ",", "25", ",", "28", ",", "31", ",", "40", ",", "48", ",", "55", ",", "61", ",", "67", ",", "68", ",", "76", ",", "88", ",", "91", ",", "96", ",", "97", ",", "103", ",", "116", ",", "124", ",", "127", ",", "133", ",", "136", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "23", ",", "24", ",", "30", ",", "31", ",", "36", ",", "43", ",", "60", ",", "66", ",", "67", ",", "71", ",", "72", ",", "79", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "119", ",", "127", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "28", ",", "31", ",", "36", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "76", ",", "84", ",", "91", ",", "96", ",", "97", ",", "103", ",", "120", ",", "124", ",", "127", ",", "132", ",", "133", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "25", ",", "31", ",", "36", ",", "44", ",", "48", ",", "55", ",", "61", ",", "67", ",", "72", ",", "84", ",", "91", ",", "92", ",", "96", ",", "97", ",", "103", ",", "120", ",", "127", ",", "132", ",", "133", ",", "139", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "27", ",", "30", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "75", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "123", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "31", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "67", ",", "72", ",", "79", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "115", ",", "127", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "19", ",", "24", ",", "30", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "67", ",", "72", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "115", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "72", ",", "76", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "120", ",", "124", ",", "129", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "28", ",", "33", ",", "40", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "76", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "124", ",", "129", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "21", ",", "27", ",", "33", ",", "40", ",", "44", ",", "48", ",", "57", ",", "63", ",", "68", ",", "69", ",", "88", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "116", ",", "129", ",", "135", ",", "136", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "72", ",", "76", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "120", ",", "124", ",", "131", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "28", ",", "29", ",", "35", ",", "40", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "76", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "124", ",", "131", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "23", ",", "29", ",", "35", ",", "40", ",", "44", ",", "48", ",", "59", ",", "65", ",", "68", ",", "71", ",", "88", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "116", ",", "131", ",", "136", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "73", ",", "81", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "121", ",", "129", ",", "132", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "28", ",", "33", ",", "36", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "76", ",", "84", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "124", ",", "129", ",", "132", ",", "135", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "27", ",", "33", ",", "36", ",", "44", ",", "48", ",", "57", ",", "63", ",", "69", ",", "72", ",", "84", ",", "92", ",", "93", ",", "96", ",", "99", ",", "105", ",", "120", ",", "129", ",", "132", ",", "135", ",", "140", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "30", ",", "33", ",", "36", ",", "41", ",", "45", ",", "60", ",", "66", ",", "69", ",", "72", ",", "81", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "117", ",", "129", ",", "132", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "27", ",", "28", ",", "33", ",", "36", ",", "40", ",", "48", ",", "57", ",", "63", ",", "69", ",", "76", ",", "84", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "124", ",", "129", ",", "132", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "75", ",", "83", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "123", ",", "131", ",", "132", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "28", ",", "29", ",", "35", ",", "36", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "76", ",", "84", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "124", ",", "131", ",", "132", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "29", ",", "35", ",", "36", ",", "44", ",", "48", ",", "59", ",", "65", ",", "71", ",", "72", ",", "84", ",", "92", ",", "95", ",", "96", ",", "101", ",", "107", ",", "120", ",", "131", ",", "132", ",", "137", ",", "140", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "43", ",", "60", ",", "66", ",", "71", ",", "72", ",", "79", ",", "83", ",", "91", ",", "96", ",", "102", ",", "108", ",", "119", ",", "127", ",", "131", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "35", ",", "36", ",", "43", ",", "47", ",", "60", ",", "66", ",", "71", ",", "72", ",", "83", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "119", ",", "131", ",", "132", ",", "138", ",", "139", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "28", ",", "29", ",", "35", ",", "36", ",", "40", ",", "48", ",", "59", ",", "65", ",", "71", ",", "76", ",", "84", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "124", ",", "131", ",", "132", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "60", ",", "66", ",", "72", ",", "73", ",", "77", ",", "81", ",", "85", ",", "96", ",", "102", ",", "108", ",", "121", ",", "125", ",", "129", ",", "132", ",", "133", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "37", ",", "45", ",", "60", ",", "66", ",", "72", ",", "73", ",", "81", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "121", ",", "129", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "60", ",", "66", ",", "72", ",", "75", ",", "79", ",", "83", ",", "87", ",", "96", ",", "102", ",", "108", ",", "123", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "72", ",", "75", ",", "83", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "123", ",", "131", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "60", ",", "66", ",", "72", ",", "77", ",", "81", ",", "85", ",", "89", ",", "96", ",", "102", ",", "108", ",", "125", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "39", ",", "43", ",", "60", ",", "66", ",", "72", ",", "79", ",", "83", ",", "87", ",", "91", ",", "96", ",", "102", ",", "108", ",", "127", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "33", ",", "36", ",", "37", ",", "41", ",", "45", ",", "60", ",", "66", ",", "72", ",", "81", ",", "85", ",", "89", ",", "93", ",", "96", ",", "102", ",", "108", ",", "129", ",", "132", ",", "133", ",", "137", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "30", ",", "35", ",", "36", ",", "39", ",", "43", ",", "47", ",", "60", ",", "66", ",", "72", ",", "83", ",", "87", ",", "91", ",", "95", ",", "96", ",", "102", ",", "108", ",", "131", ",", "132", ",", "135", ",", "138", ",", "139", ",", "143"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653551546875*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.4336535515625*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653554078125*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365355446875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "27", ",", "28", ",", "33", ",", "36", ",", "40", ",", "48", ",", "57", ",", "63", ",", "69", ",", "76", ",", "84", ",", "88", ",", "93", ",", "96", ",", "99", ",", "105", ",", "124", ",", "129", ",", "132", ",", "135", ",", "136", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "24", ",", "30", ",", "31", ",", "35", ",", "36", ",", "43", ",", "60", ",", "66", ",", "71", ",", "72", ",", "79", ",", "83", ",", "91", ",", "96", ",", "102", ",", "108", ",", "119", ",", "127", ",", "131", ",", "132", ",", "138", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "23", ",", "28", ",", "29", ",", "35", ",", "36", ",", "40", ",", "48", ",", "59", ",", "65", ",", "71", ",", "76", ",", "84", ",", "88", ",", "95", ",", "96", ",", "101", ",", "107", ",", "124", ",", "131", ",", "132", ",", "136", ",", "137", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "25", ",", "30", ",", "33", ",", "36", ",", "37", ",", "45", ",", "60", ",", "66", ",", "72", ",", "73", ",", "81", ",", "85", ",", "93", ",", "96", ",", "102", ",", "108", ",", "121", ",", "129", ",", "132", ",", "133", ",", "138", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "24", ",", "27", ",", "30", ",", "35", ",", "36", ",", "39", ",", "47", ",", "60", ",", "66", ",", "72", ",", "75", ",", "83", ",", "87", ",", "95", ",", "96", ",", "102", ",", "108", ",", "123", ",", "131", ",", "132", ",", "135", ",", "138", ",", "143"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653554484375*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`i, $CellContext`g, $CellContext`mark}, StandardForm], ImageSizeCache->{205.6875, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653554484375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653554484375*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653570453125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "62", ",", "63", ",", "64", ",", "65", ",", "66", ",", "67", ",", "68", ",", "69", ",", "70", ",", "71", ",", "72", ",", "73", ",", "74", ",", "75", ",", "76", ",", "77", ",", "78", ",", "79", ",", "80", ",", "81", ",", "82", ",", "83", ",", "84", ",", "85", ",", "86", ",", "87", ",", "88", ",", "89", ",", "90", ",", "91", ",", "92", ",", "93", ",", "94", ",", "95", ",", "96", ",", "97", ",", "98", ",", "99", ",", "100", ",", "101", ",", "102", ",", "103", ",", "104", ",", "105", ",", "106", ",", "107", ",", "108", ",", "109", ",", "110", ",", "111", ",", "112", ",", "113", ",", "114", ",", "115", ",", "116", ",", "117", ",", "118", ",", "119", ",", "120", ",", "121", ",", "122", ",", "123", ",", "124", ",", "125", ",", "126", ",", "127", ",", "128", ",", "129", ",", "130", ",", "131", ",", "132", ",", "133", ",", "134", ",", "135", ",", "136", ",", "137", ",", "138", ",", "139", ",", "140", ",", "141", ",", "142", ",", "143"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365357046875*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365357046875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "32", ",", "58", ",", "90", ",", "112", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "46", ",", "64", ",", "110", ",", "126", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "54", ",", "64", ",", "80", ",", "118", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "58", ",", "74", ",", "90", ",", "112", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "62", ",", "80", ",", "94", ",", "112", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "110", ",", "112", ",", "126", ",", "128"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653570484375*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`i, $CellContext`g, $CellContext`mark}, StandardForm], ImageSizeCache->{205.6875, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653570484375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "17", ",", "20", ",", "23", ",", "28", ",", "29", ",", "40", ",", "48", ",", "53", ",", "59", ",", "65", ",", "68", ",", "76", ",", "88", ",", "89", ",", "95", ",", "96", ",", "101", ",", "116", ",", "124", ",", "125", ",", "131", ",", "136", ",", "137"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653570484375*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358734375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "62", ",", "63", ",", "64", ",", "65", ",", "66", ",", "67", ",", "68", ",", "69", ",", "70", ",", "71", ",", "72", ",", "73", ",", "74", ",", "75", ",", "76", ",", "77", ",", "78", ",", "79", ",", "80", ",", "81", ",", "82", ",", "83", ",", "84", ",", "85", ",", "86", ",", "87", ",", "88", ",", "89", ",", "90", ",", "91", ",", "92", ",", "93", ",", "94", ",", "95", ",", "96", ",", "97", ",", "98", ",", "99", ",", "100", ",", "101", ",", "102", ",", "103", ",", "104", ",", "105", ",", "106", ",", "107", ",", "108", ",", "109", ",", "110", ",", "111", ",", "112", ",", "113", ",", "114", ",", "115", ",", "116", ",", "117", ",", "118", ",", "119", ",", "120", ",", "121", ",", "122", ",", "123", ",", "124", ",", "125", ",", "126", ",", "127", ",", "128", ",", "129", ",", "130", ",", "131", ",", "132", ",", "133", ",", "134", ",", "135", ",", "136", ",", "137", ",", "138", ",", "139", ",", "140", ",", "141", ",", "142", ",", "143"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358734375*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358734375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "32", ",", "58", ",", "90", ",", "112", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "46", ",", "64", ",", "110", ",", "126", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "54", ",", "64", ",", "80", ",", "118", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "58", ",", "74", ",", "90", ",", "112", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "62", ",", "80", ",", "94", ",", "112", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "110", ",", "112", ",", "126", ",", "128"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653587359375*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`t1, $CellContext`t2, $CellContext`dd}, StandardForm], ImageSizeCache->{64.375, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653587359375*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653587515625*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`v, $CellContext`vvv, \ $CellContext`vvvv}, StandardForm], ImageSizeCache->{96.5625, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358753125*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358753125*^9}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653589234375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "17", ",", "20", ",", "23", ",", "28", ",", "29", ",", "40", ",", "48", ",", "53", ",", "59", ",", "65", ",", "68", ",", "76", ",", "88", ",", "89", ",", "95", ",", "96", ",", "101", ",", "116", ",", "124", ",", "125", ",", "131", ",", "136", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "21", ",", "24", ",", "29", ",", "30", ",", "33", ",", "36", ",", "41", ",", "60", ",", "66", ",", "69", ",", "72", ",", "77", ",", "81", ",", "89", ",", "96", ",", "102", ",", "108", ",", "117", ",", "125", ",", "129", ",", "132", ",", "137", ",", "138"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653589234375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "6", ",", "8", ",", "9", ",", "16", ",", "18", ",", "72"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "8", ",", "9", ",", "16", ",", "18", ",", "72"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358928125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "144", ",", "72", ",", "24", ",", "18", ",", "16", ",", "9", ",", "8", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "144", ",", "72", ",", "18", ",", "16", ",", "9", ",", "8", ",", "2"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358928125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "4", ",", "6", ",", "12", ",", "36", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "3", ",", "4", ",", "6", ",", "12", ",", "24", ",", "36", ",", "48"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358928125*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`v, $CellContext`vvv, \ $CellContext`vvvv}, StandardForm], ImageSizeCache->{96.5625, {2., 8.}}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358928125*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.43365358928125*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653589609375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "32", ",", "58", ",", "90", ",", "112", ",", "122"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653589609375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ "3", ",", "4", ",", "6", ",", "12", ",", "24", ",", "36", ",", "48"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653589640625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ "48", ",", "36", ",", "24", ",", "12", ",", "6", ",", "4", ",", "3"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653589640625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "8", ",", "9", ",", "16", ",", "18", ",", "72", ",", "144"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.432223455328125*^9, 3.432443454640625*^9, 3.433610691390625*^9, 3.433611262453125*^9, 3.43361454328125*^9, 3.433653589640625*^9}] }, Open ]] }, WindowSize->{1086, 567}, WindowMargins->{{Automatic, 75}, {Automatic, 40}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 164768, 4036, 13892, "Input"], Cell[165361, 4061, 331, 7, 30, "Output"], Cell[165695, 4070, 278, 6, 30, "Output"], Cell[165976, 4078, 365, 7, 30, "Output"], Cell[166344, 4087, 183, 3, 30, "Output"], Cell[166530, 4092, 254, 6, 30, "Output"], Cell[166787, 4100, 333, 7, 30, "Output"], Cell[167123, 4109, 278, 6, 30, "Output"], Cell[167404, 4117, 187, 3, 30, "Output"], Cell[167594, 4122, 1919, 28, 107, "Output"], Cell[169516, 4152, 186, 3, 30, "Output"], Cell[169705, 4157, 12190, 222, 696, "Output"], Cell[181898, 4381, 184, 3, 30, "Output"], Cell[182085, 4386, 185, 3, 30, "Output"], Cell[182273, 4391, 184, 3, 30, "Output"], Cell[182460, 4396, 2210, 42, 126, "Output"], Cell[184673, 4440, 333, 7, 30, "Output"], Cell[185009, 4449, 496, 9, 30, "Output"], Cell[185508, 4460, 186, 3, 30, "Output"], Cell[185697, 4465, 1918, 28, 107, "Output"], Cell[187618, 4495, 184, 3, 30, "Output"], Cell[187805, 4500, 879, 23, 50, "Output"], Cell[188687, 4525, 333, 7, 30, "Output"], Cell[189023, 4534, 495, 9, 30, "Output"], Cell[189521, 4545, 185, 3, 30, "Output"], Cell[189709, 4550, 1918, 28, 107, "Output"], Cell[191630, 4580, 184, 3, 30, "Output"], Cell[191817, 4585, 879, 23, 50, "Output"], Cell[192699, 4610, 311, 6, 30, "Output"], Cell[193013, 4618, 185, 3, 30, "Output"], Cell[193201, 4623, 331, 7, 30, "Output"], Cell[193535, 4632, 185, 3, 30, "Output"], Cell[193723, 4637, 185, 3, 30, "Output"], Cell[193911, 4642, 878, 18, 50, "Output"], Cell[194792, 4662, 464, 13, 30, "Output"], Cell[195259, 4677, 469, 13, 30, "Output"], Cell[195731, 4692, 465, 13, 30, "Output"], Cell[196199, 4707, 331, 7, 30, "Output"], Cell[196533, 4716, 184, 3, 30, "Output"], Cell[196720, 4721, 185, 3, 30, "Output"], Cell[196908, 4726, 305, 7, 30, "Output"], Cell[197216, 4735, 316, 8, 30, "Output"], Cell[197535, 4745, 316, 8, 30, "Output"], Cell[197854, 4755, 328, 8, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)