(* 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[     19507,        588]
NotebookOptionsPosition[     18125,        539]
NotebookOutlinePosition[     18488,        555]
CellTagsIndexPosition[     18445,        552]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "Combinatorica`"}]], "Input",
 CellChangeTimes->{{3.441493284234375*^9, 3.441493299484375*^9}}],

Cell[BoxData[{
 RowBox[{"1.", "\:4fc2\:6578\:7684\:7e3d\:548c", 
  RowBox[{"(", "\:91cd\:8907\:6392\:5217", ")"}], "\:ff0c", 
  RowBox[{"(", 
   RowBox[{"a", ",", "a", ",", "a", ",", "a", ",", "b"}], ")"}], " ", 
  "\:8207", " ", 
  RowBox[{"(", 
   RowBox[{"a", ",", "a", ",", "a", ",", "b", ",", "a"}], ")"}], 
  "\:8996\:70ba\:4e0d\:540c"}], "\[IndentingNewLine]", 
 RowBox[{"2.", "\:6b21\:6578\:6392\:5217\:7684\:985e\:578b\:6578", 
  RowBox[{"(", "\:91cd\:8907\:7d44\:5408", ")"}], "\:ff0c", 
  RowBox[{"(", 
   RowBox[{"a", ",", "a", ",", "a", ",", "a", ",", "b"}], ")"}], "\:8207", 
  RowBox[{"(", 
   RowBox[{"a", ",", "a", ",", "a", ",", "b", ",", "a"}], ")"}], 
  "\:8996\:70ba\:76f8\:540c"}], "\[IndentingNewLine]", 
 RowBox[{"3.", "\:6b21\:6578\:7d44\:5408\:7684\:985e\:578b\:6578\:ff0c", 
  RowBox[{"(", 
   RowBox[{"a", ",", "a", ",", "a", ",", "a", ",", "b"}], ")"}], "\:8207", 
  RowBox[{"(", 
   RowBox[{"a", ",", "a", ",", "a", ",", "b", ",", "a"}], ")"}], 
  "\:8996\:70ba\:76f8\:540c\:ff0c\:4e26\:4e14", 
  RowBox[{"(", 
   RowBox[{"a", ",", "a", ",", "a", ",", "a", ",", "b"}], ")"}], "\:8207", 
  RowBox[{"(", 
   RowBox[{"b", ",", "b", ",", "b", ",", "b", ",", "a"}], ")"}], 
  "\:8996\:70ba\:76f8\:540c"}]}], "Input",
 CellChangeTimes->{{3.441492819171875*^9, 3.44149292690625*^9}, {
  3.441493023765625*^9, 3.441493030765625*^9}, {3.441493076953125*^9, 
  3.44149311290625*^9}, {3.441493182140625*^9, 3.441493203171875*^9}, {
  3.4414934731875*^9, 3.44149351746875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", "1", "+", "1", "+", "1", "+", "1", "+", "1", "+", "1"}], 
   ")"}], "5"]], "Input",
 CellChangeTimes->{{3.4414931273125*^9, 3.441493145984375*^9}}],

Cell[BoxData["16807"], "Output",
 CellChangeTimes->{3.44149314934375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.44149362825*^9, 3.441493666671875*^9}, {
   3.44149372375*^9, 3.44149382075*^9}, {3.441493874875*^9, 
   3.44149393496875*^9}, {3.44149406153125*^9, 3.441494104640625*^9}, {
   3.441494213828125*^9, 3.4414942264375*^9}, {3.441494536875*^9, 
   3.441494548953125*^9}, 3.44149500203125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4414938804375*^9, 3.4414939401875*^9, 3.44149410625*^9, 
  3.4414942289375*^9, 3.4414945175*^9, 3.441494669359375*^9, 
  3.441494786421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.441494144296875*^9, 3.44149414946875*^9}}],

Cell[BoxData["14"], "Output",
 CellChangeTimes->{3.44149415009375*^9, 3.441494551296875*^9, 
  3.441494673984375*^9, 3.441494791015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.441493372328125*^9, 3.4414933771875*^9}}],

