(* 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[     29432,        794]
NotebookOptionsPosition[     28859,        772]
NotebookOutlinePosition[     29201,        787]
CellTagsIndexPosition[     29158,        784]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "3", ",", "4", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "16"}], "}"}]}], "}"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "x", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Expand", "[", 
    RowBox[{
     RowBox[{"Cyclotomic", "[", 
      RowBox[{"3", ",", 
       RowBox[{"x", "^", 
        RowBox[{"(", "16", ")"}]}]}], "]"}], 
     RowBox[{"Cyclotomic", "[", 
      RowBox[{"2", ",", 
       RowBox[{"x", "^", "9"}]}], "]"}], 
     RowBox[{"Cyclotomic", "[", 
      RowBox[{"4", ",", 
       RowBox[{"x", "^", "9"}]}], "]"}], 
     RowBox[{"Cyclotomic", "[", 
      RowBox[{"8", ",", 
       RowBox[{"x", "^", "9"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "3", ",", "4", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "16"}], "}"}]}], "}"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Dynamic", "[", 
    RowBox[{"{", 
     RowBox[{"i", ",", "g", ",", " ", "mark"}], "}"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Clear", "[", 
     RowBox[{
     "n", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", 
      ",", "T", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"B", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "9", ",", "16", ",", "18", ",", "25", ",", "27", ",", "32", 
       ",", "34", ",", "36", ",", "41", ",", "43", ",", "45", ",", "50", ",", 
       "52", ",", "54", ",", "59", ",", "61", ",", "63", ",", "68", ",", "70",
        ",", "77", ",", "79", ",", "86", ",", "95"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[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[{"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[{"Length", "[", "K", "]"}], "]"}], "]"}], "\[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]"}]}]], "Input",
 CellChangeTimes->{{3.432224494984375*^9, 3.43222451246875*^9}, {
   3.433654393046875*^9, 3.433654399265625*^9}, 3.433655236234375*^9}],

Cell[BoxData[
 RowBox[{"1", "+", 
  SuperscriptBox["x", "9"], "+", 
  SuperscriptBox["x", "16"], "+", 
  SuperscriptBox["x", "18"], "+", 
  SuperscriptBox["x", "25"], "+", 
  SuperscriptBox["x", "27"], "+", 
  SuperscriptBox["x", "32"], "+", 
  SuperscriptBox["x", "34"], "+", 
  SuperscriptBox["x", "36"], "+", 
  SuperscriptBox["x", "41"], "+", 
  SuperscriptBox["x", "43"], "+", 
  SuperscriptBox["x", "45"], "+", 
  SuperscriptBox["x", "50"], "+", 
  SuperscriptBox["x", "52"], "+", 
  SuperscriptBox["x", "54"], "+", 
  SuperscriptBox["x", "59"], "+", 
  SuperscriptBox["x", "61"], "+", 
  SuperscriptBox["x", "63"], "+", 
  SuperscriptBox["x", "68"], "+", 
  SuperscriptBox["x", "70"], "+", 
  SuperscriptBox["x", "77"], "+", 
  SuperscriptBox["x", "79"], "+", 
  SuperscriptBox["x", "86"], "+", 
  SuperscriptBox["x", "95"]}]], "Output",
 CellChangeTimes->{3.432224554890625*^9}],

Cell[BoxData[
 DynamicBox[
  ToBoxes[{$CellContext`i, $CellContext`g, $CellContext`mark}, StandardForm],
  ImageSizeCache->{216.875, {2., 8.}}]], "Output",
 CellChangeTimes->{3.43222455490625*^9}],

Cell[BoxData["66"], "Output",
 CellChangeTimes->{3.4322245708125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "6", ",", "72", ",", "75", ",", "78"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "15", ",", "72", ",", "75", ",", "87"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "24", ",", "72", ",", "75", ",", "96"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "33", ",", "72", ",", "75", ",", "105"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "42", ",", "72", ",", "75", ",", "114"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "51", ",", "72", ",", "75", ",", "123"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "60", ",", "72", ",", "75", ",", "132"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "69", ",", "72", ",", "75", ",", "141"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "12", ",", "72", ",", "78", ",", "84"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "21", ",", "72", ",", "78", ",", "93"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "30", ",", "72", ",", "78", ",", "102"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "39", ",", "72", ",", "78", ",", "111"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "48", ",", "72", ",", "78", ",", "120"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "57", ",", "72", ",", "78", ",", "129"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "66", ",", "72", ",", "78", ",", "138"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "48", ",", "56", ",", "96", ",", "104"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "15", ",", "72", ",", "84", ",", "87"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "24", ",", "72", ",", "84", ",", "96"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "33", ",", "72", ",", "84", ",", "105"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "42", ",", "72", ",", "84", ",", "114"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "51", ",", "72", ",", "84", ",", "123"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "60", ",", "72", ",", "84", ",", "132"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "69", ",", "72", ",", "84", ",", "141"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "15", ",", "21", ",", "72", ",", "87", ",", "93"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "15", ",", "30", ",", "72", ",", "87", ",", "102"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "15", ",", "39", ",", "72", ",", "87", ",", "111"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "15", ",", "48", ",", "72", ",", "87", ",", "120"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "15", ",", "57", ",", "72", ",", "87", ",", "129"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "15", ",", "66", ",", "72", ",", "87", ",", "138"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "21", ",", "24", ",", "72", ",", "93", ",", "96"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "21", ",", "33", ",", "72", ",", "93", ",", "105"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "21", ",", "42", ",", "72", ",", "93", ",", "114"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "21", ",", "51", ",", "72", ",", "93", ",", "123"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "21", ",", "60", ",", "72", ",", "93", ",", "132"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "21", ",", "69", ",", "72", ",", "93", ",", "141"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "24", ",", "30", ",", "72", ",", "96", ",", "102"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "24", ",", "39", ",", "72", ",", "96", ",", "111"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "24", ",", "48", ",", "72", ",", "96", ",", "120"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "24", ",", "57", ",", "72", ",", "96", ",", "129"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "24", ",", "66", ",", "72", ",", "96", ",", "138"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "30", ",", "33", ",", "72", ",", "102", ",", "105"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "30", ",", "42", ",", "72", ",", "102", ",", "114"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "30", ",", "51", ",", "72", ",", "102", ",", "123"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "30", ",", "60", ",", "72", ",", "102", ",", "132"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "30", ",", "69", ",", "72", ",", "102", ",", "141"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "33", ",", "39", ",", "72", ",", "105", ",", "111"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "33", ",", "48", ",", "72", ",", "105", ",", "120"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "33", ",", "57", ",", "72", ",", "105", ",", "129"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "33", ",", "66", ",", "72", ",", "105", ",", "138"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "39", ",", "42", ",", "72", ",", "111", ",", "114"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "39", ",", "51", ",", "72", ",", "111", ",", "123"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "39", ",", "60", ",", "72", ",", "111", ",", "132"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "39", ",", "69", ",", "72", ",", "111", ",", "141"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "40", ",", "48", ",", "88", ",", "96", ",", "136"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "42", ",", "48", ",", "72", ",", "114", ",", "120"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "42", ",", "57", ",", "72", ",", "114", ",", "129"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "42", ",", "66", ",", "72", ",", "114", ",", "138"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "48", ",", "51", ",", "72", ",", "120", ",", "123"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "48", ",", "60", ",", "72", ",", "120", ",", "132"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "48", ",", "69", ",", "72", ",", "120", ",", "141"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "51", ",", "57", ",", "72", ",", "123", ",", "129"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "51", ",", "66", ",", "72", ",", "123", ",", "138"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "57", ",", "60", ",", "72", ",", "129", ",", "132"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "57", ",", "69", ",", "72", ",", "129", ",", "141"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "60", ",", "66", ",", "72", ",", "132", ",", "138"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "66", ",", "69", ",", "72", ",", "138", ",", "141"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4322245708125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "9", ",", "10", 
   ",", "12", ",", "14", ",", "16", ",", "17", ",", "18", ",", "19", ",", 
   "21", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 
   ",", "30", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", 
   "37", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", 
   ",", "45", ",", "46", ",", "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", ",", "97", ",", "98", 
   ",", "99", ",", "100", ",", "101", ",", "102", ",", "103", ",", "104", ",",
    "106", ",", "107", ",", "108", ",", "109", ",", "110", ",", "111", ",", 
   "113", ",", "115", ",", "116", ",", "117", ",", "118", ",", "119", ",", 
   "120", ",", "122", ",", "124", ",", "125", ",", "126", ",", "127", ",", 
   "129", ",", "131", ",", "133", ",", "134", ",", "135", ",", "136", ",", 
   "138", ",", "140", ",", "142", ",", "143"}], "}"}]], "Output",
 CellChangeTimes->{3.43222457084375*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.432224570859375*^9}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.432224570859375*^9}]
}, Open  ]]
},
WindowSize->{1065, 567},
WindowMargins->{{Automatic, 88}, {Automatic, 59}},
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, 18058, 476, 1372, "Input"],
Cell[18651, 501, 886, 25, 30, "Output"],
Cell[19540, 528, 196, 4, 30, "Output"],
Cell[19739, 534, 69, 1, 30, "Output"],
Cell[19811, 537, 7351, 201, 259, "Output"],
Cell[27165, 740, 1515, 22, 88, "Output"],
Cell[28683, 764, 70, 1, 30, "Output"],
Cell[28756, 767, 87, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)