(* 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[ 117885, 2802] NotebookOptionsPosition[ 117213, 2778] NotebookOutlinePosition[ 117555, 2793] CellTagsIndexPosition[ 117512, 2790] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "16"}], "}"}]}], "}"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{ 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[{"2", ",", RowBox[{"x", "^", RowBox[{"(", "9", ")"}]}]}], "]"}], RowBox[{"Cyclotomic", "[", RowBox[{"3", ",", RowBox[{"x", "^", RowBox[{"(", "8", ")"}]}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "72"}], ";"}], "\[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]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "16"}], "}"}]}], "}"}], ";"}], "*)"}], "\[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", "=", "72"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"B", "=", RowBox[{"{", RowBox[{"0", ",", "8", ",", "9", ",", "16", ",", "17", ",", "25"}], "}"}]}], ";"}], "\[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]", "Tile", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Next", " ", "we", " ", "shift", " ", "the", " ", "elements", " ", "of", " ", "members", " ", "of", " ", "Tile", " ", "by", " ", "72"}], ",", " ", RowBox[{ "and", " ", "evaluate", " ", "a", " ", "relevant", " ", "entry", " ", "of", " ", "the", " ", "Fourier", " ", RowBox[{"transform", ".", " ", "If"}], " ", "it", " ", "is", " ", "zero"}], ",", " ", RowBox[{"we", " ", "keep", " ", "the", " ", "Tile"}], ",", " ", RowBox[{ RowBox[{"if", " ", "it", " ", "is", " ", "non"}], "-", RowBox[{"zero", " ", "we", " ", "discard", " ", "the", " ", RowBox[{"Tile", ".", " ", "The"}], " ", RowBox[{"reason", ":", " ", RowBox[{ RowBox[{"if", " ", "it", " ", "is", " ", "non"}], "-", "zero"}]}]}]}], ",", " ", RowBox[{ "then", " ", "it", " ", "must", " ", "be", " ", "zero", " ", "for", " ", "any", " ", "tiling", " ", "complement"}], ",", " ", RowBox[{ "and", " ", "so", " ", "the", " ", "tiling", " ", "complement", " ", "must", " ", "be", " ", RowBox[{"periodic", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"h", ",", "p", ",", "k", ",", "j", ",", "m"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w2", "=", RowBox[{"Exp", "[", RowBox[{"I", " ", "2", " ", RowBox[{"Pi", " ", "/", "144"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"KK", "=", "Tile"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tilea", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "200000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"p", "=", "1"}], ",", RowBox[{"p", "\[LessEqual]", RowBox[{"Length", "[", "KK", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "0"}], ",", RowBox[{"k", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", " ", RowBox[{"j", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "0"}], ",", RowBox[{"m", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m2", "=", "0"}], ",", RowBox[{"m2", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m3", "=", "0"}], ",", RowBox[{"m3", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m4", "=", "0"}], ",", RowBox[{"m4", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m5", "=", "0"}], ",", RowBox[{"m5", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m6", "=", "0"}], ",", RowBox[{"m6", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m7", "=", "0"}], ",", RowBox[{"m7", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m8", "=", "0"}], ",", RowBox[{"m8", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"m9", "=", "0"}], ",", RowBox[{"m9", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Tilea", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"72", "k"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"72", "j"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"72", "m"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "4"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"72", "m2"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "5"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"72", "m3"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "6"}], "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"72", "m4"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "7"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"72", "m5"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "8"}], "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"72", "m6"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "9"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"72", "m7"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "10"}], "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"72", "m8"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "11"}], "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"72", "m9"}], "+", RowBox[{"KK", "[", RowBox[{"[", RowBox[{"p", ",", "12"}], "]"}], "]"}]}]}], "}"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", RowBox[{"P", "=", RowBox[{"Tilea", "[", RowBox[{"[", "h", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"Chop", "[", RowBox[{"N", "[", RowBox[{"1", "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "4", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "5", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "6", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "7", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "8", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "9", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "10", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "11", "]"}], "]"}]}], "+", RowBox[{"w2", "^", RowBox[{"P", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], "]"}], "]"}], "\[Equal]", "0"}], "]"}], ",", " ", RowBox[{ RowBox[{"Tilea", "[", RowBox[{"[", "h", "]"}], "]"}], "=", "0"}], ",", RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m9", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m8", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m7", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m6", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m5", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m4", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m3", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m2", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"p", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Tilea", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tilea", "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tilea", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "It", " ", "turns", " ", "out", " ", "that", " ", "all", " ", "the", " ", "remaining", " ", "tlies", " ", "are", " ", RowBox[{"periodic", "."}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "Tilea", "]"}]}], ",", " ", RowBox[{ RowBox[{"P", "=", RowBox[{"Tilea", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "<=", RowBox[{"Length", "[", "P", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Tilea", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"P", "-", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tilea", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "0"}], ";", RowBox[{"i", "=", RowBox[{ RowBox[{"Length", "[", "P", "]"}], "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\n", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tilea", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tilea", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tilea", "]"}], "\[IndentingNewLine]", "Tilea", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Therefore", " ", "this", " ", "part", " ", "below", " ", "is", " ", "not", " ", "needed"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"with", " ", "the", " ", "Fourier"}], "-", RowBox[{"selection", " ", "and", " ", "all", " ", RowBox[{"that", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "v", ",", "vvv", ",", "vvvv"}], "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"T2", "=", "Tilea"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Clear", "[", "H", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "T2", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"n", "=", "144"}]}], ";", "\[IndentingNewLine]", RowBox[{"H", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "T2", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MF", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 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[{"MF", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"H", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MT", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"T2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"cont", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", "1"}], ";", "\[IndentingNewLine]", 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[{"MT", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MT", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MF", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"MF", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "MF", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "MT", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"n", "=", "144"}]}], ";", "\[IndentingNewLine]", RowBox[{"J", "=", "MF"}], ";", "\[IndentingNewLine]", RowBox[{"F1", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 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]", "F1", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"n", "=", "144"}], ";", "\[IndentingNewLine]", RowBox[{"FF1", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "F1", "]"}], ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 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[{"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]", "FF1", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"FF1", "-", "1"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 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]", "FF", ";", "\[IndentingNewLine]", 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]", RowBox[{ RowBox[{"FF", "\[IndentingNewLine]", "\[IndentingNewLine]", "FT"}], "=", RowBox[{ RowBox[{"n", "/", "FF"}], "\[IndentingNewLine]", RowBox[{"CFT", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "FT", "]"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 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]", RowBox[{"CFT", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{ "jj", ",", "j", ",", "i", ",", "g", ",", " ", "mark", ",", " ", "rr"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{ "n", ",", "J", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"n", "=", "144"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"J", "=", "MT"}], ";", "\[IndentingNewLine]", RowBox[{"rr", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"gcd", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 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[{"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[{"maxperiod", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", "10000"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nonperiodic", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"Length", "[", "J", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 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]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", RowBox[{"jj", ",", "g"}], "]"}], "]"}], "\[Equal]", "99"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"nonperiodic", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"J", "[", RowBox[{"[", "jj", "]"}], "]"}]}], ";", RowBox[{"jj", "=", RowBox[{"jj", "+", "1"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"g", ">", "1"}], ")"}], "\[And]", RowBox[{"(", RowBox[{"Not", "[", RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", RowBox[{"jj", ",", "g"}], "]"}], "]"}], "\[Equal]", RowBox[{"maxperiod", "[", RowBox[{"[", RowBox[{"jj", ",", RowBox[{"g", "-", "1"}]}], "]"}], "]"}]}], "]"}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"nonperiodic", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"J", "[", RowBox[{"[", "jj", "]"}], "]"}]}], ";", " ", RowBox[{"jj", "=", RowBox[{"jj", "+", "1"}]}]}]}], "]"}]}], "]"}]}]}], "]"}], ";", "\[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]", RowBox[{"rr", "\[IndentingNewLine]", RowBox[{"nonperiodic", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"nonperiodic", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"nonperiodic", "\[IndentingNewLine]", 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]"}]}]], "Input", CellChangeTimes->{{3.431106100171875*^9, 3.4311061361875*^9}, { 3.431106520484375*^9, 3.431106542203125*^9}, {3.4311772433125*^9, 3.431177261515625*^9}, {3.43220222196875*^9, 3.432202249859375*^9}, 3.43220233709375*^9, {3.43220276965625*^9, 3.432202803453125*^9}, { 3.432202884984375*^9, 3.43220294446875*^9}, {3.432202982734375*^9, 3.432203057609375*^9}, {3.432203487234375*^9, 3.43220348859375*^9}, { 3.43220358609375*^9, 3.43220358796875*^9}, 3.432203642296875*^9, { 3.43220369146875*^9, 3.432203708359375*^9}, {3.43220384328125*^9, 3.4322038665625*^9}, 3.432203954296875*^9, 3.432204027421875*^9, { 3.43220409684375*^9, 3.43220413853125*^9}, {3.433658126359375*^9, 3.43365812734375*^9}, {3.43365948671875*^9, 3.43365958934375*^9}, { 3.43365966653125*^9, 3.433659814921875*^9}, {3.4336655596875*^9, 3.433665561171875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "8", ",", "9", ",", "16", ",", "17", ",", "25"}], "}"}]], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.4336655270625*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`i, $CellContext`g, $CellContext`mark}, StandardForm], ImageSizeCache->{335.8125, {2., 8.}}]], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.433665527109375*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.433665529015625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "24", ",", "26", ",", "28", ",", "30", ",", "48", ",", "50", ",", "52", ",", "54"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "14", ",", "24", ",", "26", ",", "28", ",", "38", ",", "48", ",", "50", ",", "52", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "22", ",", "24", ",", "26", ",", "28", ",", "46", ",", "48", ",", "50", ",", "52", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "6", ",", "12", ",", "24", ",", "26", ",", "30", ",", "36", ",", "48", ",", "50", ",", "54", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "6", ",", "20", ",", "24", ",", "26", ",", "30", ",", "44", ",", "48", ",", "50", ",", "54", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "12", ",", "14", ",", "24", ",", "26", ",", "36", ",", "38", ",", "48", ",", "50", ",", "60", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "12", ",", "22", ",", "24", ",", "26", ",", "36", ",", "46", ",", "48", ",", "50", ",", "60", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "14", ",", "20", ",", "24", ",", "26", ",", "38", ",", "44", ",", "48", ",", "50", ",", "62", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "20", ",", "22", ",", "24", ",", "26", ",", "44", ",", "46", ",", "48", ",", "50", ",", "68", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "3", ",", "6", ",", "18", ",", "21", ",", "24", ",", "36", ",", "39", ",", "42", ",", "54", ",", "57", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "3", ",", "15", ",", "18", ",", "21", ",", "33", ",", "36", ",", "39", ",", "51", ",", "54", ",", "57", ",", "69"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "6", ",", "10", ",", "24", ",", "28", ",", "30", ",", "34", ",", "48", ",", "52", ",", "54", ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "6", ",", "18", ",", "24", ",", "28", ",", "30", ",", "42", ",", "48", ",", "52", ",", "54", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "10", ",", "14", ",", "24", ",", "28", ",", "34", ",", "38", ",", "48", ",", "52", ",", "58", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "10", ",", "22", ",", "24", ",", "28", ",", "34", ",", "46", ",", "48", ",", "52", ",", "58", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "14", ",", "18", ",", "24", ",", "28", ",", "38", ",", "42", ",", "48", ",", "52", ",", "62", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "18", ",", "22", ",", "24", ",", "28", ",", "42", ",", "46", ",", "48", ",", "52", ",", "66", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "10", ",", "12", ",", "24", ",", "30", ",", "34", ",", "36", ",", "48", ",", "54", ",", "58", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "10", ",", "20", ",", "24", ",", "30", ",", "34", ",", "44", ",", "48", ",", "54", ",", "58", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "18", ",", "24", ",", "30", ",", "36", ",", "42", ",", "48", ",", "54", ",", "60", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "18", ",", "20", ",", "24", ",", "30", ",", "42", ",", "44", ",", "48", ",", "54", ",", "66", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "12", ",", "14", ",", "24", ",", "34", ",", "36", ",", "38", ",", "48", ",", "58", ",", "60", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "12", ",", "22", ",", "24", ",", "34", ",", "36", ",", "46", ",", "48", ",", "58", ",", "60", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "14", ",", "20", ",", "24", ",", "34", ",", "38", ",", "44", ",", "48", ",", "58", ",", "62", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "20", ",", "22", ",", "24", ",", "34", ",", "44", ",", "46", ",", "48", ",", "58", ",", "68", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "14", ",", "18", ",", "24", ",", "36", ",", "38", ",", "42", ",", "48", ",", "60", ",", "62", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "15", ",", "18", ",", "30", ",", "33", ",", "36", ",", "48", ",", "51", ",", "54", ",", "66", ",", "69"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "18", ",", "22", ",", "24", ",", "36", ",", "42", ",", "46", ",", "48", ",", "60", ",", "66", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "18", ",", "20", ",", "24", ",", "38", ",", "42", ",", "44", ",", "48", ",", "62", ",", "66", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "20", ",", "22", ",", "24", ",", "42", ",", "44", ",", "46", ",", "48", ",", "66", ",", "68", ",", "70"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.43366552903125*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`h, $CellContext`p, $CellContext`k, $CellContext`j, \ $CellContext`m}, StandardForm], ImageSizeCache->{128.75, {2., 8.}}]], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.433665529046875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "48", ",", "50", ",", "52", ",", "54", ",", "96", ",", "98", ",", "100", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "14", ",", "48", ",", "50", ",", "52", ",", "62", ",", "96", ",", "98", ",", "100", ",", "110"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "22", ",", "48", ",", "50", ",", "52", ",", "70", ",", "96", ",", "98", ",", "100", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "30", ",", "48", ",", "50", ",", "52", ",", "78", ",", "96", ",", "98", ",", "100", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "38", ",", "48", ",", "50", ",", "52", ",", "86", ",", "96", ",", "98", ",", "100", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "46", ",", "48", ",", "50", ",", "52", ",", "94", ",", "96", ",", "98", ",", "100", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "6", ",", "12", ",", "48", ",", "50", ",", "54", ",", "60", ",", "96", ",", "98", ",", "102", ",", "108"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "6", ",", "20", ",", "48", ",", "50", ",", "54", ",", "68", ",", "96", ",", "98", ",", "102", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "6", ",", "28", ",", "48", ",", "50", ",", "54", ",", "76", ",", "96", ",", "98", ",", "102", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "6", ",", "36", ",", "48", ",", "50", ",", "54", ",", "84", ",", "96", ",", "98", ",", "102", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "6", ",", "44", ",", "48", ",", "50", ",", "54", ",", "92", ",", "96", ",", "98", ",", "102", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "12", ",", "14", ",", "48", ",", "50", ",", "60", ",", "62", ",", "96", ",", "98", ",", "108", ",", "110"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "12", ",", "22", ",", "48", ",", "50", ",", "60", ",", "70", ",", "96", ",", "98", ",", "108", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "12", ",", "30", ",", "48", ",", "50", ",", "60", ",", "78", ",", "96", ",", "98", ",", "108", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "12", ",", "38", ",", "48", ",", "50", ",", "60", ",", "86", ",", "96", ",", "98", ",", "108", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "12", ",", "46", ",", "48", ",", "50", ",", "60", ",", "94", ",", "96", ",", "98", ",", "108", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "14", ",", "20", ",", "48", ",", "50", ",", "62", ",", "68", ",", "96", ",", "98", ",", "110", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "14", ",", "28", ",", "48", ",", "50", ",", "62", ",", "76", ",", "96", ",", "98", ",", "110", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "14", ",", "36", ",", "48", ",", "50", ",", "62", ",", "84", ",", "96", ",", "98", ",", "110", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "14", ",", "44", ",", "48", ",", "50", ",", "62", ",", "92", ",", "96", ",", "98", ",", "110", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "20", ",", "22", ",", "48", ",", "50", ",", "68", ",", "70", ",", "96", ",", "98", ",", "116", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "20", ",", "30", ",", "48", ",", "50", ",", "68", ",", "78", ",", "96", ",", "98", ",", "116", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "20", ",", "38", ",", "48", ",", "50", ",", "68", ",", "86", ",", "96", ",", "98", ",", "116", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "20", ",", "46", ",", "48", ",", "50", ",", "68", ",", "94", ",", "96", ",", "98", ",", "116", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "22", ",", "28", ",", "48", ",", "50", ",", "70", ",", "76", ",", "96", ",", "98", ",", "118", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "22", ",", "36", ",", "48", ",", "50", ",", "70", ",", "84", ",", "96", ",", "98", ",", "118", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "22", ",", "44", ",", "48", ",", "50", ",", "70", ",", "92", ",", "96", ",", "98", ",", "118", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "28", ",", "30", ",", "48", ",", "50", ",", "76", ",", "78", ",", "96", ",", "98", ",", "124", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "28", ",", "38", ",", "48", ",", "50", ",", "76", ",", "86", ",", "96", ",", "98", ",", "124", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "28", ",", "46", ",", "48", ",", "50", ",", "76", ",", "94", ",", "96", ",", "98", ",", "124", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "30", ",", "36", ",", "48", ",", "50", ",", "78", ",", "84", ",", "96", ",", "98", ",", "126", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "30", ",", "44", ",", "48", ",", "50", ",", "78", ",", "92", ",", "96", ",", "98", ",", "126", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "36", ",", "38", ",", "48", ",", "50", ",", "84", ",", "86", ",", "96", ",", "98", ",", "132", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "36", ",", "46", ",", "48", ",", "50", ",", "84", ",", "94", ",", "96", ",", "98", ",", "132", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "38", ",", "44", ",", "48", ",", "50", ",", "86", ",", "92", ",", "96", ",", "98", ",", "134", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "44", ",", "46", ",", "48", ",", "50", ",", "92", ",", "94", ",", "96", ",", "98", ",", "140", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "6", ",", "10", ",", "48", ",", "52", ",", "54", ",", "58", ",", "96", ",", "100", ",", "102", ",", "106"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "6", ",", "18", ",", "48", ",", "52", ",", "54", ",", "66", ",", "96", ",", "100", ",", "102", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "6", ",", "26", ",", "48", ",", "52", ",", "54", ",", "74", ",", "96", ",", "100", ",", "102", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "6", ",", "34", ",", "48", ",", "52", ",", "54", ",", "82", ",", "96", ",", "100", ",", "102", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "6", ",", "42", ",", "48", ",", "52", ",", "54", ",", "90", ",", "96", ",", "100", ",", "102", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "10", ",", "14", ",", "48", ",", "52", ",", "58", ",", "62", ",", "96", ",", "100", ",", "106", ",", "110"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "10", ",", "22", ",", "48", ",", "52", ",", "58", ",", "70", ",", "96", ",", "100", ",", "106", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "10", ",", "30", ",", "48", ",", "52", ",", "58", ",", "78", ",", "96", ",", "100", ",", "106", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "10", ",", "38", ",", "48", ",", "52", ",", "58", ",", "86", ",", "96", ",", "100", ",", "106", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "10", ",", "46", ",", "48", ",", "52", ",", "58", ",", "94", ",", "96", ",", "100", ",", "106", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "14", ",", "18", ",", "48", ",", "52", ",", "62", ",", "66", ",", "96", ",", "100", ",", "110", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "14", ",", "26", ",", "48", ",", "52", ",", "62", ",", "74", ",", "96", ",", "100", ",", "110", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "14", ",", "34", ",", "48", ",", "52", ",", "62", ",", "82", ",", "96", ",", "100", ",", "110", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "14", ",", "42", ",", "48", ",", "52", ",", "62", ",", "90", ",", "96", ",", "100", ",", "110", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "18", ",", "22", ",", "48", ",", "52", ",", "66", ",", "70", ",", "96", ",", "100", ",", "114", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "18", ",", "30", ",", "48", ",", "52", ",", "66", ",", "78", ",", "96", ",", "100", ",", "114", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "18", ",", "38", ",", "48", ",", "52", ",", "66", ",", "86", ",", "96", ",", "100", ",", "114", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "18", ",", "46", ",", "48", ",", "52", ",", "66", ",", "94", ",", "96", ",", "100", ",", "114", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "22", ",", "26", ",", "48", ",", "52", ",", "70", ",", "74", ",", "96", ",", "100", ",", "118", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "22", ",", "34", ",", "48", ",", "52", ",", "70", ",", "82", ",", "96", ",", "100", ",", "118", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "22", ",", "42", ",", "48", ",", "52", ",", "70", ",", "90", ",", "96", ",", "100", ",", "118", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "26", ",", "30", ",", "48", ",", "52", ",", "74", ",", "78", ",", "96", ",", "100", ",", "122", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "26", ",", "38", ",", "48", ",", "52", ",", "74", ",", "86", ",", "96", ",", "100", ",", "122", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "26", ",", "46", ",", "48", ",", "52", ",", "74", ",", "94", ",", "96", ",", "100", ",", "122", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "30", ",", "34", ",", "48", ",", "52", ",", "78", ",", "82", ",", "96", ",", "100", ",", "126", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "30", ",", "42", ",", "48", ",", "52", ",", "78", ",", "90", ",", "96", ",", "100", ",", "126", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "34", ",", "38", ",", "48", ",", "52", ",", "82", ",", "86", ",", "96", ",", "100", ",", "130", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "34", ",", "46", ",", "48", ",", "52", ",", "82", ",", "94", ",", "96", ",", "100", ",", "130", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "38", ",", "42", ",", "48", ",", "52", ",", "86", ",", "90", ",", "96", ",", "100", ",", "134", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "42", ",", "46", ",", "48", ",", "52", ",", "90", ",", "94", ",", "96", ",", "100", ",", "138", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "10", ",", "12", ",", "48", ",", "54", ",", "58", ",", "60", ",", "96", ",", "102", ",", "106", ",", "108"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "10", ",", "20", ",", "48", ",", "54", ",", "58", ",", "68", ",", "96", ",", "102", ",", "106", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "10", ",", "28", ",", "48", ",", "54", ",", "58", ",", "76", ",", "96", ",", "102", ",", "106", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "10", ",", "36", ",", "48", ",", "54", ",", "58", ",", "84", ",", "96", ",", "102", ",", "106", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "10", ",", "44", ",", "48", ",", "54", ",", "58", ",", "92", ",", "96", ",", "102", ",", "106", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "18", ",", "48", ",", "54", ",", "60", ",", "66", ",", "96", ",", "102", ",", "108", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "26", ",", "48", ",", "54", ",", "60", ",", "74", ",", "96", ",", "102", ",", "108", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "34", ",", "48", ",", "54", ",", "60", ",", "82", ",", "96", ",", "102", ",", "108", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "42", ",", "48", ",", "54", ",", "60", ",", "90", ",", "96", ",", "102", ",", "108", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "18", ",", "20", ",", "48", ",", "54", ",", "66", ",", "68", ",", "96", ",", "102", ",", "114", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "18", ",", "28", ",", "48", ",", "54", ",", "66", ",", "76", ",", "96", ",", "102", ",", "114", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "18", ",", "36", ",", "48", ",", "54", ",", "66", ",", "84", ",", "96", ",", "102", ",", "114", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "18", ",", "44", ",", "48", ",", "54", ",", "66", ",", "92", ",", "96", ",", "102", ",", "114", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "20", ",", "26", ",", "48", ",", "54", ",", "68", ",", "74", ",", "96", ",", "102", ",", "116", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "20", ",", "34", ",", "48", ",", "54", ",", "68", ",", "82", ",", "96", ",", "102", ",", "116", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "20", ",", "42", ",", "48", ",", "54", ",", "68", ",", "90", ",", "96", ",", "102", ",", "116", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "26", ",", "28", ",", "48", ",", "54", ",", "74", ",", "76", ",", "96", ",", "102", ",", "122", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "26", ",", "36", ",", "48", ",", "54", ",", "74", ",", "84", ",", "96", ",", "102", ",", "122", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "26", ",", "44", ",", "48", ",", "54", ",", "74", ",", "92", ",", "96", ",", "102", ",", "122", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "28", ",", "34", ",", "48", ",", "54", ",", "76", ",", "82", ",", "96", ",", "102", ",", "124", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "28", ",", "42", ",", "48", ",", "54", ",", "76", ",", "90", ",", "96", ",", "102", ",", "124", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "34", ",", "36", ",", "48", ",", "54", ",", "82", ",", "84", ",", "96", ",", "102", ",", "130", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "34", ",", "44", ",", "48", ",", "54", ",", "82", ",", "92", ",", "96", ",", "102", ",", "130", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "36", ",", "42", ",", "48", ",", "54", ",", "84", ",", "90", ",", "96", ",", "102", ",", "132", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "42", ",", "44", ",", "48", ",", "54", ",", "90", ",", "92", ",", "96", ",", "102", ",", "138", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "12", ",", "14", ",", "48", ",", "58", ",", "60", ",", "62", ",", "96", ",", "106", ",", "108", ",", "110"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "12", ",", "22", ",", "48", ",", "58", ",", "60", ",", "70", ",", "96", ",", "106", ",", "108", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "12", ",", "30", ",", "48", ",", "58", ",", "60", ",", "78", ",", "96", ",", "106", ",", "108", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "12", ",", "38", ",", "48", ",", "58", ",", "60", ",", "86", ",", "96", ",", "106", ",", "108", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "12", ",", "46", ",", "48", ",", "58", ",", "60", ",", "94", ",", "96", ",", "106", ",", "108", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "14", ",", "20", ",", "48", ",", "58", ",", "62", ",", "68", ",", "96", ",", "106", ",", "110", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "14", ",", "28", ",", "48", ",", "58", ",", "62", ",", "76", ",", "96", ",", "106", ",", "110", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "14", ",", "36", ",", "48", ",", "58", ",", "62", ",", "84", ",", "96", ",", "106", ",", "110", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "14", ",", "44", ",", "48", ",", "58", ",", "62", ",", "92", ",", "96", ",", "106", ",", "110", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "20", ",", "22", ",", "48", ",", "58", ",", "68", ",", "70", ",", "96", ",", "106", ",", "116", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "20", ",", "30", ",", "48", ",", "58", ",", "68", ",", "78", ",", "96", ",", "106", ",", "116", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "20", ",", "38", ",", "48", ",", "58", ",", "68", ",", "86", ",", "96", ",", "106", ",", "116", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "20", ",", "46", ",", "48", ",", "58", ",", "68", ",", "94", ",", "96", ",", "106", ",", "116", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "22", ",", "28", ",", "48", ",", "58", ",", "70", ",", "76", ",", "96", ",", "106", ",", "118", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "22", ",", "36", ",", "48", ",", "58", ",", "70", ",", "84", ",", "96", ",", "106", ",", "118", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "22", ",", "44", ",", "48", ",", "58", ",", "70", ",", "92", ",", "96", ",", "106", ",", "118", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "28", ",", "30", ",", "48", ",", "58", ",", "76", ",", "78", ",", "96", ",", "106", ",", "124", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "28", ",", "38", ",", "48", ",", "58", ",", "76", ",", "86", ",", "96", ",", "106", ",", "124", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "28", ",", "46", ",", "48", ",", "58", ",", "76", ",", "94", ",", "96", ",", "106", ",", "124", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "30", ",", "36", ",", "48", ",", "58", ",", "78", ",", "84", ",", "96", ",", "106", ",", "126", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "30", ",", "44", ",", "48", ",", "58", ",", "78", ",", "92", ",", "96", ",", "106", ",", "126", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "36", ",", "38", ",", "48", ",", "58", ",", "84", ",", "86", ",", "96", ",", "106", ",", "132", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "36", ",", "46", ",", "48", ",", "58", ",", "84", ",", "94", ",", "96", ",", "106", ",", "132", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "38", ",", "44", ",", "48", ",", "58", ",", "86", ",", "92", ",", "96", ",", "106", ",", "134", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "10", ",", "44", ",", "46", ",", "48", ",", "58", ",", "92", ",", "94", ",", "96", ",", "106", ",", "140", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "14", ",", "18", ",", "48", ",", "60", ",", "62", ",", "66", ",", "96", ",", "108", ",", "110", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "14", ",", "26", ",", "48", ",", "60", ",", "62", ",", "74", ",", "96", ",", "108", ",", "110", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "14", ",", "34", ",", "48", ",", "60", ",", "62", ",", "82", ",", "96", ",", "108", ",", "110", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "14", ",", "42", ",", "48", ",", "60", ",", "62", ",", "90", ",", "96", ",", "108", ",", "110", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "18", ",", "22", ",", "48", ",", "60", ",", "66", ",", "70", ",", "96", ",", "108", ",", "114", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "18", ",", "30", ",", "48", ",", "60", ",", "66", ",", "78", ",", "96", ",", "108", ",", "114", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "18", ",", "38", ",", "48", ",", "60", ",", "66", ",", "86", ",", "96", ",", "108", ",", "114", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "18", ",", "46", ",", "48", ",", "60", ",", "66", ",", "94", ",", "96", ",", "108", ",", "114", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "22", ",", "26", ",", "48", ",", "60", ",", "70", ",", "74", ",", "96", ",", "108", ",", "118", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "22", ",", "34", ",", "48", ",", "60", ",", "70", ",", "82", ",", "96", ",", "108", ",", "118", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "22", ",", "42", ",", "48", ",", "60", ",", "70", ",", "90", ",", "96", ",", "108", ",", "118", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "26", ",", "30", ",", "48", ",", "60", ",", "74", ",", "78", ",", "96", ",", "108", ",", "122", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "26", ",", "38", ",", "48", ",", "60", ",", "74", ",", "86", ",", "96", ",", "108", ",", "122", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "26", ",", "46", ",", "48", ",", "60", ",", "74", ",", "94", ",", "96", ",", "108", ",", "122", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "30", ",", "34", ",", "48", ",", "60", ",", "78", ",", "82", ",", "96", ",", "108", ",", "126", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "30", ",", "42", ",", "48", ",", "60", ",", "78", ",", "90", ",", "96", ",", "108", ",", "126", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "34", ",", "38", ",", "48", ",", "60", ",", "82", ",", "86", ",", "96", ",", "108", ",", "130", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "34", ",", "46", ",", "48", ",", "60", ",", "82", ",", "94", ",", "96", ",", "108", ",", "130", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "38", ",", "42", ",", "48", ",", "60", ",", "86", ",", "90", ",", "96", ",", "108", ",", "134", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "12", ",", "42", ",", "46", ",", "48", ",", "60", ",", "90", ",", "94", ",", "96", ",", "108", ",", "138", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "18", ",", "20", ",", "48", ",", "62", ",", "66", ",", "68", ",", "96", ",", "110", ",", "114", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "18", ",", "28", ",", "48", ",", "62", ",", "66", ",", "76", ",", "96", ",", "110", ",", "114", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "18", ",", "36", ",", "48", ",", "62", ",", "66", ",", "84", ",", "96", ",", "110", ",", "114", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "18", ",", "44", ",", "48", ",", "62", ",", "66", ",", "92", ",", "96", ",", "110", ",", "114", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "20", ",", "26", ",", "48", ",", "62", ",", "68", ",", "74", ",", "96", ",", "110", ",", "116", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "20", ",", "34", ",", "48", ",", "62", ",", "68", ",", "82", ",", "96", ",", "110", ",", "116", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "20", ",", "42", ",", "48", ",", "62", ",", "68", ",", "90", ",", "96", ",", "110", ",", "116", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "26", ",", "28", ",", "48", ",", "62", ",", "74", ",", "76", ",", "96", ",", "110", ",", "122", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "26", ",", "36", ",", "48", ",", "62", ",", "74", ",", "84", ",", "96", ",", "110", ",", "122", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "26", ",", "44", ",", "48", ",", "62", ",", "74", ",", "92", ",", "96", ",", "110", ",", "122", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "28", ",", "34", ",", "48", ",", "62", ",", "76", ",", "82", ",", "96", ",", "110", ",", "124", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "28", ",", "42", ",", "48", ",", "62", ",", "76", ",", "90", ",", "96", ",", "110", ",", "124", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "34", ",", "36", ",", "48", ",", "62", ",", "82", ",", "84", ",", "96", ",", "110", ",", "130", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "34", ",", "44", ",", "48", ",", "62", ",", "82", ",", "92", ",", "96", ",", "110", ",", "130", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "36", ",", "42", ",", "48", ",", "62", ",", "84", ",", "90", ",", "96", ",", "110", ",", "132", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "14", ",", "42", ",", "44", ",", "48", ",", "62", ",", "90", ",", "92", ",", "96", ",", "110", ",", "138", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "20", ",", "22", ",", "48", ",", "66", ",", "68", ",", "70", ",", "96", ",", "114", ",", "116", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "20", ",", "30", ",", "48", ",", "66", ",", "68", ",", "78", ",", "96", ",", "114", ",", "116", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "20", ",", "38", ",", "48", ",", "66", ",", "68", ",", "86", ",", "96", ",", "114", ",", "116", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "20", ",", "46", ",", "48", ",", "66", ",", "68", ",", "94", ",", "96", ",", "114", ",", "116", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "22", ",", "28", ",", "48", ",", "66", ",", "70", ",", "76", ",", "96", ",", "114", ",", "118", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "22", ",", "36", ",", "48", ",", "66", ",", "70", ",", "84", ",", "96", ",", "114", ",", "118", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "22", ",", "44", ",", "48", ",", "66", ",", "70", ",", "92", ",", "96", ",", "114", ",", "118", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "28", ",", "30", ",", "48", ",", "66", ",", "76", ",", "78", ",", "96", ",", "114", ",", "124", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "28", ",", "38", ",", "48", ",", "66", ",", "76", ",", "86", ",", "96", ",", "114", ",", "124", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "28", ",", "46", ",", "48", ",", "66", ",", "76", ",", "94", ",", "96", ",", "114", ",", "124", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "30", ",", "36", ",", "48", ",", "66", ",", "78", ",", "84", ",", "96", ",", "114", ",", "126", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "30", ",", "44", ",", "48", ",", "66", ",", "78", ",", "92", ",", "96", ",", "114", ",", "126", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "36", ",", "38", ",", "48", ",", "66", ",", "84", ",", "86", ",", "96", ",", "114", ",", "132", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "36", ",", "46", ",", "48", ",", "66", ",", "84", ",", "94", ",", "96", ",", "114", ",", "132", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "38", ",", "44", ",", "48", ",", "66", ",", "86", ",", "92", ",", "96", ",", "114", ",", "134", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "18", ",", "44", ",", "46", ",", "48", ",", "66", ",", "92", ",", "94", ",", "96", ",", "114", ",", "140", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "22", ",", "26", ",", "48", ",", "68", ",", "70", ",", "74", ",", "96", ",", "116", ",", "118", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "22", ",", "34", ",", "48", ",", "68", ",", "70", ",", "82", ",", "96", ",", "116", ",", "118", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "22", ",", "42", ",", "48", ",", "68", ",", "70", ",", "90", ",", "96", ",", "116", ",", "118", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "26", ",", "30", ",", "48", ",", "68", ",", "74", ",", "78", ",", "96", ",", "116", ",", "122", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "26", ",", "38", ",", "48", ",", "68", ",", "74", ",", "86", ",", "96", ",", "116", ",", "122", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "26", ",", "46", ",", "48", ",", "68", ",", "74", ",", "94", ",", "96", ",", "116", ",", "122", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "30", ",", "34", ",", "48", ",", "68", ",", "78", ",", "82", ",", "96", ",", "116", ",", "126", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "30", ",", "42", ",", "48", ",", "68", ",", "78", ",", "90", ",", "96", ",", "116", ",", "126", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "34", ",", "38", ",", "48", ",", "68", ",", "82", ",", "86", ",", "96", ",", "116", ",", "130", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "34", ",", "46", ",", "48", ",", "68", ",", "82", ",", "94", ",", "96", ",", "116", ",", "130", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "38", ",", "42", ",", "48", ",", "68", ",", "86", ",", "90", ",", "96", ",", "116", ",", "134", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "20", ",", "42", ",", "46", ",", "48", ",", "68", ",", "90", ",", "94", ",", "96", ",", "116", ",", "138", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "26", ",", "28", ",", "48", ",", "70", ",", "74", ",", "76", ",", "96", ",", "118", ",", "122", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "26", ",", "36", ",", "48", ",", "70", ",", "74", ",", "84", ",", "96", ",", "118", ",", "122", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "26", ",", "44", ",", "48", ",", "70", ",", "74", ",", "92", ",", "96", ",", "118", ",", "122", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "28", ",", "34", ",", "48", ",", "70", ",", "76", ",", "82", ",", "96", ",", "118", ",", "124", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "28", ",", "42", ",", "48", ",", "70", ",", "76", ",", "90", ",", "96", ",", "118", ",", "124", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "34", ",", "36", ",", "48", ",", "70", ",", "82", ",", "84", ",", "96", ",", "118", ",", "130", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "34", ",", "44", ",", "48", ",", "70", ",", "82", ",", "92", ",", "96", ",", "118", ",", "130", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "36", ",", "42", ",", "48", ",", "70", ",", "84", ",", "90", ",", "96", ",", "118", ",", "132", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "22", ",", "42", ",", "44", ",", "48", ",", "70", ",", "90", ",", "92", ",", "96", ",", "118", ",", "138", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "28", ",", "30", ",", "48", ",", "74", ",", "76", ",", "78", ",", "96", ",", "122", ",", "124", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "28", ",", "38", ",", "48", ",", "74", ",", "76", ",", "86", ",", "96", ",", "122", ",", "124", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "28", ",", "46", ",", "48", ",", "74", ",", "76", ",", "94", ",", "96", ",", "122", ",", "124", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "30", ",", "36", ",", "48", ",", "74", ",", "78", ",", "84", ",", "96", ",", "122", ",", "126", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "30", ",", "44", ",", "48", ",", "74", ",", "78", ",", "92", ",", "96", ",", "122", ",", "126", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "36", ",", "38", ",", "48", ",", "74", ",", "84", ",", "86", ",", "96", ",", "122", ",", "132", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "36", ",", "46", ",", "48", ",", "74", ",", "84", ",", "94", ",", "96", ",", "122", ",", "132", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "38", ",", "44", ",", "48", ",", "74", ",", "86", ",", "92", ",", "96", ",", "122", ",", "134", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "26", ",", "44", ",", "46", ",", "48", ",", "74", ",", "92", ",", "94", ",", "96", ",", "122", ",", "140", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "28", ",", "30", ",", "34", ",", "48", ",", "76", ",", "78", ",", "82", ",", "96", ",", "124", ",", "126", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "28", ",", "30", ",", "42", ",", "48", ",", "76", ",", "78", ",", "90", ",", "96", ",", "124", ",", "126", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "28", ",", "34", ",", "38", ",", "48", ",", "76", ",", "82", ",", "86", ",", "96", ",", "124", ",", "130", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "28", ",", "34", ",", "46", ",", "48", ",", "76", ",", "82", ",", "94", ",", "96", ",", "124", ",", "130", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "28", ",", "38", ",", "42", ",", "48", ",", "76", ",", "86", ",", "90", ",", "96", ",", "124", ",", "134", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "28", ",", "42", ",", "46", ",", "48", ",", "76", ",", "90", ",", "94", ",", "96", ",", "124", ",", "138", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "30", ",", "34", ",", "36", ",", "48", ",", "78", ",", "82", ",", "84", ",", "96", ",", "126", ",", "130", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "30", ",", "34", ",", "44", ",", "48", ",", "78", ",", "82", ",", "92", ",", "96", ",", "126", ",", "130", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "30", ",", "36", ",", "42", ",", "48", ",", "78", ",", "84", ",", "90", ",", "96", ",", "126", ",", "132", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "30", ",", "42", ",", "44", ",", "48", ",", "78", ",", "90", ",", "92", ",", "96", ",", "126", ",", "138", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "34", ",", "36", ",", "38", ",", "48", ",", "82", ",", "84", ",", "86", ",", "96", ",", "130", ",", "132", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "34", ",", "36", ",", "46", ",", "48", ",", "82", ",", "84", ",", "94", ",", "96", ",", "130", ",", "132", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "34", ",", "38", ",", "44", ",", "48", ",", "82", ",", "86", ",", "92", ",", "96", ",", "130", ",", "134", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "34", ",", "44", ",", "46", ",", "48", ",", "82", ",", "92", ",", "94", ",", "96", ",", "130", ",", "140", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "36", ",", "38", ",", "42", ",", "48", ",", "84", ",", "86", ",", "90", ",", "96", ",", "132", ",", "134", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "36", ",", "42", ",", "46", ",", "48", ",", "84", ",", "90", ",", "94", ",", "96", ",", "132", ",", "138", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "38", ",", "42", ",", "44", ",", "48", ",", "86", ",", "90", ",", "92", ",", "96", ",", "134", ",", "138", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "42", ",", "44", ",", "46", ",", "48", ",", "90", ",", "92", ",", "94", ",", "96", ",", "138", ",", "140", ",", "142"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.433665541453125*^9}], Cell[BoxData["216"], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.4336655415*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.433665541515625*^9}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.432202349203125*^9, 3.432203715234375*^9, 3.43220387278125*^9, 3.43220414159375*^9, 3.433665541515625*^9}] }, Open ]] }, WindowSize->{916, 567}, WindowMargins->{{Automatic, 137}, {Automatic, 26}}, 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, 69685, 1714, 5932, "Input"], Cell[70278, 1739, 248, 5, 30, "Output"], Cell[70529, 1746, 307, 6, 30, "Output"], Cell[70839, 1754, 160, 2, 30, "Output"], Cell[71002, 1758, 5586, 125, 297, "Output"], Cell[76591, 1885, 316, 6, 30, "Output"], Cell[76910, 1893, 39787, 869, 2064, "Output"], Cell[116700, 2764, 156, 2, 30, "Output"], Cell[116859, 2768, 159, 2, 30, "Output"], Cell[117021, 2772, 176, 3, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)