Cell[BoxData["66"], "Output",
 CellChangeTimes->{3.44149337825*^9, 3.441494661046875*^9, 
  3.441494778703125*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\:65b0\:89c0\:5ff5", " ", "12"}], " ", "-", " ", 
   RowBox[{"\:6392\:5217", "  ", "p", ".4", " ", "\:4f8b", " ", "3"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"\:5c07", " ", "10", " ", 
  "\:7528\:4e09\:500b\:81ea\:7136\:6578\:4e4b\:548c\:4f86\:8868\:793a\:ff0c\
\:65b9\:6cd5\:6709\:5e7e\:7a2e\:ff1f"}]}], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.44149627290625*^9, 3.4414963595625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"r", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "+", "c"}], ")"}], "7"], "//", 
   "Expand"}]}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "r", "]"}], "\[IndentingNewLine]", 
 RowBox[{"s", "=", 
  RowBox[{"Compositions", "[", 
   RowBox[{"7", ",", "3"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "s", "]"}], "\[IndentingNewLine]", 
 RowBox[{"t", "=", 
  RowBox[{"Union", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Union", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", 
        RowBox[{"s", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "s", "]"}]}], "}"}]}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "t", "]"}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.441492699875*^9, 3.441492730796875*^9}, {
   3.441494358078125*^9, 3.44149436484375*^9}, 3.4414945903125*^9, {
   3.44149469065625*^9, 3.441494691046875*^9}, 3.44149485696875*^9, {
   3.4414948955625*^9, 3.441494947296875*^9}, {3.4414949836875*^9, 
   3.44149504309375*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "7"], "+", 
  RowBox[{"7", " ", 
   SuperscriptBox["a", "6"], " ", "b"}], "+", 
  RowBox[{"21", " ", 
   SuperscriptBox["a", "5"], " ", 
   SuperscriptBox["b", "2"]}], "+", 
  RowBox[{"35", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["b", "3"]}], "+", 
  RowBox[{"35", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "4"]}], "+", 
  RowBox[{"21", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "5"]}], "+", 
  RowBox[{"7", " ", "a", " ", 
   SuperscriptBox["b", "6"]}], "+", 
  SuperscriptBox["b", "7"], "+", 
  RowBox[{"7", " ", 
   SuperscriptBox["a", "6"], " ", "c"}], "+", 
  RowBox[{"42", " ", 
   SuperscriptBox["a", "5"], " ", "b", " ", "c"}], "+", 
  RowBox[{"105", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["b", "2"], " ", "c"}], "+", 
  RowBox[{"140", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "3"], " ", "c"}], "+", 
  RowBox[{"105", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "4"], " ", "c"}], "+", 
  RowBox[{"42", " ", "a", " ", 
   SuperscriptBox["b", "5"], " ", "c"}], "+", 
  RowBox[{"7", " ", 
   SuperscriptBox["b", "6"], " ", "c"}], "+", 
  RowBox[{"21", " ", 
   SuperscriptBox["a", "5"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"105", " ", 
   SuperscriptBox["a", "4"], " ", "b", " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"210", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"210", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"105", " ", "a", " ", 
   SuperscriptBox["b", "4"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"21", " ", 
   SuperscriptBox["b", "5"], " ", 
   SuperscriptBox["c", "2"]}], "+", 
  RowBox[{"35", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"140", " ", 
   SuperscriptBox["a", "3"], " ", "b", " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"210", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"140", " ", "a", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"35", " ", 
   SuperscriptBox["b", "4"], " ", 
   SuperscriptBox["c", "3"]}], "+", 
  RowBox[{"35", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"105", " ", 
   SuperscriptBox["a", "2"], " ", "b", " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"105", " ", "a", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"35", " ", 
   SuperscriptBox["b", "3"], " ", 
   SuperscriptBox["c", "4"]}], "+", 
  RowBox[{"21", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["c", "5"]}], "+", 
  RowBox[{"42", " ", "a", " ", "b", " ", 
   SuperscriptBox["c", "5"]}], "+", 
  RowBox[{"21", " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["c", "5"]}], "+", 
  RowBox[{"7", " ", "a", " ", 
   SuperscriptBox["c", "6"]}], "+", 
  RowBox[{"7", " ", "b", " ", 
   SuperscriptBox["c", "6"]}], "+", 
  SuperscriptBox["c", "7"]}]], "Output",
 CellChangeTimes->{
  3.4414948746875*^9, {3.441494949109375*^9, 3.441494986140625*^9}, {
   3.44149504578125*^9, 3.441495064625*^9}}],

