(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      8862,        218]
NotebookOptionsPosition[      8425,        199]
NotebookOutlinePosition[      8771,        214]
CellTagsIndexPosition[      8728,        211]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"minpow", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxpow", "=", "14"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{"n", ",", "6"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "minpow", ",", "maxpow"}], "}"}]}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"f", ",", 
     RowBox[{"{", "6", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "p1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        SuperscriptBox[
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], 
         RowBox[{"x", "[", 
          RowBox[{"[", "2", "]"}], "]"}]], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", 
        SuperscriptBox[
         RowBox[{"x", "[", 
          RowBox[{"[", "3", "]"}], "]"}], 
         RowBox[{"x", "[", 
          RowBox[{"[", "4", "]"}], "]"}]], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", "5", "]"}], "]"}], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", "6", "]"}], "]"}], ",", 
        SuperscriptBox[
         RowBox[{"x", "[", 
          RowBox[{"[", "5", "]"}], "]"}], 
         RowBox[{"x", "[", 
          RowBox[{"[", "6", "]"}], "]"}]]}], "}"}]}], "]"}], "/@", "p1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p3", "=", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "+", 
       RowBox[{"x", "[", 
        RowBox[{"[", "6", "]"}], "]"}], "+", 
       RowBox[{"x", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}]}], "]"}], "/@", "p2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p4", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Select", "[", 
     RowBox[{"p3", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"#", ">", "418500000"}], " ", "&&", " ", 
        RowBox[{"#", "<", "420000000"}]}], "&"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tally", "[", "p4", "]"}], "//", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8675205261526356`*^9, 3.8675205303214784`*^9}, {
   3.867520794056919*^9, 3.8675208038731127`*^9}, {3.867520868704993*^9, 
   3.8675209318471894`*^9}, {3.8675215529981594`*^9, 3.867521574428483*^9}, {
   3.867521908221979*^9, 3.8675220323369756`*^9}, {3.867522063779519*^9, 
   3.867522081454565*^9}, {3.8675221142329044`*^9, 3.8675221222581034`*^9}, {
   3.8675221539164314`*^9, 3.867522180100378*^9}, {3.867522364760579*^9, 
   3.8675224847772107`*^9}, 3.8675225661670303`*^9, {3.867522643855305*^9, 
   3.8675226520098515`*^9}, {3.8675226917364187`*^9, 
   3.8675227153323126`*^9}, {3.8675227869408875`*^9, 3.867522791880972*^9}, {
   3.8675236990926514`*^9, 3.867523753405036*^9}, {3.8675238226750216`*^9, 
   3.867523900457676*^9}, {3.8675239713619623`*^9, 3.8675239728614473`*^9}, {
   3.8675240617628255`*^9, 3.867524061896985*^9}, {3.867524137030681*^9, 
   3.8675242875333314`*^9}, {3.8675243398999825`*^9, 
   3.8675243502317777`*^9}, {3.867524500626889*^9, 3.867524508051454*^9}, {
   3.8675246178660583`*^9, 3.8675246767603703`*^9}, {3.8675247136333747`*^9, 
   3.8675248502216973`*^9}, {3.867524913707204*^9, 3.867524913847804*^9}, {
   3.867525000074638*^9, 3.8675251706821156`*^9}, {3.867525214180257*^9, 
   3.8675252216305866`*^9}, {3.867525510367634*^9, 3.8675256158414803`*^9}, {
   3.867609678646318*^9, 3.867609857286029*^9}, {3.8676099765550194`*^9, 
   3.867609978568031*^9}, {3.86761003837772*^9, 3.8676100384879785`*^9}, {
   3.867610193538853*^9, 3.867610272383802*^9}, {3.8676106927783337`*^9, 
   3.8676106928616905`*^9}, {3.8676107439703765`*^9, 3.867610754423425*^9}, {
   3.8676107886331816`*^9, 3.8676107897413015`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "2", 
   ",", "2", ",", "2", ",", "2", ",", "2", ",", "3", ",", "3", ",", "3", ",", 
   "3", ",", "3", ",", "3", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", 
   ",", "4", ",", "5", ",", "5", ",", "5", ",", "5", ",", "5", ",", "5", ",", 
   "6", ",", "6", ",", "6", ",", "6", ",", "6", ",", "6", ",", "7", ",", "7", 
   ",", "7", ",", "7", ",", "7", ",", "7", ",", "8", ",", "8", ",", "8", ",", 
   "8", ",", "8", ",", "8", ",", "9", ",", "9", ",", "9", ",", "9", ",", "9", 
   ",", "9", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10",
    ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", 
   "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "13", 
   ",", "13", ",", "13", ",", "13", ",", "13", ",", "13", ",", "14", ",", 
   "14", ",", "14", ",", "14", ",", "14", ",", "14"}], "}"}]], "Output",
 CellChangeTimes->{
  3.867524508473193*^9, {3.8675246186781673`*^9, 3.8675246679429083`*^9}, {
   3.86752480295281*^9, 3.867524850877866*^9}, 3.8675249148785877`*^9, {
   3.8675250166528273`*^9, 3.867525171170792*^9}, {3.867525216412895*^9, 
   3.867525222909458*^9}, {3.8675255153196707`*^9, 3.867525616528619*^9}, {
   3.8676096840829*^9, 3.8676098580890136`*^9}, 3.8676099793459225`*^9, 
   3.8676100392805204`*^9, 3.8676102026673894`*^9, 3.867610232764722*^9, 
   3.867610275783581*^9, 3.8676106959371796`*^9, 3.8676107554509645`*^9, 
   3.8676107931634254`*^9, 3.867638679131791*^9}],

Cell[BoxData["7529536"], "Output",
 CellChangeTimes->{
  3.867524508473193*^9, {3.8675246186781673`*^9, 3.8675246679429083`*^9}, {
   3.86752480295281*^9, 3.867524850877866*^9}, 3.8675249148785877`*^9, {
   3.8675250166528273`*^9, 3.867525171170792*^9}, {3.867525216412895*^9, 
   3.867525222909458*^9}, {3.8675255153196707`*^9, 3.867525616528619*^9}, {
   3.8676096840829*^9, 3.8676098580890136`*^9}, 3.8676099793459225`*^9, 
   3.8676100392805204`*^9, 3.8676102026673894`*^9, 3.867610232764722*^9, 
   3.867610275783581*^9, 3.8676106959371796`*^9, 3.8676107554509645`*^9, 
   3.8676107931634254`*^9, 3.867638679392097*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"418646102", "6"},
    {"418711960", "6"},
    {"418790129", "6"},
    {"419154717", "6"},
    {"419430400", "12"},
    {"419678961", "6"},
    {"419772385", "6"},
    {"419927879", "12"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.867524508473193*^9, {3.8675246186781673`*^9, 3.8675246679429083`*^9}, {
   3.86752480295281*^9, 3.867524850877866*^9}, 3.8675249148785877`*^9, {
   3.8675250166528273`*^9, 3.867525171170792*^9}, {3.867525216412895*^9, 
   3.867525222909458*^9}, {3.8675255153196707`*^9, 3.867525616528619*^9}, {
   3.8676096840829*^9, 3.8676098580890136`*^9}, 3.8676099793459225`*^9, 
   3.8676100392805204`*^9, 3.8676102026673894`*^9, 3.867610232764722*^9, 
   3.867610275783581*^9, 3.8676106959371796`*^9, 3.8676107554509645`*^9, 
   3.8676107931634254`*^9, 3.8676386892266407`*^9}]
}, Open  ]],

Cell[BoxData["\[AliasDelimiter]"], "Input",
 CellChangeTimes->{3.8675246727265196`*^9}]
},
WindowSize->{1861, 1487},
WindowMargins->{{707, Automatic}, {215, Automatic}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 4258, 102, 188, "Input"],
Cell[4841, 126, 1560, 23, 30, "Output"],
Cell[6404, 151, 624, 9, 30, "Output"],
Cell[7031, 162, 1288, 31, 219, "Output"]
}, Open  ]],
Cell[8334, 196, 87, 1, 30, "Input"]
}
]
*)