Cell[BoxData["36"], "Output",
 CellChangeTimes->{
  3.4414948746875*^9, {3.441494949109375*^9, 3.441494986140625*^9}, {
   3.44149504578125*^9, 3.441495064640625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "5", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "7", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "3", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4414948746875*^9, {3.441494949109375*^9, 3.441494986140625*^9}, {
   3.44149504578125*^9, 3.441495064640625*^9}}],

Cell[BoxData["36"], "Output",
 CellChangeTimes->{
  3.4414948746875*^9, {3.441494949109375*^9, 3.441494986140625*^9}, {
   3.44149504578125*^9, 3.44149506465625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4414948746875*^9, {3.441494949109375*^9, 3.441494986140625*^9}, {
   3.44149504578125*^9, 3.44149506465625*^9}}],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{
  3.4414948746875*^9, {3.441494949109375*^9, 3.441494986140625*^9}, {
   3.44149504578125*^9, 3.441495064671875*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\:65b0\:89c0\:5ff5", " ", "12"}], " ", "-", " ", 
   RowBox[{"\:6392\:5217", "  ", "p", ".5", " ", "\:7814\:7a76", " ", "3"}]}],
   " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"\:5c07", " ", "20", " ", 
  "\:7528\:4e09\:500b\:81ea\:7136\:6578\:4e4b\:548c\:4f86\:8868\:793a\:ff0c\
\:65b9\:6cd5\:6709\:5e7e\:7a2e\:ff1f"}]}], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.44149627290625*^9, 3.4414963595625*^9}, {
  3.441496414796875*^9, 3.441496455015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"r", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", "c"}], ")"}], "17"], "//", "Expand"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "r", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{"Compositions", "[", 
    RowBox[{"17", ",", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "s", "]"}], "\[IndentingNewLine]", 
 RowBox[{"t", "=", 
  RowBox[{"Union", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Union", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", 
        RowBox[{"s", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "s", "]"}]}], "}"}]}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "t", "]"}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.441492699875*^9, 3.441492730796875*^9}, {
   3.441494358078125*^9, 3.44149436484375*^9}, 3.4414945903125*^9, {
   3.44149469065625*^9, 3.441494691046875*^9}, 3.44149485696875*^9, {
   3.4414948955625*^9, 3.441494947296875*^9}, {3.4414949836875*^9, 
   3.44149504309375*^9}, {3.44149515025*^9, 3.4414951765625*^9}}],

Cell[BoxData["171"], "Output",
 CellChangeTimes->{{3.441495161453125*^9, 3.44149517875*^9}}],

Cell[BoxData["171"], "Output",
 CellChangeTimes->{{3.441495161453125*^9, 3.44149517875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "5", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "7", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "6", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.441495161453125*^9, 3.44149517875*^9}}],

Cell[BoxData["33"], "Output",
 CellChangeTimes->{{3.441495161453125*^9, 3.441495178765625*^9}}]
}, Open  ]]
},
WindowSize->{1016, 666},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (February 7, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 124, 2, 43, "Input"],
Cell[695, 25, 1495, 30, 129, "Input"],
Cell[CellGroupData[{
Cell[2215, 59, 215, 5, 45, "Input"],
Cell[2433, 66, 73, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2543, 72, 337, 5, 43, "Input"],
Cell[2883, 79, 1125, 33, 68, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4045, 117, 124, 2, 43, "Input"],
Cell[4172, 121, 139, 2, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4348, 128, 123, 2, 43, "Input"],
Cell[4474, 132, 114, 2, 42, "Output"]
}, Open  ]],
Cell[4603, 137, 480, 10, 115, "Input"],
Cell[CellGroupData[{
Cell[5108, 151, 1228, 33, 194, "Input"],
Cell[6339, 186, 3375, 100, 154, "Output"],
Cell[9717, 288, 167, 3, 42, "Output"],
Cell[9887, 293, 2675, 77, 168, "Output"],
Cell[12565, 372, 166, 3, 42, "Output"],
Cell[12734, 377, 702, 21, 42, "Output"],
Cell[13439, 400, 166, 3, 42, "Output"]
}, Open  ]],
Cell[13620, 406, 540, 11, 115, "Input"],
Cell[CellGroupData[{
Cell[14185, 421, 1311, 35, 194, "Input"],
Cell[15499, 458, 92, 1, 42, "Output"],
Cell[15594, 461, 92, 1, 42, "Output"],
Cell[15689, 464, 2322, 69, 143, "Output"],
Cell[18014, 535, 95, 1, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)