(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 194637, 5221]*) (*NotebookOutlinePosition[ 195291, 5244]*) (* CellTagsIndexPosition[ 195247, 5240]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Kostka, C. (1882), \"\[CapitalUDoubleDot]ber den Zusammenhang zwischen \ einigen Formen von symmetrischen Funktionen\"\ \>", "Subtitle"], Cell[TextData[{ " Crelle's J. 93: 89\[Dash]123, ", ButtonBox["http://gdz.sub.uni-goettingen.de/no_cache/dms/load/img/?IDDOC=\ 259790 ", ButtonData:>{ URL[ "http://gdz.sub.uni-goettingen.de/no_cache/dms/load/img/?IDDOC=259790"], None}, ButtonStyle->"Hyperlink"], " " }], "Text"], Cell[CellGroupData[{ Cell["inits", "Subsubsection"], Cell[BoxData[ \(\(<< DiscreteMath`Combinatorica`;\)\)], "Input"], Cell[BoxData[ \(\(qbinomial[n_Integer, m_Integer] := Expand[Together[ Product[\((1 - q^\((n - j)\))\)/\((1 - q^\((j + 1)\))\), {j, 0, m - 1}]]];\)\)], "Input"], Cell[BoxData[ \(\(integerpartitions[n_, m_] := Coefficient[qbinomial[n + 1 + m, m], q^n];\)\)], "Input"], Cell[BoxData[ \(\(rankpartition[\((p_)\)?PartitionQ] := PartitionsP[Tr[p]] - Sum[\((integerpartitions[Tr[#1], First[#1] - 1] &)\)[ Drop[p, k]], {k, 0, Length[p] - 1}];\)\)], "Input"], Cell[BoxData[ \(\(runs[li_List] := Length /@ Split[Sort[li]];\)\)], "Input"], Cell[BoxData[ \(\(multi[n_, v_, q_, le_] := Take[\(\((Multinomial @@ Append[runs[#1], v - #2]\ #3)\) &\) @@@ \((\({#, Length[#], If[Length[#] > v || Length[#] < le, 0, 1]} &\) /@ Partitions[n])\), {q, \(-1\)}];\)\)], "Input"], Cell[BoxData[ \(\(multipol[par_?PartitionQ, v_Integer] := multi[Tr[par], v, rankpartition[par], Length[par]];\)\)], "Input"], Cell[BoxData[ \(\(recur[par_?PartitionQ, v_Integer, h_: {}] := 0 /; v < Length[par];\)\)], "Input"], Cell[BoxData[ \(\(recur[par_?PartitionQ, v_Integer, h_: {}] := Block[{segs, deco, trabase}, np = Tr[par]; segs = Length /@ Split[TransposePartition[par]]; deco = \(Table[Max[0, Min[i - j + 1, 1]], {i, 0, #}, {j, #}] &\) /@ segs; trabase = TransposePartition[par] - 1; Tr[Flatten[ Outer[w[ TransposePartition[ DeleteCases[trabase + Flatten[{##}], 0]]] &, Sequence @@ deco, 1]] /. w[q_List] \[Rule] temp[q, v - 1, DeleteCases[Sort[Append[h, np - Tr[q] - Tr[h]]], 0]]]];\)\)], "Input"], Cell[BoxData[ \(\(intermed0[par_List, v_Integer, h_List] := Block[{}, \(w[Reverse[Sort[Append[#, Tr[h]]]]] &\) /@ Take[Partitions[ Tr[par]], \(-\((PartitionsP[Tr[par]] + 1 - rankpartition[par])\)\)] . MapThread[ Times[#1, #2] &, {multipol[par, v], kostka[par]}]];\)\)], "Input"], Cell[BoxData[{ \(\(Clear[kostka];\)\), "\[IndentingNewLine]", \(\(kostka[{1 .. }] := {1};\)\), "\[IndentingNewLine]", \(\(kostka[{k_Integer}] := 1 + 0*Range[PartitionsP[k]];\)\), "\[IndentingNewLine]", \(\(kostka[par_?PartitionQ] := \(kostka[par] = Block[{npar = Tr[par], v = Tr[par], it}, it = recur[par, v] //. temp[a_, b_, c_] \[RuleDelayed] recur[a, b, c] /; \((Tr[a] \[Equal] npar && b > 1 || b < Length[a])\); \[IndentingNewLine]vec = \((\((it /. temp \[Rule] intermed0)\) /. w[p_List] \[Rule] w[rankpartition[p]])\) + Apply[Plus, w /@ Range[rankpartition[par], PartitionsP[ Tr[par]]]]; \[IndentingNewLine]\((\((\((List @@ vec)\) /. w[_] \[Rule] 1)\) - 1)\)/\((multipol[par, Tr[par]] /. 0 \[Rule] 1)\)]\);\)\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["table in mm\[VeryThinSpace]a Sequence", "Subsubsection"], Cell[CellGroupData[{ Cell["Table[kostka/@Partitions[k],{k,6}]", "Input"], Cell[BoxData[ \({{{1}}, {{1, 1}, {1}}, {{1, 1, 1}, {1, 2}, {1}}, {{1, 1, 1, 1, 1}, {1, 1, 2, 3}, {1, 1, 2}, {1, 3}, {1}}, {{1, 1, 1, 1, 1, 1, 1}, {1, 1, 2, 2, 3, 4}, {1, 1, 2, 3, 5}, {1, 1, 3, 6}, {1, 2, 5}, {1, 4}, {1}}, {{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 2, 1, 2, 3, 2, 3, 4, 5}, {1, 1, 1, 2, 3, 3, 4, 6, 9}, {1, 0, 1, 3, 1, 3, 6, 10}, {1, 1, 1, 1, 2, 3, 5}, {1, 2, 2, 4, 8, 16}, {1, 0, 1, 4, 10}, {1, 1, 2, 5}, {1, 3, 9}, {1, 5}, {1}}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Table[ MatrixForm[\ \(PadLeft[#, PartitionsP[k]] &\) /@ \((kostka /@ Partitions[k])\)\ ], {k, 6}]\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1"}, {"0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {"0", "1", "2"}, {"0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1", "1"}, {"0", "1", "1", "2", "3"}, {"0", "0", "1", "1", "2"}, {"0", "0", "0", "1", "3"}, {"0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1", "1", "1", "1"}, {"0", "1", "1", "2", "2", "3", "4"}, {"0", "0", "1", "1", "2", "3", "5"}, {"0", "0", "0", "1", "1", "3", "6"}, {"0", "0", "0", "0", "1", "2", "5"}, {"0", "0", "0", "0", "0", "1", "4"}, {"0", "0", "0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"}, {"0", "1", "1", "2", "1", "2", "3", "2", "3", "4", "5"}, {"0", "0", "1", "1", "1", "2", "3", "3", "4", "6", "9"}, {"0", "0", "0", "1", "0", "1", "3", "1", "3", "6", "10"}, {"0", "0", "0", "0", "1", "1", "1", "1", "2", "3", "5"}, {"0", "0", "0", "0", "0", "1", "2", "2", "4", "8", "16"}, {"0", "0", "0", "0", "0", "0", "1", "0", "1", "4", "10"}, {"0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "5"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", "3", "9"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "5"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Table[MatrixForm[Inverse[ PadLeft[#,PartitionsP[k]]&/@(kostka/@Partitions[k]) \ ] ],{k,6}]\ \>", "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\)}, {"0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\), "1"}, {"0", "1", \(-2\)}, {"0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\), "0", "1", \(-1\)}, {"0", "1", \(-1\), \(-1\), "2"}, {"0", "0", "1", \(-1\), "1"}, {"0", "0", "0", "1", \(-3\)}, {"0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\), "0", "1", "0", \(-1\), "1"}, {"0", "1", \(-1\), \(-1\), "1", "1", \(-2\)}, {"0", "0", "1", \(-1\), \(-1\), "2", \(-2\)}, {"0", "0", "0", "1", \(-1\), \(-1\), "3"}, {"0", "0", "0", "0", "1", \(-2\), "3"}, {"0", "0", "0", "0", "0", "1", \(-4\)}, {"0", "0", "0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\), "0", "1", "0", "0", \(-1\), "0", "0", "1", \(-1\)}, {"0", "1", \(-1\), \(-1\), "0", "1", "1", "0", \(-1\), \(-1\), "2"}, {"0", "0", "1", \(-1\), \(-1\), "0", "1", \(-1\), "1", \(-2\), "2"}, {"0", "0", "0", "1", "0", \(-1\), \(-1\), "1", "1", "1", \(-3\)}, {"0", "0", "0", "0", "1", \(-1\), "1", "1", "0", \(-1\), "1"}, {"0", "0", "0", "0", "0", "1", \(-2\), \(-2\), "0", "4", \(-6\)}, {"0", "0", "0", "0", "0", "0", "1", "0", \(-1\), \(-1\), "4"}, {"0", "0", "0", "0", "0", "0", "0", "1", \(-1\), "1", \(-1\)}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", \(-3\), "6"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", \(-5\)}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["table in Kostka Sequence", "Subsubsection"], Cell[CellGroupData[{ Cell["\<\ MatrixForm[ PadLeft[#,PartitionsP[7]]&/@(kostka/@Partitions[7]) ]\ \>", "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"}, {"0", "1", "1", "2", "1", "2", "3", "2", "2", "3", "4", "3", "4", "5", "6"}, {"0", "0", "1", "1", "1", "2", "3", "2", "3", "4", "6", "5", "7", "10", "14"}, {"0", "0", "0", "1", "0", "1", "3", "1", "1", "3", "6", "3", "6", "10", "15"}, {"0", "0", "0", "0", "1", "1", "1", "2", "2", "3", "4", "4", "6", "9", "14"}, {"0", "0", "0", "0", "0", "1", "2", "1", "2", "4", "8", "6", "11", "20", "35"}, {"0", "0", "0", "0", "0", "0", "1", "0", "0", "1", "4", "1", "4", "10", "20"}, {"0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "3", "3", "6", "11", "21"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "3", "5", "10", "21"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "3", "2", "6", "15", "35"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "1", "5", "15"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "2", "5", "14"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "4", "14"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "6"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ MatrixForm[Transpose[Inverse[ \ PadLeft[#,PartitionsP[7]]&/@(kostka/@Partitions[7]) ] ]]\ \>", "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {\(-1\), "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", \(-1\), "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"1", \(-1\), \(-1\), "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", \(-1\), "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "1", "0", \(-1\), \(-1\), "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {\(-1\), "1", "1", \(-1\), "1", \(-2\), "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "1", "0", \(-1\), \(-1\), "0", "1", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", \(-1\), "1", "1", \(-1\), "0", \(-1\), "1", "0", "0", "0", "0", "0", "0"}, {"0", \(-1\), "0", "1", "1", "1", \(-1\), \(-1\), \(-1\), "1", "0", "0", "0", "0", "0"}, {"1", \(-1\), \(-1\), "1", \(-2\), "2", \(-1\), "2", "1", \(-3\), "1", "0", "0", "0", "0"}, {"0", "0", "1", \(-1\), \(-1\), "0", "1", "2", \(-1\), \(-2\), "0", "1", "0", "0", "0"}, {"0", "1", \(-1\), \(-1\), "0", "0", "1", \(-1\), "2", "1", \(-1\), \(-2\), "1", "0", "0"}, {\(-1\), "1", "2", \(-1\), "2", \(-4\), "1", \(-2\), \(-3\), "6", \(-1\), "3", \(-4\), "1", "0"}, {"1", \(-2\), \(-2\), "3", \(-2\), "6", \(-4\), "3", "3", \(-12\), "5", \(-4\), "10", \(-6\), "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Ordering[Partitions[7]]", "Input"], Cell[BoxData[ \({1, 5, 3, 2, 9, 8, 6, 4, 12, 10, 7, 13, 11, 14, 15}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Ordering@Ordering[TransposePartition/@Partitions[7]]", "Input"], Cell[BoxData[ \({15, 14, 12, 13, 9, 10, 11, 5, 6, 7, 8, 2, 3, 4, 1}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ idx=Part[Ordering[Partitions[7]],Ordering@Ordering[TransposePartition/@\ Partitions[7]]]\ \>", "Input"], Cell[BoxData[ \({15, 14, 13, 11, 12, 10, 7, 9, 8, 6, 4, 5, 3, 2, 1}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ MatrixForm[ Part[#,idx]& @( Part[#,idx]&/@ \ (PadLeft[#,PartitionsP[7]]&/@(kostka/@ Partitions[7]) ) )]\ \>", "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"6", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"14", "4", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"15", "5", "1", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"14", "5", "2", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"35", "15", "6", "3", "2", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"20", "10", "4", "4", "1", "1", "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"21", "10", "5", "2", "3", "1", "0", "1", "0", "0", "0", "0", "0", "0", "0"}, {"21", "11", "6", "3", "3", "2", "0", "1", "1", "0", "0", "0", "0", "0", "0"}, {"35", "20", "11", "8", "6", "4", "2", "2", "1", "1", "0", "0", "0", "0", "0"}, {"15", "10", "6", "6", "3", "3", "3", "1", "1", "1", "1", "0", "0", "0", "0"}, {"14", "9", "6", "4", "4", "3", "1", "2", "2", "1", "0", "1", "0", "0", "0"}, {"14", "10", "7", "6", "5", "4", "3", "3", "2", "2", "1", "1", "1", "0", "0"}, {"6", "5", "4", "4", "3", "3", "3", "2", "2", "2", "2", "1", "1", "1", "0"}, {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ MatrixForm[ Part[#,idx]& @( Part[#,idx]&/@ \ (PadLeft[#,PartitionsP[7]]&/@(kostka/@ Partitions[7]) +Transpose[Inverse[ \ PadLeft[#,PartitionsP[7]]&/@(kostka/@Partitions[7]) ] ] \ -IdentityMatrix[PartitionsP[7]] ) )]\ \>", "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-6\), "10", "5", \(-4\), \(-12\), \(-4\), "3", "3", "6", "3", \(-2\), \(-2\), \(-2\), "1"}, {"6", "1", \(-4\), \(-1\), "3", "6", "1", \(-3\), \(-2\), \(-4\), \(-1\), "2", "2", "1", \(-1\)}, {"14", "4", "1", \(-1\), \(-2\), "1", "1", "2", \(-1\), "0", \(-1\), "0", \(-1\), "1", "0"}, {"15", "5", "1", "1", "0", \(-3\), \(-1\), "1", "2", "2", "1", \(-2\), \(-1\), \(-1\), "1"}, {"14", "5", "2", "0", "1", \(-2\), "1", \(-1\), "2", "0", \(-1\), \(-1\), "1", "0", "0"}, {"35", "15", "6", "3", "2", "1", \(-1\), \(-1\), \(-1\), "1", "1", "1", "0", \(-1\), "0"}, {"20", "10", "4", "4", "1", "1", "1", "0", "0", \(-2\), \(-1\), "1", "1", "1", \(-1\)}, {"21", "10", "5", "2", "3", "1", "0", "1", \(-1\), \(-1\), "1", "1", \(-1\), "0", "0"}, {"21", "11", "6", "3", "3", "2", "0", "1", "1", \(-1\), "0", \(-1\), "1", "0", "0"}, {"35", "20", "11", "8", "6", "4", "2", "2", "1", "1", \(-1\), \(-1\), "0", "1", "0"}, {"15", "10", "6", "6", "3", "3", "3", "1", "1", "1", "1", "0", \(-1\), \(-1\), "1"}, {"14", "9", "6", "4", "4", "3", "1", "2", "2", "1", "0", "1", \(-1\), "0", "0"}, {"14", "10", "7", "6", "5", "4", "3", "3", "2", "2", "1", "1", "1", \(-1\), "0"}, {"6", "5", "4", "4", "3", "3", "3", "2", "2", "2", "2", "1", "1", "1", \(-1\)}, {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell["kostkaform[{{1}}]:={{1}};", "Input"], Cell["\<\ kostkaform[li:{{__Integer}..}]:=Block[{n=1+li[[2,-1]],len,idx},len=Length[\ First[li]];idx=Part[Ordering[Partitions[n]],Ordering@Ordering[\ TransposePartition/@Partitions[n]]]; Part[#,idx]& @( Part[#,idx]&/@ ( PadLeft[#,len]&/@li +Transpose[Inverse[ \ PadLeft[#,len]&/@li ] ] -IdentityMatrix[len] ) )]\ \>", "Input"], Cell[CellGroupData[{ Cell["kostka/@Partitions[7] ", "Input"], Cell[BoxData[ \({{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 2, 1, 2, 3, 2, 2, 3, 4, 3, 4, 5, 6}, {1, 1, 1, 2, 3, 2, 3, 4, 6, 5, 7, 10, 14}, {1, 0, 1, 3, 1, 1, 3, 6, 3, 6, 10, 15}, {1, 1, 1, 2, 2, 3, 4, 4, 6, 9, 14}, {1, 2, 1, 2, 4, 8, 6, 11, 20, 35}, {1, 0, 0, 1, 4, 1, 4, 10, 20}, {1, 1, 2, 3, 3, 6, 11, 21}, {1, 1, 2, 3, 5, 10, 21}, {1, 3, 2, 6, 15, 35}, {1, 0, 1, 5, 15}, {1, 2, 5, 14}, {1, 4, 14}, {1, 6}, {1}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Table[MatrixForm@kostkaform[kostka/@Partitions[k] ] ,{k,6}]", "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\)}, {"1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-2\), "1"}, {"2", "1", \(-1\)}, {"1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-3\), "1", "2", \(-1\)}, {"3", "1", \(-1\), \(-1\), "1"}, {"2", "1", "1", \(-1\), "0"}, {"3", "2", "1", "1", \(-1\)}, {"1", "1", "1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-4\), "3", "3", \(-2\), \(-2\), "1"}, {"4", "1", \(-2\), \(-1\), "2", "1", \(-1\)}, {"5", "2", "1", \(-1\), \(-1\), "1", "0"}, {"6", "3", "1", "1", \(-1\), \(-1\), "1"}, {"5", "3", "2", "1", "1", \(-1\), "0"}, {"4", "3", "2", "2", "1", "1", \(-1\)}, {"1", "1", "1", "1", "1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-5\), "6", "4", \(-1\), \(-6\), \(-3\), "1", "2", "2", \(-1\)}, {"5", "1", \(-3\), \(-1\), "1", "4", "1", \(-1\), \(-2\), \(-1\), "1"}, {"9", "3", "1", \(-1\), \(-1\), "0", "1", "0", "1", \(-1\), "0"}, {"10", "4", "1", "1", "0", \(-2\), \(-1\), "1", "1", "1", \(-1\)}, {"5", "2", "1", "0", "1", \(-2\), "1", "1", \(-1\), "0", "0"}, {"16", "8", "4", "2", "2", "1", \(-1\), \(-1\), "0", "1", "0"}, {"10", "6", "3", "3", "1", "1", "1", "0", \(-1\), \(-1\), "1"}, {"5", "3", "2", "1", "1", "1", "0", "1", \(-1\), "0", "0"}, {"9", "6", "4", "3", "3", "2", "1", "1", "1", \(-1\), "0"}, {"5", "4", "3", "3", "2", "2", "2", "1", "1", "1", \(-1\)}, {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Timings", "Subsubsection"], Cell["(* 17 h to run *)", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Table[ 1/PartitionsP[k]*First[Timing[\(kostka /@ Partitions[k];\)]\ ] /. \ Second \[Rule] 1, {k, 20}]\)], "Input", Evaluatable->False], Cell[BoxData[ \({0, 0, 0, 0.0092`, 0.0224286`, 0.0510909`, 0.102067`, 0.189636`, 0.351067`, 0.601548`, 1.01116`, 1.62439`, 2.64913`, 4.06574`, 7.11532`, 9.50339`, 14.5829`, 21.672`, 31.4516`, 45.3564`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(PartitionsP[Range[20]]\)], "Input"], Cell[BoxData[ \({1, 2, 3, 5, 7, 11, 15, 22, 30, 42, 56, 77, 101, 135, 176, 231, 297, 385, 490, 627}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Drop[%114, 3]\)], "Input"], Cell[BoxData[ \({0.0092`, 0.0224286`, 0.0510909`, 0.102067`, 0.189636`, 0.351067`, 0.601548`, 1.01116`, 1.62439`, 2.64913`, 4.06574`, 7.11532`, 9.50339`, 14.5829`, 21.672`, 31.4516`, 45.3564`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Transpose[{Range[4, 20], %116}]\)], "Input"], Cell[BoxData[ \({{4, 0.0092`}, {5, 0.0224286`}, {6, 0.0510909`}, {7, 0.102067`}, {8, 0.189636`}, {9, 0.351067`}, {10, 0.601548`}, {11, 1.01116`}, {12, 1.62439`}, {13, 2.64913`}, {14, 4.06574`}, {15, 7.11532`}, {16, 9.50339`}, {17, 14.5829`}, {18, 21.672`}, {19, 31.4516`}, {20, 45.3564`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Table[{n,Exp[-2.909 -13.52/n+0.375*n]},{n,4,20}]", "Input"], Cell[BoxData[ \({{4, 0.008320773996919491`}, {5, 0.023801658877461867`}, {6, 0.05434876801259752`}, {7, 0.10910674419379944`}, {8, 0.20209851549456684`}, {9, 0.354792480563612`}, {10, 0.599895383381186`}, {11, 0.9869944041776584`}, {12, 1.5909531997968356`}, {13, 2.524391389973053`}, {14, 3.9562069062884904`}, {15, 6.1390294931854505`}, {16, 9.449860693798394`}, {17, 14.450165710580691`}, {18, 21.974636213866503`}, {19, 33.26218122463003`}, {20, 50.149071511036816`}}\)], "Output"] }, Open ]], Cell["\<\ each partition of n takes *on average* Exp[-2.909 -13.52/n+0.375*n] sec if \ all kostka[partitions of m< n] are known.\ \>", "Text"], Cell[CellGroupData[{ Cell["Plot[ -2.909 -13.52/n+0.375*n ,{n,4,20}]", "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.214286 0.0595238 0.338569 0.0676245 [ [.23214 .32607 -9 -9 ] [.23214 .32607 9 0 ] [.38095 .32607 -6 -9 ] [.38095 .32607 6 0 ] [.52976 .32607 -12 -9 ] [.52976 .32607 12 0 ] [.67857 .32607 -6 -9 ] [.67857 .32607 6 0 ] [.82738 .32607 -12 -9 ] [.82738 .32607 12 0 ] [.97619 .32607 -6 -9 ] [.97619 .32607 6 0 ] [.07083 .06807 -12 -4.5 ] [.07083 .06807 0 4.5 ] [.07083 .20332 -12 -4.5 ] [.07083 .20332 0 4.5 ] [.07083 .47382 -6 -4.5 ] [.07083 .47382 0 4.5 ] [.07083 .60907 -6 -4.5 ] [.07083 .60907 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .23214 .33857 m .23214 .34482 L s [(7.5)] .23214 .32607 0 1 Mshowa .38095 .33857 m .38095 .34482 L s [(10)] .38095 .32607 0 1 Mshowa .52976 .33857 m .52976 .34482 L s [(12.5)] .52976 .32607 0 1 Mshowa .67857 .33857 m .67857 .34482 L s [(15)] .67857 .32607 0 1 Mshowa .82738 .33857 m .82738 .34482 L s [(17.5)] .82738 .32607 0 1 Mshowa .97619 .33857 m .97619 .34482 L s [(20)] .97619 .32607 0 1 Mshowa .125 Mabswid .1131 .33857 m .1131 .34232 L s .14286 .33857 m .14286 .34232 L s .17262 .33857 m .17262 .34232 L s .20238 .33857 m .20238 .34232 L s .2619 .33857 m .2619 .34232 L s .29167 .33857 m .29167 .34232 L s .32143 .33857 m .32143 .34232 L s .35119 .33857 m .35119 .34232 L s .41071 .33857 m .41071 .34232 L s .44048 .33857 m .44048 .34232 L s .47024 .33857 m .47024 .34232 L s .5 .33857 m .5 .34232 L s .55952 .33857 m .55952 .34232 L s .58929 .33857 m .58929 .34232 L s .61905 .33857 m .61905 .34232 L s .64881 .33857 m .64881 .34232 L s .70833 .33857 m .70833 .34232 L s .7381 .33857 m .7381 .34232 L s .76786 .33857 m .76786 .34232 L s .79762 .33857 m .79762 .34232 L s .85714 .33857 m .85714 .34232 L s .8869 .33857 m .8869 .34232 L s .91667 .33857 m .91667 .34232 L s .94643 .33857 m .94643 .34232 L s .05357 .33857 m .05357 .34232 L s .02381 .33857 m .02381 .34232 L s .25 Mabswid 0 .33857 m 1 .33857 L s .08333 .06807 m .08958 .06807 L s [(-4)] .07083 .06807 1 0 Mshowa .08333 .20332 m .08958 .20332 L s [(-2)] .07083 .20332 1 0 Mshowa .08333 .47382 m .08958 .47382 L s [(2)] .07083 .47382 1 0 Mshowa .08333 .60907 m .08958 .60907 L s [(4)] .07083 .60907 1 0 Mshowa .125 Mabswid .08333 .10188 m .08708 .10188 L s .08333 .1357 m .08708 .1357 L s .08333 .16951 m .08708 .16951 L s .08333 .23713 m .08708 .23713 L s .08333 .27094 m .08708 .27094 L s .08333 .30476 m .08708 .30476 L s .08333 .37238 m .08708 .37238 L s .08333 .40619 m .08708 .40619 L s .08333 .44001 m .08708 .44001 L s .08333 .50763 m .08708 .50763 L s .08333 .54144 m .08708 .54144 L s .08333 .57525 m .08708 .57525 L s .08333 .03426 m .08708 .03426 L s .08333 .00045 m .08708 .00045 L s .25 Mabswid .08333 0 m .08333 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .06244 .06309 L .10458 .10702 L .14415 .14273 L .18221 .17351 L .22272 .20349 L .26171 .23031 L .30316 .25712 L .34309 .28167 L .3815 .30433 L .42237 .3276 L .46172 .34934 L .49955 .36973 L .53984 .39097 L .57861 .41101 L .61984 .43197 L .65954 .45185 L .69774 .47073 L .73838 .49059 L .77751 .50952 L .81909 .52944 L .85916 .54848 L .89771 .56666 L .93871 .58587 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgl0oooo000I0?oo o`030000003oool0oooo01<0oooo00<000000?ooo`3oool0kP3oool001T0oooo00<000000?ooo`3o ool0503oool00`000000oooo0?ooo`3]0?ooo`006@3oool00`000000oooo0?ooo`0E0?ooo`030000 003oool0oooo0>`0oooo000I0?ooo`030000003oool0oooo01H0oooo0P00003/0?ooo`006@3oool2 000001T0oooo00<000000?ooo`3oool0j@3oool001T0oooo00<000000?ooo`3oool06@3oool00`00 0000oooo0?ooo`3X0?ooo`006@3oool00`000000oooo0?ooo`0J0?ooo`800000j03oool001T0oooo 00<000000?ooo`3oool0703oool00`000000oooo0?ooo`3U0?ooo`006@3oool00`000000oooo0?oo o`0M0?ooo`800000i@3oool001T0oooo00<000000?ooo`3oool07`3oool00`000000oooo0?ooo`3R 0?ooo`006@3oool00`000000oooo0?ooo`0P0?ooo`800000hP3oool00100oooo100000050?ooo`03 0000003oool0oooo0280oooo00<000000?ooo`3oool0g`3oool00100oooo00<000000?ooo`3oool0 1P3oool00`000000oooo0?ooo`0S0?ooo`800000g`3oool00140oooo00<000000?ooo`3oool01@3o ool3000002D0oooo00<000000?ooo`3oool0g03oool000X0oooo100000040?ooo`030000003oool0 oooo00@0oooo00<000000?ooo`3oool09P3oool200000=`0oooo000@0?ooo`040000003oool0oooo 000000D0oooo00<000000?ooo`3oool0:03oool00`000000oooo0?ooo`3I0?ooo`004@3oool20000 00H0oooo00<000000?ooo`3oool0:@3oool00`000000oooo0?ooo`3H0?ooo`006@3oool00`000000 oooo0?ooo`0Z0?ooo`800000f03oool001T0oooo00<000000?ooo`3oool0;03oool00`000000oooo 0?ooo`3E0?ooo`006@3oool00`000000oooo0?ooo`0]0?ooo`030000003oool0oooo0=@0oooo000I 0?ooo`030000003oool0oooo02h0oooo0P00003D0?ooo`006@3oool00`000000oooo0?ooo`0`0?oo o`030000003oool0oooo0=40oooo000I0?ooo`030000003oool0oooo0340oooo0P00003A0?ooo`00 6@3oool2000003@0oooo00<000000?ooo`3oool0cP3oool001T0oooo00<000000?ooo`3oool0=03o ool2000000?ooo`006@3oool2000007D0oooo0P00002>0?ooo`006@3o ool00`000000oooo0?ooo`1f0?ooo`800000S03oool001T0oooo00<000000?ooo`3oool0N03oool2 000008X0oooo000I0?ooo`030000003oool0oooo07X0oooo0P0000280?ooo`006@3oool00`000000 oooo0?ooo`1l0?ooo`800000QP3oool001T0oooo00<000000?ooo`3oool0OP3oool00`000000oooo 0?ooo`230?ooo`006@3oool00`000000oooo0?ooo`1o0?ooo`800000P`3oool001T0oooo00<00000 0?ooo`3oool0P@3oool200000840oooo000I0?ooo`030000003oool0oooo08<0oooo0P00001o0?oo o`006@3oool00`000000oooo0?ooo`250?ooo`800000O@3oool001T0oooo0P0000280?ooo`800000 N`3oool001T0oooo00<000000?ooo`3oool0R@3oool00`000000oooo0?ooo`1h0?ooo`006@3oool0 0`000000oooo0?ooo`2:0?ooo`800000N03oool001T0oooo00<000000?ooo`3oool0S03oool20000 07H0oooo000I0?ooo`030000003oool0oooo08h0oooo0P00001d0?ooo`006@3oool00`000000oooo 0?ooo`2@0?ooo`800000LP3oool001T0oooo00<000000?ooo`3oool0TP3oool200000700oooo000I 0?ooo`030000003oool0oooo09@0oooo0`00001]0?ooo`006@3oool00`000000oooo0?ooo`2G0?oo o`800000J`3oool001T0oooo0P00002J0?ooo`800000J@3oool001T0oooo00<000000?ooo`3oool0 V`3oool2000006L0oooo000I0?ooo`030000003oool0oooo09d0oooo0P00001U0?ooo`006@3oool0 0`000000oooo0?ooo`2O0?ooo`800000H`3oool001T0oooo00<000000?ooo`3oool0X@3oool20000 0640oooo000I0?ooo`030000003oool0oooo0:<0oooo0P00001O0?ooo`006@3oool00`000000oooo 0?ooo`2U0?ooo`800000G@3oool001T0oooo00<000000?ooo`3oool0Y`3oool2000005/0oooo000@ 0?ooo`@000001@3oool00`000000oooo0?ooo`2Y0?ooo`800000F@3oool00100oooo00<000000?oo o`3oool01P3oool00`000000oooo0?ooo`2[0?ooo`800000E`3oool00140oooo00<000000?ooo`3o ool01@3oool300000:d0oooo0P00001E0?ooo`004P3oool00`000000oooo0?ooo`040?ooo`030000 003oool0oooo0:l0oooo0P00001C0?ooo`00403oool010000000oooo0?ooo`0000050?ooo`030000 003oool0oooo0;40oooo0P00001A0?ooo`004@3oool2000000H0oooo00<000000?ooo`3oool0/`3o ool2000004l0oooo000I0?ooo`030000003oool0oooo0;D0oooo0P00001=0?ooo`006@3oool00`00 0000oooo0?ooo`2g0?ooo`800000B`3oool001T0oooo00<000000?ooo`3oool0^@3oool2000004T0 oooo000I0?ooo`030000003oool0oooo0;/0oooo0P0000170?ooo`006@3oool00`000000oooo0?oo o`2m0?ooo`800000A@3oool001T0oooo0P0000300?ooo`800000@`3oool001T0oooo00<000000?oo o`3oool0`@3oool300000400oooo000I0?ooo`030000003oool0oooo0<@0oooo0P00000n0?ooo`00 6@3oool00`000000oooo0?ooo`360?ooo`800000?03oool001T0oooo00<000000?ooo`3oool0b03o ool2000003X0oooo000I0?ooo`030000003oool0oooo0H0oooo0P00000L0?ooo`006@3oool200000>T0oooo0P00 000J0?ooo`006@3oool00`000000oooo0?ooo`3Z0?ooo`800000603oool001T0oooo00<000000?oo o`3oool0k03oool2000001H0oooo000I0?ooo`030000003oool0oooo0>h0oooo0`00000C0?ooo`00 6@3oool00`000000oooo0?ooo`3a0?ooo`8000004@3oool001T0oooo00<000000?ooo`3oool0l`3o ool2000000l0oooo000I0?ooo`030000003oool0oooo0?D0oooo0P00000=0?ooo`006@3oool00`00 0000oooo0?ooo`3g0?ooo`8000002`3oool00180oooo0`0000040?ooo`030000003oool0oooo0?T0 oooo0P0000090?ooo`004`3oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0?l0oooo 1@3oool00100oooo1@0000040?ooo`<00000o`3oool50?ooo`00403oool010000000oooo0?ooo`00 00050?ooo`030000003oool0oooo0?l0oooo1@3oool00140oooo00<000000?ooo`0000001@3oool0 0`000000oooo0?ooo`3o0?ooo`D0oooo000B0?ooo`8000001@3oool00`000000oooo0?ooo`3o0?oo o`D0oooo003o0?ooob40oooo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {3.48468, -5.00665, \ 0.0593402, 0.0522319}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["multipol", "Subsubsection"], Cell["\<\ take it apart : multipol [ par, v ] get the 'runs' or 'bin-sizes\" of all the partitions p of n (= length par, \ here=5), with v-length( p ) appended to it, then take the multinomial of that, and set to zero all elements from partitions that are (( either longer than \ v or )) shorter than par, and finally, clip of the elements preceding the rank of par (so, only 'lower \ down' p count).\ \>", "Text"], Cell["\<\ multipol[par_List,v_Integer]:=multi[Tr[par],v,rankpartition[par],Length[par]];\ \ \>", "Input", Evaluatable->False, FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], Cell[CellGroupData[{ Cell["multi[5,4,1,3]", "Input"], Cell[BoxData[ \({0, 0, 0, 12, 12, 4, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Append[runs[#],(*v=*)4 -Length[#]]&/@Partitions[5]", "Input"], Cell[BoxData[ \({{1, 3}, {1, 1, 2}, {1, 1, 2}, {2, 1, 1}, {1, 2, 1}, {3, 1, 0}, {5, \(-1\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Multinomial@@@%", "Input"], Cell[BoxData[ \({4, 12, 12, 12, 12, 4, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ If[Length[#]> (*v=*)4 ||Length[#]< (*le=*)3,0,1] * \ Multinomial@@Append[runs[#],(*v=*)4 -Length[#]]&/@Partitions[5]\ \>", "Input"], Cell[BoxData[ \({0, 0, 0, 12, 12, 4, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ If[Length[#]< (*le=*)3,0,1] * Multinomial@@Append[runs[#],(*v=*)4 \ -Length[#]]&/@Partitions[5]\ \>", "Input"], Cell[BoxData[ \({0, 0, 0, 12, 12, 4, 0}\)], "Output"] }, Open ]], Cell["simpler, more compact, but not much faster:", "Text"], Cell["\<\ multipol2[par_List,v_Integer]:=If[Length[#]< Length[par] ,0,1] * \ Multinomial@@Append[runs[#],v-Length[#]]&/@(Drop[#,-1+Tr@Position[#,par]]&@\ Partitions[Tr[par]])\ \>", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["how it hangs together", "Subsubsection"], Cell[TextData[StyleBox["schur[p_]:=Block[{le=Length[p],n=Tr[p]},Together[\ Expand[Factor[Det[Outer[#2^#1&,p+le-Range[le] , \ Array[x,le]]]]/Factor[Det[Outer[#2^#1&,Range[le-1,0,-1] , Array[x,le]]]] ]] \ ];", FontFamily->"Arial", FontWeight->"Bold"]], "Input", FontFamily->"Courier New", FontSize->10, FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], Cell[TextData[StyleBox["toz[p_]:=Block[{a,q,e,w},\nu1=Expand[q \ Together[Expand[schur[p]]] +q a]/. Plus-> List ;\nu2=u1/. Times->w /. \ q->Sequence[]/. w[i_Integer, r__]-> i w[r] /. x[_]^(e_:1) ->e ;\n\ u3=Plus@@u2/. w[arg__]:> Reverse@Sort@w[arg] /. w[a]->0 ]", FontFamily->"Arial"]], "Input", FontFamily->"Courier New", FontSize->10, FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], Cell[TextData[StyleBox["tow[expr_]:=Block[{a,q,e,w},\nu1=Expand[q \ Together[Expand[expr]] +q a]/. Plus-> List ;\nu2=u1/. Times->w /. \ q->Sequence[]/. w[i_Integer, r__]-> i w[r] /. x[_]^(e_:1) ->e ;\n\ u3=Plus@@u2/. w[arg__]:> Reverse@Sort@w[arg] /. w[a]->0 ]", FontFamily->"Arial"]], "Input", FontFamily->"Courier New", FontSize->10, FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], Cell[TextData[StyleBox["hooklength[(p_)?PartitionQ] := Block[{ferr = \ (PadLeft[1 + 0*Range[#1], Max[p]] & ) /@ p}, \ DeleteCases[(Rest[FoldList[Plus, 0, #1]] & ) /@ ferr + Reverse /@ \ Reverse[Transpose[(Rest[FoldList[Plus, 0, #1]] & ) /@ Reverse[Reverse /@ \ Transpose[ferr]]]], 0, -1] - 1];", FontFamily->"Arial", FontSize->10]], "Input"], Cell[TextData[StyleBox["content[(p_)?PartitionQ] := Block[{le=Max[p],ferr = \ (PadLeft[1 + 0*Range[#1], Max[p]] & ) /@ p}, \ DeleteCases[MapIndexed[-le+Range[le,1,-1]-#1-Tr[#2]&,0*ferr ] ferr \ ,0,-1]+le];", FontFamily->"Arial", FontSize->10]], "Input"], Cell[TextData[StyleBox[" stanley[(p_)?PartitionQ,t_Integer] := Times@@( \ (t+Flatten[content[p]])/Flatten[hooklength[p]] );", FontFamily->"Arial", FontSize->10]], "Input"], Cell[TextData[{ StyleBox["majorsweak[left_List,right_List]:=Block[{le1=Length[left],le2=\ Length[right]},If[Or[le2>le1,Min[Sign[left-PadRight[right,le1]]]<0],False,\ True]];", FontFamily->"Arial", FontSize->10], "" }], "Input"], Cell[TextData[StyleBox["majorsstrong[left_List,right_List]:= Not[ Or[ \ First[right]>First[left], Min[ Sign[PadRight[left,Length[right]]-right] ]<1 ] \ ];", FontFamily->"Arial", FontSize->10]], "Input"], Cell[TextData[StyleBox["space[par_List,v_Integer]:=MapIndexed[ Cases[ #1 \ ,q_List/; majorsweak[ q \ ,(1-Tr[#2])+Take[TransposePartition[par],Part[par,Tr@#2]] ] ]& \ ,MapIndexed[Function[{q,i}, \ Select[Union[PadRight[#,q]&/@Partitions[q*(v+1-Tr@i),(v+1-Tr@i) ]], \ First[#]>=1-First[i]+Length[par] & ] ], par ]];", FontFamily->"Arial", FontSize->10]], "Input"], Cell[TextData[StyleBox["SSYT[par_List,v_Integer]:=Block[{solspace},solspace=\ space[par,v];If[Length[solspace]===1,List/@Flatten[solspace,1], \ Backtrack[solspace,(If[Length[#]<2,True,majorsstrong[#[[-2]],#[[-1]]]])&,True&\ ,All]]];", FontFamily->"Arial", FontSize->10]], "Input"], Cell[TextData[StyleBox["sagan[par_List,v_Integer]:=Block[{freq},freq=Map[ \ Function[q, Count[Flatten[q],#]&/@Range[v] ] , SSYT[par ,v ] , {1} ]; Tr[ \ w[DeleteCases[Reverse[Sort[#]],0]]&/@freq ] ]/. w[q_]->p^rankpartition[q];", FontFamily->"Arial", FontSize->10]], "Input"], Cell["\<\ Many sets of symmetric functions of degree n in v variables can be defined. One way is to start from the (n+v-1 choose v-1) compositions of n into v \ parts:\ \>", "Text"], Cell[CellGroupData[{ Cell["\<\ Compositions[5,3] {Length[%],Binomial[5+3-1,3-1]} Tr[ (Times@@(Array[x,3]^#))&/@%% ] tow[%]\ \>", "Input"], Cell[BoxData[ \({{0, 0, 5}, {0, 1, 4}, {0, 2, 3}, {0, 3, 2}, {0, 4, 1}, {0, 5, 0}, {1, 0, 4}, {1, 1, 3}, {1, 2, 2}, {1, 3, 1}, {1, 4, 0}, {2, 0, 3}, {2, 1, 2}, {2, 2, 1}, {2, 3, 0}, {3, 0, 2}, {3, 1, 1}, {3, 2, 0}, {4, 0, 1}, {4, 1, 0}, {5, 0, 0}}\)], "Output"], Cell[BoxData[ \({21, 21}\)], "Output"], Cell[BoxData[ \(x[1]\^5 + x[1]\^4\ x[2] + x[1]\^3\ x[2]\^2 + x[1]\^2\ x[2]\^3 + x[1]\ x[2]\^4 + x[2]\^5 + x[1]\^4\ x[3] + x[1]\^3\ x[2]\ x[3] + x[1]\^2\ x[2]\^2\ x[3] + x[1]\ x[2]\^3\ x[3] + x[2]\^4\ x[3] + x[1]\^3\ x[3]\^2 + x[1]\^2\ x[2]\ x[3]\^2 + x[1]\ x[2]\^2\ x[3]\^2 + x[2]\^3\ x[3]\^2 + x[1]\^2\ x[3]\^3 + x[1]\ x[2]\ x[3]\^3 + x[2]\^2\ x[3]\^3 + x[1]\ x[3]\^4 + x[2]\ x[3]\^4 + x[3]\^5\)], "Output"], Cell[BoxData[ \(3\ w[5] + 6\ w[3, 2] + 6\ w[4, 1] + 3\ w[2, 2, 1] + 3\ w[3, 1, 1]\)], "Output"] }, Open ]], Cell["\<\ Another way is to start from the partitions of n, zero-padded to v parts, \ and consider all their permutations\ \>", "Text"], Cell[CellGroupData[{ Cell["\<\ PadRight[#,3]&/@Reverse[TransposePartition/@Partitions[5,3] ] Permutations/@%\ \>", "Input"], Cell[BoxData[ \({{5, 0, 0}, {4, 1, 0}, {3, 2, 0}, {3, 1, 1}, {2, 2, 1}}\)], "Output"], Cell[BoxData[ \({{{5, 0, 0}, {0, 5, 0}, {0, 0, 5}}, {{4, 1, 0}, {4, 0, 1}, {1, 4, 0}, {1, 0, 4}, {0, 4, 1}, {0, 1, 4}}, {{3, 2, 0}, {3, 0, 2}, {2, 3, 0}, {2, 0, 3}, {0, 3, 2}, {0, 2, 3}}, {{3, 1, 1}, {1, 3, 1}, {1, 1, 3}}, {{2, 2, 1}, {2, 1, 2}, {1, 2, 2}}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Tr[ (Times@@(Array[x,3]^#))&/@Flatten[%,1] ] tow[%]\ \>", "Input"], Cell[BoxData[ \(x[1]\^5 + x[1]\^4\ x[2] + x[1]\^3\ x[2]\^2 + x[1]\^2\ x[2]\^3 + x[1]\ x[2]\^4 + x[2]\^5 + x[1]\^4\ x[3] + x[1]\^3\ x[2]\ x[3] + x[1]\^2\ x[2]\^2\ x[3] + x[1]\ x[2]\^3\ x[3] + x[2]\^4\ x[3] + x[1]\^3\ x[3]\^2 + x[1]\^2\ x[2]\ x[3]\^2 + x[1]\ x[2]\^2\ x[3]\^2 + x[2]\^3\ x[3]\^2 + x[1]\^2\ x[3]\^3 + x[1]\ x[2]\ x[3]\^3 + x[2]\^2\ x[3]\^3 + x[1]\ x[3]\^4 + x[2]\ x[3]\^4 + x[3]\^5\)], "Output"], Cell[BoxData[ \(3\ w[5] + 6\ w[3, 2] + 6\ w[4, 1] + 3\ w[2, 2, 1] + 3\ w[3, 1, 1]\)], "Output"] }, Open ]], Cell[" the Schur poly's :", "Text"], Cell[CellGroupData[{ Cell["\<\ toz/@(PadRight[#,3]&/@Reverse[TransposePartition/@Partitions[5,3] ]) \ //ColumnForm\ \>", "Input"], Cell[BoxData[ InterpretationBox[GridBox[{ {\(3\ w[5] + 6\ w[3, 2] + 6\ w[4, 1] + 3\ w[2, 2, 1] + 3\ w[3, 1, 1]\)}, {\(6\ w[3, 2] + 6\ w[4, 1] + 6\ w[2, 2, 1] + 6\ w[3, 1, 1]\)}, {\(6\ w[3, 2] + 6\ w[2, 2, 1] + 3\ w[3, 1, 1]\)}, {\(3\ w[2, 2, 1] + 3\ w[3, 1, 1]\)}, {\(3\ w[2, 2, 1]\)} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ { Plus[ Times[ 3, w[ 5]], Times[ 6, w[ 3, 2]], Times[ 6, w[ 4, 1]], Times[ 3, w[ 2, 2, 1]], Times[ 3, w[ 3, 1, 1]]], Plus[ Times[ 6, w[ 3, 2]], Times[ 6, w[ 4, 1]], Times[ 6, w[ 2, 2, 1]], Times[ 6, w[ 3, 1, 1]]], Plus[ Times[ 6, w[ 3, 2]], Times[ 6, w[ 2, 2, 1]], Times[ 3, w[ 3, 1, 1]]], Plus[ Times[ 3, w[ 2, 2, 1]], Times[ 3, w[ 3, 1, 1]]], Times[ 3, w[ 2, 2, 1]]}], Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["sagan[{5},3]", "Input"], Cell[BoxData[ \(3\ p + 6\ p\^2 + 6\ p\^3 + 3\ p\^4 + 3\ p\^5\)], "Output"] }, Open ]], Cell["Similarly, degree n=3 and v=5", "Text"], Cell[CellGroupData[{ Cell["\<\ Compositions[3,5] Length[%] Tr[ (Times@@(Array[x,5]^#))&/@%% ] tow[%]\ \>", "Input"], Cell[BoxData[ \({{0, 0, 0, 0, 3}, {0, 0, 0, 1, 2}, {0, 0, 0, 2, 1}, {0, 0, 0, 3, 0}, {0, 0, 1, 0, 2}, {0, 0, 1, 1, 1}, {0, 0, 1, 2, 0}, {0, 0, 2, 0, 1}, {0, 0, 2, 1, 0}, {0, 0, 3, 0, 0}, {0, 1, 0, 0, 2}, {0, 1, 0, 1, 1}, {0, 1, 0, 2, 0}, {0, 1, 1, 0, 1}, {0, 1, 1, 1, 0}, {0, 1, 2, 0, 0}, {0, 2, 0, 0, 1}, {0, 2, 0, 1, 0}, {0, 2, 1, 0, 0}, {0, 3, 0, 0, 0}, {1, 0, 0, 0, 2}, {1, 0, 0, 1, 1}, {1, 0, 0, 2, 0}, {1, 0, 1, 0, 1}, {1, 0, 1, 1, 0}, {1, 0, 2, 0, 0}, {1, 1, 0, 0, 1}, {1, 1, 0, 1, 0}, {1, 1, 1, 0, 0}, {1, 2, 0, 0, 0}, {2, 0, 0, 0, 1}, {2, 0, 0, 1, 0}, {2, 0, 1, 0, 0}, {2, 1, 0, 0, 0}, {3, 0, 0, 0, 0}}\)], "Output"], Cell[BoxData[ \(35\)], "Output"], Cell[BoxData[ \(x[1]\^3 + x[1]\^2\ x[2] + x[1]\ x[2]\^2 + x[2]\^3 + x[1]\^2\ x[3] + x[1]\ x[2]\ x[3] + x[2]\^2\ x[3] + x[1]\ x[3]\^2 + x[2]\ x[3]\^2 + x[3]\^3 + x[1]\^2\ x[4] + x[1]\ x[2]\ x[4] + x[2]\^2\ x[4] + x[1]\ x[3]\ x[4] + x[2]\ x[3]\ x[4] + x[3]\^2\ x[4] + x[1]\ x[4]\^2 + x[2]\ x[4]\^2 + x[3]\ x[4]\^2 + x[4]\^3 + x[1]\^2\ x[5] + x[1]\ x[2]\ x[5] + x[2]\^2\ x[5] + x[1]\ x[3]\ x[5] + x[2]\ x[3]\ x[5] + x[3]\^2\ x[5] + x[1]\ x[4]\ x[5] + x[2]\ x[4]\ x[5] + x[3]\ x[4]\ x[5] + x[4]\^2\ x[5] + x[1]\ x[5]\^2 + x[2]\ x[5]\^2 + x[3]\ x[5]\^2 + x[4]\ x[5]\^2 + x[5]\^3\)], "Output"], Cell[BoxData[ \(5\ w[3] + 20\ w[2, 1] + 10\ w[1, 1, 1]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Binomial[5+3-1,5-1]", "Input"], Cell[BoxData[ \(35\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ PadRight[#,5]&/@Reverse[TransposePartition/@Partitions[3,3] ] Permutations/@%\ \>", "Input"], Cell[BoxData[ \({{3, 0, 0, 0, 0}, {2, 1, 0, 0, 0}, {1, 1, 1, 0, 0}}\)], "Output"], Cell[BoxData[ \({{{3, 0, 0, 0, 0}, {0, 3, 0, 0, 0}, {0, 0, 3, 0, 0}, {0, 0, 0, 3, 0}, {0, 0, 0, 0, 3}}, {{2, 1, 0, 0, 0}, {2, 0, 1, 0, 0}, {2, 0, 0, 1, 0}, {2, 0, 0, 0, 1}, {1, 2, 0, 0, 0}, {1, 0, 2, 0, 0}, {1, 0, 0, 2, 0}, {1, 0, 0, 0, 2}, {0, 2, 1, 0, 0}, {0, 2, 0, 1, 0}, {0, 2, 0, 0, 1}, {0, 1, 2, 0, 0}, {0, 1, 0, 2, 0}, {0, 1, 0, 0, 2}, {0, 0, 2, 1, 0}, {0, 0, 2, 0, 1}, {0, 0, 1, 2, 0}, {0, 0, 1, 0, 2}, {0, 0, 0, 2, 1}, {0, 0, 0, 1, 2}}, {{1, 1, 1, 0, 0}, {1, 1, 0, 1, 0}, {1, 1, 0, 0, 1}, {1, 0, 1, 1, 0}, {1, 0, 1, 0, 1}, {1, 0, 0, 1, 1}, {0, 1, 1, 1, 0}, {0, 1, 1, 0, 1}, {0, 1, 0, 1, 1}, {0, 0, 1, 1, 1}}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Tr[ (Times@@(Array[x,5]^#))&/@Flatten[%,1] ] tow[%]\ \>", "Input"], Cell[BoxData[ \(x[1]\^3 + x[1]\^2\ x[2] + x[1]\ x[2]\^2 + x[2]\^3 + x[1]\^2\ x[3] + x[1]\ x[2]\ x[3] + x[2]\^2\ x[3] + x[1]\ x[3]\^2 + x[2]\ x[3]\^2 + x[3]\^3 + x[1]\^2\ x[4] + x[1]\ x[2]\ x[4] + x[2]\^2\ x[4] + x[1]\ x[3]\ x[4] + x[2]\ x[3]\ x[4] + x[3]\^2\ x[4] + x[1]\ x[4]\^2 + x[2]\ x[4]\^2 + x[3]\ x[4]\^2 + x[4]\^3 + x[1]\^2\ x[5] + x[1]\ x[2]\ x[5] + x[2]\^2\ x[5] + x[1]\ x[3]\ x[5] + x[2]\ x[3]\ x[5] + x[3]\^2\ x[5] + x[1]\ x[4]\ x[5] + x[2]\ x[4]\ x[5] + x[3]\ x[4]\ x[5] + x[4]\^2\ x[5] + x[1]\ x[5]\^2 + x[2]\ x[5]\^2 + x[3]\ x[5]\^2 + x[4]\ x[5]\^2 + x[5]\^3\)], "Output"], Cell[BoxData[ \(5\ w[3] + 20\ w[2, 1] + 10\ w[1, 1, 1]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["toz[{3,0,0,0,0}]", "Input"], Cell[BoxData[ \(5\ w[3] + 20\ w[2, 1] + 10\ w[1, 1, 1]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["sagan[{3},5]", "Input"], Cell[BoxData[ \(5\ p + 20\ p\^2 + 10\ p\^3\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["SSYT[{3},5]", "Input"], Cell[BoxData[ \({{{1, 1, 1}}, {{2, 1, 1}}, {{2, 2, 1}}, {{2, 2, 2}}, {{3, 1, 1}}, {{3, 2, 1}}, {{3, 2, 2}}, {{3, 3, 1}}, {{3, 3, 2}}, {{3, 3, 3}}, {{4, 1, 1}}, {{4, 2, 1}}, {{4, 2, 2}}, {{4, 3, 1}}, {{4, 3, 2}}, {{4, 3, 3}}, {{4, 4, 1}}, {{4, 4, 2}}, {{4, 4, 3}}, {{4, 4, 4}}, {{5, 1, 1}}, {{5, 2, 1}}, {{5, 2, 2}}, {{5, 3, 1}}, {{5, 3, 2}}, {{5, 3, 3}}, {{5, 4, 1}}, {{5, 4, 2}}, {{5, 4, 3}}, {{5, 4, 4}}, {{5, 5, 1}}, {{5, 5, 2}}, {{5, 5, 3}}, {{5, 5, 4}}, {{5, 5, 5}}}\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[" counting SSYT with content \[Mu].", "Subsubsection"], Cell["\<\ http://unapologetic.wordpress.com/2011/02/18/more-kostka-numbers/\ \>", "Text"], Cell[BoxData[ \(contents[\ li : {{__} .. }] := Table[Count[Sort[Flatten[li]], k], {k, Max[Flatten[li]]}]\)], "Input"], Cell["\<\ contents[ list ] counts the occurrences of 1 ..n in the list \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(contents[{{1, 1, 1, 1, 2, 2, 5, 7, 7, 7}}]\)], "Input"], Cell[BoxData[ \({4, 2, 0, 0, 1, 0, 3}\)], "Output"] }, Open ]], Cell[BoxData[ \(tableauxForm[ wuk_List] := \ \(TableForm[#, TableSpacing \[Rule] {0, 0}] &\) /@ \ wuk\ /. q : {__Integer} \[RuleDelayed] StringJoin @@ \(ToString /@ q\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Mu] = {3, 3, 2, 1, 1}; \ mx = Length[\[Mu]]; rankpartition[\[Mu]]\)], "Input"], Cell[BoxData[ \(31\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(stanley[\[Mu], mx]\)], "Input"], Cell[BoxData[ \(75\)], "Output"] }, Open ]], Cell["\<\ among the SSYT of shape \[Mu], only the first has contents \[Mu]\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(SSYT[\[Mu], mx] // tableauxForm\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"532\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533\"\>"}, {"\<\"422\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533", "422", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542\"\>"}, {"\<\"431\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542", "431", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542\"\>"}, {"\<\"431\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542", "431", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543\"\>"}, {"\<\"422\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543", "422", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543\"\>"}, {"\<\"431\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543", "431", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543\"\>"}, {"\<\"431\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543", "431", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543\"\>"}, {"\<\"432\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543", "432", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543\"\>"}, {"\<\"432\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543", "432", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"422\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "422", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"431\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "431", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"431\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "431", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"432\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "432", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"432\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "432", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"433\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "433", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"544\"\>"}, {"\<\"433\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"544", "433", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"552\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"552", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"552\"\>"}, {"\<\"431\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"552", "431", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"552\"\>"}, {"\<\"431\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"552", "431", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"552\"\>"}, {"\<\"441\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"552", "441", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"552\"\>"}, {"\<\"441\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"552", "441", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"552\"\>"}, {"\<\"441\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"552", "441", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"422\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "422", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"431\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "431", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"431\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "431", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"432\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "432", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"432\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "432", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"441\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "441", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"441\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "441", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"441\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "441", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"442\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "442", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"442\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "442", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"553\"\>"}, {"\<\"442\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"553", "442", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"422\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "422", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"431\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "431", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"431\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "431", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"432\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "432", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"432\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "432", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"433\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "433", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"433\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "433", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"441\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "441", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"441\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "441", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"441\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "441", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"442\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "442", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"442\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "442", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"442\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "442", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"443\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "443", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"443\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "443", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"554\"\>"}, {"\<\"443\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"554", "443", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "421", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"422\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "422", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"431\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "431", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"431\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "431", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"432\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "432", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"432\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "432", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"433\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "433", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"433\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "433", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"441\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "441", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"441\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "441", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"441\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "441", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"442\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "442", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"442\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "442", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"442\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "442", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"443\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "443", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"443\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "443", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"443\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "443", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"444\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "444", "31", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"444\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "444", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"555\"\>"}, {"\<\"444\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"555", "444", "33", "2", "1"}, TableSpacing -> "00"]]}], "}"}]], "Output"] }, Open ]], Cell["\<\ zoo is the set of all SSYT (with largest element at most mx) of any shape \ with Tr[\[Mu]] parts\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Tr[\ \(stanley[#, mx] &\)\ /@ \ Partitions[Tr@\[Mu]]\ ]\)], "Input"], Cell[BoxData[ \(45628\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Map[tableauxForm\ , zoo = \ \(SSYT[#, mx] &\) /@ Partitions[Tr[\[Mu]]], {1}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Length[Flatten[zoo, 1]]\)], "Input"], Cell[BoxData[ \(45628\)], "Output"] }, Open ]], Cell["\<\ the count of SSYT with contents \[Mu] within zoo equals the rankpartition[\ \[Mu]] -th column in the Kostka matrix:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Map[ Count[#, \[Mu]] &\ , \ \(\((contents /@ SSYT[#, mx])\) &\) /@ Partitions[Tr[\[Mu]]]\ \ ]\)], "Input"], Cell[BoxData[ \({1, 4, 8, 6, 11, 14, 4, 10, 19, 9, 9, 1, 4, 14, 14, 11, 6, 2, 0, 7, 5, 5, 8, 2, 1, 1, 0, 0, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Part[\ \(PadLeft[#, PartitionsP[Tr[\[Mu]]]] &\) /@ \(kostka /@ Partitions[Tr[\[Mu]]]\)\ , All, \ rankpartition@\[Mu]\ ]\)], "Input"], Cell[BoxData[ \({1, 4, 8, 6, 11, 14, 4, 10, 19, 9, 9, 1, 4, 14, 14, 11, 6, 2, 0, 7, 5, 5, 8, 2, 1, 1, 0, 0, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(PadLeft[#, PartitionsP[Tr[\[Mu]]]] &\) /@ \(kostka /@ Partitions[Tr[\[Mu]]]\)\ // MatrixForm\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"}, {"0", "1", "1", "2", "1", "2", "3", "1", "2", "2", "3", "4", "1", "2", "2", "3", "3", "4", "5", "2", "3", "2", "3", "4", "3", "4", "5", "6", "3", "3", "4", "5", "4", "5", "6", "7", "4", "5", "6", "7", "8", "9"}, {"0", "0", "1", "1", "1", "2", "3", "1", "2", "3", "4", "6", "1", "2", "3", "4", "5", "7", "10", "3", "4", "3", "5", "7", "6", "8", "11", "15", "5", "6", "8", "11", "9", "12", "16", "21", "10", "13", "17", "22", "28", "35"}, {"0", "0", "0", "1", "0", "1", "3", "0", "1", "1", "3", "6", "0", "1", "1", "3", "3", "6", "10", "1", "3", "1", "3", "6", "3", "6", "10", "15", "3", "3", "6", "10", "6", "10", "15", "21", "6", "10", "15", "21", "28", "36"}, {"0", "0", "0", "0", "1", "1", "1", "1", "2", "2", "3", "4", "1", "2", "3", "4", "5", "7", "10", "3", "4", "4", "6", "8", "7", "10", "14", "20", "7", "8", "11", "15", "13", "18", "25", "35", "15", "21", "29", "40", "55", "75"}, {"0", "0", "0", "0", "0", "1", "2", "0", "1", "2", "4", "8", "0", "1", "2", "4", "6", "11", "20", "2", "4", "2", "6", "11", "8", "14", "24", "40", "6", "8", "14", "24", "17", "28", "45", "70", "20", "32", "50", "76", "112", "160"}, {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "1", "4", "0", "0", "0", "1", "1", "4", "10", "0", "1", "0", "1", "4", "1", "4", "10", "20", "1", "1", "4", "10", "4", "10", "20", "35", "4", "10", "20", "35", "56", "84"}, {"0", "0", "0", "0", "0", "0", "0", "1", "1", "1", "1", "1", "1", "2", "2", "3", "3", "4", "5", "3", "4", "3", "5", "7", "6", "8", "11", "15", "6", "7", "10", "14", "12", "17", "24", "34", "15", "21", "30", "43", "62", "90"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "3", "0", "1", "2", "4", "5", "9", "15", "2", "4", "3", "7", "12", "9", "16", "27", "45", "9", "11", "19", "31", "24", "40", "65", "105", "30", "50", "81", "129", "203", "315"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "0", "0", "1", "1", "3", "5", "10", "1", "1", "1", "3", "5", "6", "9", "16", "30", "3", "6", "9", "16", "14", "23", "40", "70", "20", "31", "51", "85", "140", "225"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "3", "0", "0", "0", "1", "2", "6", "15", "0", "1", "0", "2", "6", "3", "9", "21", "45", "2", "3", "9", "21", "12", "27", "55", "105", "15", "33", "65", "120", "210", "350"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "1", "5", "0", "0", "0", "0", "1", "0", "1", "5", "15", "0", "0", "1", "5", "1", "5", "15", "35", "1", "5", "15", "35", "70", "126"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "1", "1", "1", "1", "1", "1", "2", "1", "2", "3", "2", "3", "4", "5", "2", "3", "4", "6", "5", "7", "10", "14", "6", "9", "13", "19", "28", "42"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "2", "3", "4", "2", "4", "2", "5", "9", "6", "10", "16", "24", "6", "8", "14", "24", "18", "30", "49", "78", "24", "40", "66", "108", "176", "288"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "3", "5", "1", "1", "2", "4", "6", "6", "10", "17", "30", "6", "9", "14", "23", "21", "35", "60", "105", "30", "51", "87", "150", "260", "450"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "3", "6", "0", "1", "0", "2", "6", "3", "8", "18", "36", "3", "4", "11", "24", "15", "33", "66", "126", "21", "45", "90", "171", "315", "567"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "2", "5", "0", "0", "0", "1", "2", "3", "6", "13", "30", "1", "3", "6", "13", "12", "24", "50", "105", "20", "38", "74", "145", "280", "525"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "4", "0", "0", "0", "0", "1", "0", "2", "8", "24", "0", "0", "2", "8", "3", "12", "34", "84", "4", "16", "44", "104", "224", "448"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "1", "6", "0", "0", "0", "1", "0", "1", "6", "21", "0", "1", "6", "21", "56", "126"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "1", "2", "3", "3", "4", "6", "9", "3", "4", "7", "12", "10", "17", "29", "49", "16", "26", "45", "79", "140", "252"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "1", "3", "1", "3", "6", "10", "1", "2", "5", "12", "7", "15", "30", "55", "10", "22", "44", "85", "160", "300"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "1", "1", "2", "3", "5", "3", "3", "5", "7", "7", "12", "20", "35", "10", "19", "34", "61", "112", "210"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "2", "2", "4", "8", "16", "2", "4", "8", "16", "14", "28", "56", "112", "24", "48", "96", "192", "384", "768"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "1", "4", "10", "0", "0", "2", "8", "3", "11", "30", "70", "5", "17", "46", "110", "245", "525"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "5", "0", "1", "1", "2", "4", "7", "15", "35", "10", "16", "31", "65", "140", "300"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "3", "9", "0", "0", "1", "3", "3", "9", "24", "63", "6", "18", "45", "108", "252", "567"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "5", "0", "0", "0", "1", "0", "2", "10", "35", "0", "3", "15", "50", "140", "350"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "1", "7", "0", "0", "1", "7", "28", "84"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "3", "3", "6", "11", "21", "5", "11", "23", "47", "98", "210"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "3", "5", "10", "21", "6", "12", "24", "51", "112", "252"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "3", "2", "6", "15", "35", "5", "13", "33", "80", "190", "450"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "1", "5", "15", "0", "2", "9", "30", "85", "225"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "2", "5", "14", "4", "8", "18", "44", "112", "288"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "4", "14", "0", "3", "12", "38", "112", "315"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "6", "0", "0", "2", "12", "48", "160"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "1", "8", "36"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "2", "5", "14", "42"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "3", "9", "28", "90"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "5", "20", "75"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "7", "35"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "9"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(idx = Map[Flatten[ Position[#, \[Mu]]] &\ , \ \(\((contents /@ SSYT[#, mx])\) &\) /@ Partitions[Tr[\[Mu]]]\ \ ]\)], "Input"], Cell[BoxData[ \({{362}, {678, 821, 844, 847}, {868, 874, 1027, 1080, 1088, 1123, 1131, 1139}, {468, 503, 508, 669, 674, 703}, {825, 834, 843, 979, 1021, 1034, 1047, 1074, 1087, 1100, 1113}, {712, 721, 771, 780, 782, 791, 970, 986, 1053, 1068, 1069, 1084, 1134, 1150}, {124, 127, 146, 229}, {583, 592, 601, 696, 715, 728, 741, 754, 772, 790}, {678, 687, 719, 734, 736, 749, 751, 766, 907, 923, 959, 985, 986, 1011, 1012, 1038, 1065, 1092, 1119}, {288, 311, 316, 380, 393, 406, 447, 460, 501}, {176, 181, 183, 188, 214, 219, 307, 354, 365}, {9}, {216, 252, 261, 272}, {408, 417, 434, 436, 449, 451, 536, 552, 569, 570, 595, 596, 621, 659}, {312, 329, 338, 340, 349, 396, 409, 422, 438, 464, 465, 491, 518, 545}, {146, 151, 153, 158, 172, 181, 190, 249, 273, 292, 311}, {78, 81, 92, 125, 136, 171}, {8, 9}, {}, {132, 140, 142, 167, 180, 181, 206}, {59, 61, 69, 93, 104}, {75, 80, 91, 104, 117}, {68, 71, 78, 83, 99, 110, 122, 145}, {4, 5}, {15}, {2}, {}, {}, {12, 15}, {7}, {1}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}\)], \ "Output"] }, Open ]], Cell["\<\ these are the tableaux with content \[Mu] amongst all tableaux of \ Partitions[ Tr@ \[Mu] ]\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Map[tableauxForm, res = MapIndexed[Part[zoo[\([First@#2]\)], #1] &, \ idx], {1}]\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", InterpretationBox[GridBox[{ {"\<\"5433222111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433222111"}, TableSpacing -> "00"]], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"533222111\"\>"}, {"\<\"4\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533222111", "4"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543222111\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543222111", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543322111\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543322111", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543322211\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543322211", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53322111\"\>"}, {"\<\"42\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322111", "42"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53322211\"\>"}, {"\<\"41\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322211", "41"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54222111\"\>"}, {"\<\"33\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54222111", "33"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322111\"\>"}, {"\<\"32\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322111", "32"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322211\"\>"}, {"\<\"31\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322211", "31"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54332111\"\>"}, {"\<\"22\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54332111", "22"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54332211\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54332211", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54332221\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54332221", "11"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53222111\"\>"}, {"\<\"4\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53222111", "4", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53322111\"\>"}, {"\<\"4\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322111", "4", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53322211\"\>"}, {"\<\"4\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322211", "4", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322111\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322111", "3", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322211\"\>"}, {"\<\"3\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322211", "3", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54332211\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54332211", "2", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5332111\"\>"}, {"\<\"422\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332111", "422"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332211\"\>"}, {"\<\"421\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332211", "421"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332221\"\>"}, {"\<\"411\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332221", "411"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5422211\"\>"}, {"\<\"331\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5422211", "331"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432111\"\>"}, {"\<\"322\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432111", "322"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432211\"\>"}, {"\<\"321\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432211", "321"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432221\"\>"}, {"\<\"311\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432221", "311"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433111\"\>"}, {"\<\"222\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433111", "222"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433211\"\>"}, {"\<\"221\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433211", "221"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433221\"\>"}, {"\<\"211\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433221", "211"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433222\"\>"}, {"\<\"111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433222", "111"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5322111\"\>"}, {"\<\"42\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322111", "42", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5322211\"\>"}, {"\<\"41\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322211", "41", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332111\"\>"}, {"\<\"42\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332111", "42", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332211\"\>"}, {"\<\"41\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332211", "41", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332211\"\>"}, {"\<\"42\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332211", "42", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332221\"\>"}, {"\<\"41\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332221", "41", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5422111\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5422111", "33", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5422211\"\>"}, {"\<\"33\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5422211", "33", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432111\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432111", "32", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432211\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432211", "31", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432211\"\>"}, {"\<\"32\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432211", "32", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432221\"\>"}, {"\<\"31\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432221", "31", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433211\"\>"}, {"\<\"22\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433211", "22", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433221\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433221", "21", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5322111\"\>"}, {"\<\"4\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322111", "4", "3", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5322211\"\>"}, {"\<\"4\"\>"}, {"\<\"3\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322211", "4", "3", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332211\"\>"}, {"\<\"4\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332211", "4", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432211\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432211", "3", "2", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"533211\"\>"}, {"\<\"4221\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533211", "4221"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533221\"\>"}, {"\<\"4211\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533221", "4211"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533222\"\>"}, {"\<\"4111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533222", "4111"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542221\"\>"}, {"\<\"3311\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542221", "3311"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543211\"\>"}, {"\<\"3221\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543211", "3221"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543221\"\>"}, {"\<\"3211\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543221", "3211"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543222\"\>"}, {"\<\"3111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543222", "3111"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543311\"\>"}, {"\<\"2221\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543311", "2221"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543321\"\>"}, {"\<\"2211\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543321", "2211"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543322\"\>"}, {"\<\"2111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543322", "2111"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"532211\"\>"}, {"\<\"421\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532211", "421", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"532221\"\>"}, {"\<\"411\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532221", "411", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533111\"\>"}, {"\<\"422\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533111", "422", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533211\"\>"}, {"\<\"421\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533211", "421", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533211\"\>"}, {"\<\"422\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533211", "422", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533221\"\>"}, {"\<\"411\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533221", "411", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533221\"\>"}, {"\<\"421\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533221", "421", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533222\"\>"}, {"\<\"411\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533222", "411", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542211\"\>"}, {"\<\"331\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542211", "331", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542221\"\>"}, {"\<\"331\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542221", "331", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543111\"\>"}, {"\<\"322\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543111", "322", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543211\"\>"}, {"\<\"321\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543211", "321", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543211\"\>"}, {"\<\"322\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543211", "322", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543221\"\>"}, {"\<\"311\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543221", "311", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543221\"\>"}, {"\<\"321\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543221", "321", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543222\"\>"}, {"\<\"311\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543222", "311", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543311\"\>"}, {"\<\"222\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543311", "222", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543321\"\>"}, {"\<\"221\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543321", "221", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543322\"\>"}, {"\<\"211\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543322", "211", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"532211\"\>"}, {"\<\"42\"\>"}, {"\<\"31\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532211", "42", "31"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533211\"\>"}, {"\<\"42\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533211", "42", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533221\"\>"}, {"\<\"42\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533221", "42", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542111\"\>"}, {"\<\"33\"\>"}, {"\<\"22\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542111", "33", "22"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542211\"\>"}, {"\<\"33\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542211", "33", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542221\"\>"}, {"\<\"33\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542221", "33", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543211\"\>"}, {"\<\"32\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543211", "32", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543221\"\>"}, {"\<\"32\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543221", "32", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543321\"\>"}, {"\<\"22\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543321", "22", "11"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"532111\"\>"}, {"\<\"42\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532111", "42", "3", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"532211\"\>"}, {"\<\"41\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532211", "41", "3", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"532211\"\>"}, {"\<\"42\"\>"}, {"\<\"3\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532211", "42", "3", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"532221\"\>"}, {"\<\"41\"\>"}, {"\<\"3\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532221", "41", "3", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533211\"\>"}, {"\<\"42\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533211", "42", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"533221\"\>"}, {"\<\"41\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533221", "41", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"542211\"\>"}, {"\<\"33\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542211", "33", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543211\"\>"}, {"\<\"32\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543211", "32", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543221\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543221", "31", "2", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", InterpretationBox[GridBox[{ {"\<\"532211\"\>"}, {"\<\"4\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532211", "4", "3", "2", "1"}, TableSpacing -> "00"]], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53322\"\>"}, {"\<\"42111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322", "42111"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54222\"\>"}, {"\<\"33111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54222", "33111"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322\"\>"}, {"\<\"32111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322", "32111"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54332\"\>"}, {"\<\"22111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54332", "22111"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53221\"\>"}, {"\<\"4211\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53221", "4211", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53222\"\>"}, {"\<\"4111\"\>"}, {"\<\"3\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53222", "4111", "3"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53321\"\>"}, {"\<\"4211\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53321", "4211", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53321\"\>"}, {"\<\"4221\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53321", "4221", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53322\"\>"}, {"\<\"4111\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322", "4111", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53322\"\>"}, {"\<\"4211\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322", "4211", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54221\"\>"}, {"\<\"3311\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54221", "3311", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54222\"\>"}, {"\<\"3311\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54222", "3311", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54321\"\>"}, {"\<\"3211\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54321", "3211", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54321\"\>"}, {"\<\"3221\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54321", "3221", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322\"\>"}, {"\<\"3111\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322", "3111", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322\"\>"}, {"\<\"3211\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322", "3211", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54331\"\>"}, {"\<\"2221\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54331", "2221", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54332\"\>"}, {"\<\"2211\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54332", "2211", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53221\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53221", "421", "31"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53311\"\>"}, {"\<\"422\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53311", "422", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53321\"\>"}, {"\<\"421\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53321", "421", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53321\"\>"}, {"\<\"422\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53321", "422", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53322\"\>"}, {"\<\"421\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322", "421", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54211\"\>"}, {"\<\"331\"\>"}, {"\<\"22\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54211", "331", "22"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54221\"\>"}, {"\<\"331\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54221", "331", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54222\"\>"}, {"\<\"331\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54222", "331", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54311\"\>"}, {"\<\"322\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54311", "322", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54321\"\>"}, {"\<\"321\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54321", "321", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54321\"\>"}, {"\<\"322\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54321", "322", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322\"\>"}, {"\<\"321\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322", "321", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54331\"\>"}, {"\<\"222\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54331", "222", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54332\"\>"}, {"\<\"221\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54332", "221", "11"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53211\"\>"}, {"\<\"421\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53211", "421", "3", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53221\"\>"}, {"\<\"411\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53221", "411", "3", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53221\"\>"}, {"\<\"421\"\>"}, {"\<\"3\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53221", "421", "3", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53222\"\>"}, {"\<\"411\"\>"}, {"\<\"3\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53222", "411", "3", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53311\"\>"}, {"\<\"422\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53311", "422", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53321\"\>"}, {"\<\"421\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53321", "421", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53322\"\>"}, {"\<\"411\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53322", "411", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54221\"\>"}, {"\<\"331\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54221", "331", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54311\"\>"}, {"\<\"322\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54311", "322", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54321\"\>"}, {"\<\"321\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54321", "321", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54322\"\>"}, {"\<\"311\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54322", "311", "2", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53211\"\>"}, {"\<\"42\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53211", "42", "31", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53221\"\>"}, {"\<\"42\"\>"}, {"\<\"31\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53221", "42", "31", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53321\"\>"}, {"\<\"42\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53321", "42", "21", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54211\"\>"}, {"\<\"33\"\>"}, {"\<\"22\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54211", "33", "22", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54221\"\>"}, {"\<\"33\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54221", "33", "21", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"54321\"\>"}, {"\<\"32\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"54321", "32", "21", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"53211\"\>"}, {"\<\"42\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53211", "42", "3", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"53221\"\>"}, {"\<\"41\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"53221", "41", "3", "2", "1"}, TableSpacing -> "00"]]}], "}"}], ",", \({}\), ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5322\"\>"}, {"\<\"4211\"\>"}, {"\<\"31\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322", "4211", "31"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332\"\>"}, {"\<\"4211\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332", "4211", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332\"\>"}, {"\<\"4221\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332", "4221", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5422\"\>"}, {"\<\"3311\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5422", "3311", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432\"\>"}, {"\<\"3211\"\>"}, {"\<\"21\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432", "3211", "21"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432\"\>"}, {"\<\"3221\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432", "3221", "11"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433\"\>"}, {"\<\"2221\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433", "2221", "11"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5322\"\>"}, {"\<\"4111\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322", "4111", "3", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5322\"\>"}, {"\<\"4211\"\>"}, {"\<\"3\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322", "4211", "3", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332\"\>"}, {"\<\"4211\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332", "4211", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5422\"\>"}, {"\<\"3311\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5422", "3311", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432\"\>"}, {"\<\"3211\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432", "3211", "2", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5331\"\>"}, {"\<\"422\"\>"}, {"\<\"211\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5331", "422", "211"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332\"\>"}, {"\<\"422\"\>"}, {"\<\"111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332", "422", "111"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5431\"\>"}, {"\<\"322\"\>"}, {"\<\"211\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5431", "322", "211"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432\"\>"}, {"\<\"322\"\>"}, {"\<\"111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432", "322", "111"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5433\"\>"}, {"\<\"222\"\>"}, {"\<\"111\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5433", "222", "111"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5321\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5321", "421", "31", "2"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5322\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322", "421", "31", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5331\"\>"}, {"\<\"422\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5331", "422", "21", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5332\"\>"}, {"\<\"421\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5332", "421", "21", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5421\"\>"}, {"\<\"331\"\>"}, {"\<\"22\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5421", "331", "22", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5422\"\>"}, {"\<\"331\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5422", "331", "21", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5431\"\>"}, {"\<\"322\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5431", "322", "21", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5432\"\>"}, {"\<\"321\"\>"}, {"\<\"21\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5432", "321", "21", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"5321\"\>"}, {"\<\"421\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5321", "421", "3", "2", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"5322\"\>"}, {"\<\"411\"\>"}, {"\<\"3\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5322", "411", "3", "2", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", InterpretationBox[GridBox[{ {"\<\"5421\"\>"}, {"\<\"33\"\>"}, {"\<\"22\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5421", "33", "22", "11"}, TableSpacing -> "00"]], "}"}], ",", RowBox[{"{", InterpretationBox[GridBox[{ {"\<\"5321\"\>"}, {"\<\"42\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"5321", "42", "31", "2", "1"}, TableSpacing -> "00"]], "}"}], ",", \({}\), ",", \({}\), ",", RowBox[{"{", RowBox[{ InterpretationBox[GridBox[{ {"\<\"533\"\>"}, {"\<\"422\"\>"}, {"\<\"211\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"533", "422", "211", "1"}, TableSpacing -> "00"]], ",", InterpretationBox[GridBox[{ {"\<\"543\"\>"}, {"\<\"322\"\>"}, {"\<\"211\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"543", "322", "211", "1"}, TableSpacing -> "00"]]}], "}"}], ",", RowBox[{"{", InterpretationBox[GridBox[{ {"\<\"542\"\>"}, {"\<\"331\"\>"}, {"\<\"22\"\>"}, {"\<\"11\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"542", "331", "22", "11"}, TableSpacing -> "00"]], "}"}], ",", RowBox[{"{", InterpretationBox[GridBox[{ {"\<\"532\"\>"}, {"\<\"421\"\>"}, {"\<\"31\"\>"}, {"\<\"2\"\>"}, {"\<\"1\"\>"} }, RowSpacings->0, ColumnSpacings->0, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"532", "421", "31", "2", "1"}, TableSpacing -> "00"]], "}"}], ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\), ",", \({}\)}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Map[contents, res, {2}]\)], "Input"], Cell[BoxData[ \({{{3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}}, {}, {}, {{3, 3, 2, 1, 1}, {3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}}, {{3, 3, 2, 1, 1}}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}\)], "Output"] }, Closed]], Cell["\<\ column sums of the Kostka matrix of \[Mu] :\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Tr /@ Transpose[\(PadLeft[#, PartitionsP[Tr[\[Mu]]]] &\) /@ \(kostka /@ Partitions[Tr[\[Mu]]]\)\ ]\)], "Input"], Cell[BoxData[ \({1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 6, 14, 20, 34, 44, 78, 142, 16, 25, 43, 29, 64, 113, 84, 149, 270, 498, 33, 74, 132, 88, 117, 209, 381, 282, 516, 958, 1800, 143, 256, 350, 644, 1204, 484, 897, 1688, 3218, 6204, 1268, 2408, 4636, 9040, 17848, 35696}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(%[\([rankpartition[\[Mu]]]\)]\)], "Input"], Cell[BoxData[ \(256\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Length[Flatten[idx]]\)], "Input"], Cell[BoxData[ \(256\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["A&S order, column sums and A104778 (Arnold Alford)", "Subsubsection"], Cell[BoxData[ \(aspartitions[n_] := Reverse /@ Sort[Sort /@ Partitions[n]]\)], "Input"], Cell[BoxData[ \(asorder[n_] := rankpartition /@ \(Reverse /@ Sort[Sort /@ Partitions[n]]\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(aspartitions[8] \[Equal] \(Partitions[8]\)[\([asorder[8]]\)]\)], "Input"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Table[ Tr /@ Transpose[\(PadLeft[#, PartitionsP[k]] &\) /@ \(kostka /@ \ Partitions[k]\)\ \ ], {k, 11}]\)], "Input"], Cell[BoxData[ \({{1}, {1, 2}, {1, 2, 4}, {1, 2, 3, 5, 10}, {1, 2, 3, 5, 7, 13, 26}, {1, 2, 3, 5, 4, 8, 14, 11, 20, 38, 76}, {1, 2, 3, 5, 4, 8, 14, 10, 13, 23, 42, 32, 60, 116, 232}, {1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 17, 30, 40, 73, 136, 56, 103, 196, 382, 764}, {1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 13, 19, 33, 43, 77, 141, 23, 53, 96, 72, 131, 244, 462, 184, 347, 668, 1310, 2620}, {1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 6, 14, 20, 34, 44, 78, 142, 23, 40, 27, 61, 109, 81, 145, 265, 492, 74, 100, 180, 332, 248, 460, 868, 1660, 348, 652, 1244, 2412, 4748, 9496}, {1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 6, 14, 20, 34, 44, 78, 142, 16, 25, 43, 29, 64, 113, 84, 149, 270, 498, 33, 74, 132, 88, 117, 209, 381, 282, 516, 958, 1800, 143, 256, 350, 644, 1204, 484, 897, 1688, 3218, 6204, 1268, 2408, 4636, 9040, 17848, 35696}}\)], "Output"] }, Open ]], Cell["in Mma order:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Reverse /@ Reverse[\(PadLeft[kostka[#], PartitionsP[7]]\ &\) /@ \ Partitions[7]]\ // MatrixForm\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"6", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"14", "4", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"14", "5", "2", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"15", "5", "1", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"35", "15", "6", "2", "3", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"21", "10", "5", "3", "2", "1", "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"21", "11", "6", "3", "3", "2", "1", "1", "0", "0", "0", "0", "0", "0", "0"}, {"20", "10", "4", "1", "4", "1", "0", "0", "1", "0", "0", "0", "0", "0", "0"}, {"35", "20", "11", "6", "8", "4", "2", "1", "2", "1", "0", "0", "0", "0", "0"}, {"14", "9", "6", "4", "4", "3", "2", "2", "1", "1", "1", "0", "0", "0", "0"}, {"15", "10", "6", "3", "6", "3", "1", "1", "3", "1", "0", "1", "0", "0", "0"}, {"14", "10", "7", "5", "6", "4", "3", "2", "3", "2", "1", "1", "1", "0", "0"}, {"6", "5", "4", "3", "4", "3", "2", "2", "3", "2", "1", "2", "1", "1", "0"}, {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell["in A&S order:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Reverse /@ Reverse[\(\(PadLeft[kostka[#], PartitionsP[7]]\)[\([asorder[7]]\)] &\) /@ \ aspartitions[7]]\ // MatrixForm\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"6", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"14", "4", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"15", "5", "1", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"14", "5", "2", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"35", "15", "6", "3", "2", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"20", "10", "4", "4", "1", "1", "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"21", "10", "5", "2", "3", "1", "0", "1", "0", "0", "0", "0", "0", "0", "0"}, {"21", "11", "6", "3", "3", "2", "0", "1", "1", "0", "0", "0", "0", "0", "0"}, {"35", "20", "11", "8", "6", "4", "2", "2", "1", "1", "0", "0", "0", "0", "0"}, {"15", "10", "6", "6", "3", "3", "3", "1", "1", "1", "1", "0", "0", "0", "0"}, {"14", "9", "6", "4", "4", "3", "1", "2", "2", "1", "0", "1", "0", "0", "0"}, {"14", "10", "7", "6", "5", "4", "3", "3", "2", "2", "1", "1", "1", "0", "0"}, {"6", "5", "4", "4", "3", "3", "3", "2", "2", "2", "2", "1", "1", "1", "0"}, {"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell["from A104778:", "Text"], Cell[BoxData[ \(\(aa = {1, 1, 2, 1, 2, 4, 1, 2, 3, 5, 10, 1, 2, 3, 5, 7, 13, 26, 1, 2, 3, 4, 5, 8, 11, 14, 20, 38, 76, 1, 2, 3, 4, 5, 8, 10, 13, 14, 23, 33, 42, 60, 116, 232, 1, 2, 3, 4, 5, 5, 8, 11, 14, 17, 14, 24, 30, 40};\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Table[ Tr /@ Transpose[\(\(PadLeft[#, PartitionsP[k]]\)[\([asorder[k]]\)] &\) /@ \(kostka /@ \ aspartitions[k]\)\ \ ], {k, 11}]\)], "Input"], Cell[BoxData[ \({{1}, {1, 2}, {1, 2, 4}, {1, 2, 3, 5, 10}, {1, 2, 3, 5, 7, 13, 26}, {1, 2, 3, 4, 5, 8, 11, 14, 20, 38, 76}, {1, 2, 3, 4, 5, 8, 10, 13, 14, 23, 32, 42, 60, 116, 232}, {1, 2, 3, 4, 5, 5, 8, 11, 14, 17, 14, 24, 30, 40, 56, 43, 73, 103, 136, 196, 382, 764}, {1, 2, 3, 4, 5, 5, 8, 11, 13, 14, 19, 23, 14, 24, 33, 43, 53, 72, 43, 77, 96, 131, 184, 141, 244, 347, 462, 668, 1310, 2620}, {1, 2, 3, 4, 5, 6, 5, 8, 11, 14, 14, 20, 23, 27, 14, 24, 34, 40, 44, 61, 74, 81, 100, 43, 78, 109, 145, 180, 248, 348, 142, 265, 332, 460, 652, 492, 868, 1244, 1660, 2412, 4748, 9496}, {1, 2, 3, 4, 5, 6, 5, 8, 11, 14, 16, 14, 20, 25, 29, 33, 14, 24, 34, 43, 44, 64, 74, 88, 84, 117, 143, 43, 78, 113, 132, 149, 209, 256, 282, 350, 484, 142, 270, 381, 516, 644, 897, 1268, 498, 958, 1204, 1688, 2408, 1800, 3218, 4636, 6204, 9040, 17848, 35696}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Take[Flatten[%459], 58]\)], "Input"], Cell[BoxData[ \({1, 1, 2, 1, 2, 4, 1, 2, 3, 5, 10, 1, 2, 3, 5, 7, 13, 26, 1, 2, 3, 4, 5, 8, 11, 14, 20, 38, 76, 1, 2, 3, 4, 5, 8, 10, 13, 14, 23, 32, 42, 60, 116, 232, 1, 2, 3, 4, 5, 5, 8, 11, 14, 17, 14, 24, 30, 40}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Take[aa, 58]\)], "Input"], Cell[BoxData[ \({1, 1, 2, 1, 2, 4, 1, 2, 3, 5, 10, 1, 2, 3, 5, 7, 13, 26, 1, 2, 3, 4, 5, 8, 11, 14, 20, 38, 76, 1, 2, 3, 4, 5, 8, 10, 13, 14, 23, 33, 42, 60, 116, 232, 1, 2, 3, 4, 5, 5, 8, 11, 14, 17, 14, 24, 30, 40}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(%% - %\)], "Input"], Cell[BoxData[ \({0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \(-1\), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}\)], "Output"] }, Open ]], Cell[TextData[{ " only the \[OpenCurlyDoubleQuote]23, ", StyleBox["33", FontColor->RGBColor[1, 0, 0]], ", 42\[CloseCurlyDoubleQuote] should be \[OpenCurlyDoubleQuote]23, ", StyleBox["32", FontColor->RGBColor[0, 0, 1]], ", 42\[CloseCurlyDoubleQuote]" }], "Text"] }, Closed]] }, Open ]] }, FrontEndVersion->"4.0 for Microsoft Windows", ScreenRectangle->{{0, 1680}, {0, 977}}, WindowSize->{887, 751}, WindowMargins->{{15, Automatic}, {Automatic, 3}} ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 146, 3, 93, "Subtitle"], Cell[1888, 56, 312, 10, 33, "Text"], Cell[CellGroupData[{ Cell[2225, 70, 30, 0, 43, "Subsubsection"], Cell[2258, 72, 68, 1, 30, "Input"], Cell[2329, 75, 201, 4, 30, "Input"], Cell[2533, 81, 117, 2, 30, "Input"], Cell[2653, 85, 220, 4, 50, "Input"], Cell[2876, 91, 80, 1, 30, "Input"], Cell[2959, 94, 318, 6, 70, "Input"], Cell[3280, 102, 137, 2, 30, "Input"], Cell[3420, 106, 112, 2, 30, "Input"], Cell[3535, 110, 696, 14, 110, "Input"], Cell[4234, 126, 391, 8, 110, "Input"], Cell[4628, 136, 1057, 20, 190, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5722, 161, 63, 0, 43, "Subsubsection"], Cell[CellGroupData[{ Cell[5810, 165, 51, 0, 30, "Input"], Cell[5864, 167, 530, 7, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6431, 179, 151, 3, 30, "Input"], Cell[6585, 184, 2464, 55, 185, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9086, 244, 115, 3, 30, "Input"], Cell[9204, 249, 2751, 63, 185, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[12004, 318, 50, 0, 29, "Subsubsection"], Cell[CellGroupData[{ Cell[12079, 322, 90, 2, 30, "Input"], Cell[12172, 326, 1720, 34, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13929, 365, 114, 3, 30, "Input"], Cell[14046, 370, 1844, 34, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15927, 409, 40, 0, 30, "Input"], Cell[15970, 411, 85, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16092, 417, 69, 0, 30, "Input"], Cell[16164, 419, 85, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16286, 425, 113, 3, 30, "Input"], Cell[16402, 430, 85, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16524, 436, 129, 3, 30, "Input"], Cell[16656, 441, 1720, 34, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18413, 480, 247, 5, 66, "Input"], Cell[18663, 487, 1863, 34, 249, "Output"] }, Open ]], Cell[20541, 524, 42, 0, 30, "Input"], Cell[20586, 526, 329, 6, 84, "Input"], Cell[CellGroupData[{ Cell[20940, 536, 39, 0, 30, "Input"], Cell[20982, 538, 497, 7, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21516, 550, 76, 0, 30, "Input"], Cell[21595, 552, 2735, 62, 290, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24379, 620, 32, 0, 43, "Subsubsection"], Cell[24414, 622, 34, 0, 33, "Text"], Cell[CellGroupData[{ Cell[24473, 626, 171, 4, 30, "Input", Evaluatable->False], Cell[24647, 632, 233, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24917, 640, 55, 1, 30, "Input"], Cell[24975, 643, 124, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25136, 650, 46, 1, 30, "Input"], Cell[25185, 653, 224, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25446, 661, 64, 1, 30, "Input"], Cell[25513, 664, 342, 5, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25892, 674, 65, 0, 30, "Input"], Cell[25960, 676, 561, 9, 48, "Output"] }, Open ]], Cell[26536, 688, 143, 3, 33, "Text"], Cell[CellGroupData[{ Cell[26704, 695, 57, 0, 30, "Input"], Cell[26764, 697, 16596, 421, 186, 3610, 256, "GraphicsData", "PostScript", \ "Graphics"], Cell[43363, 1120, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[43542, 1129, 33, 0, 29, "Subsubsection"], Cell[43578, 1131, 420, 9, 109, "Text"], Cell[44001, 1142, 194, 6, 29, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[44220, 1152, 31, 0, 30, "Input"], Cell[44254, 1154, 57, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44348, 1160, 67, 0, 30, "Input"], Cell[44418, 1162, 119, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44574, 1169, 32, 0, 30, "Input"], Cell[44609, 1171, 59, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44705, 1177, 141, 3, 48, "Input"], Cell[44849, 1182, 57, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44943, 1188, 120, 3, 30, "Input"], Cell[45066, 1193, 57, 1, 29, "Output"] }, Open ]], Cell[45138, 1197, 59, 0, 33, "Text"], Cell[45200, 1199, 189, 4, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[45426, 1208, 46, 0, 29, "Subsubsection"], Cell[45475, 1210, 375, 9, 40, "Input"], Cell[45853, 1221, 410, 8, 72, "Input"], Cell[46266, 1231, 409, 8, 72, "Input"], Cell[46678, 1241, 351, 6, 40, "Input"], Cell[47032, 1249, 260, 5, 40, "Input"], Cell[47295, 1256, 176, 3, 26, "Input"], Cell[47474, 1261, 239, 7, 30, "Input"], Cell[47716, 1270, 206, 4, 26, "Input"], Cell[47925, 1276, 365, 7, 40, "Input"], Cell[48293, 1285, 284, 5, 40, "Input"], Cell[48580, 1292, 280, 4, 40, "Input"], Cell[48863, 1298, 182, 4, 52, "Text"], Cell[CellGroupData[{ Cell[49070, 1306, 116, 5, 84, "Input"], Cell[49189, 1313, 292, 4, 48, "Output"], Cell[49484, 1319, 42, 1, 29, "Output"], Cell[49529, 1322, 447, 6, 67, "Output"], Cell[49979, 1330, 106, 2, 29, "Output"] }, Open ]], Cell[50100, 1335, 137, 3, 33, "Text"], Cell[CellGroupData[{ Cell[50262, 1342, 102, 3, 48, "Input"], Cell[50367, 1347, 89, 1, 29, "Output"], Cell[50459, 1350, 308, 4, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50804, 1359, 76, 3, 48, "Input"], Cell[50883, 1364, 447, 6, 67, "Output"], Cell[51333, 1372, 106, 2, 29, "Output"] }, Open ]], Cell[51454, 1377, 35, 0, 33, "Text"], Cell[CellGroupData[{ Cell[51514, 1381, 108, 3, 30, "Input"], Cell[51625, 1386, 1258, 46, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52920, 1437, 29, 0, 30, "Input"], Cell[52952, 1439, 78, 1, 29, "Output"] }, Open ]], Cell[53045, 1443, 45, 0, 33, "Text"], Cell[CellGroupData[{ Cell[53115, 1447, 94, 5, 84, "Input"], Cell[53212, 1454, 701, 9, 105, "Output"], Cell[53916, 1465, 36, 1, 29, "Output"], Cell[53955, 1468, 647, 9, 86, "Output"], Cell[54605, 1479, 72, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54714, 1485, 36, 0, 30, "Input"], Cell[54753, 1487, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54826, 1493, 102, 3, 48, "Input"], Cell[54931, 1498, 85, 1, 29, "Output"], Cell[55019, 1501, 734, 10, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55790, 1516, 76, 3, 48, "Input"], Cell[55869, 1521, 647, 9, 86, "Output"], Cell[56519, 1532, 72, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56628, 1538, 33, 0, 30, "Input"], Cell[56664, 1540, 72, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56773, 1546, 29, 0, 30, "Input"], Cell[56805, 1548, 60, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56902, 1554, 28, 0, 30, "Input"], Cell[56933, 1556, 566, 8, 86, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[57548, 1570, 59, 0, 29, "Subsubsection"], Cell[57610, 1572, 89, 2, 33, "Text"], Cell[57702, 1576, 128, 2, 30, "Input"], Cell[57833, 1580, 85, 2, 33, "Text"], Cell[CellGroupData[{ Cell[57943, 1586, 75, 1, 30, "Input"], Cell[58021, 1589, 55, 1, 29, "Output"] }, Open ]], Cell[58091, 1593, 216, 4, 30, "Input"], Cell[CellGroupData[{ Cell[58332, 1601, 105, 2, 30, "Input"], Cell[58440, 1605, 36, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58513, 1611, 51, 1, 30, "Input"], Cell[58567, 1614, 36, 1, 29, "Output"] }, Open ]], Cell[58618, 1618, 88, 2, 33, "Text"], Cell[CellGroupData[{ Cell[58731, 1624, 64, 1, 30, "Input"], Cell[58798, 1627, 32233, 977, 254, "Output"] }, Open ]], Cell[91046, 2607, 123, 3, 33, "Text"], Cell[CellGroupData[{ Cell[91194, 2614, 89, 1, 30, "Input"], Cell[91286, 2617, 39, 1, 29, "Output"] }, Open ]], Cell[91340, 2621, 136, 3, 30, "Input"], Cell[CellGroupData[{ Cell[91501, 2628, 56, 1, 27, "Input"], Cell[91560, 2631, 39, 1, 29, "Output"] }, Open ]], Cell[91614, 2635, 139, 3, 33, "Text"], Cell[CellGroupData[{ Cell[91778, 2642, 141, 3, 30, "Input"], Cell[91922, 2647, 181, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92140, 2655, 163, 2, 30, "Input"], Cell[92306, 2659, 181, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92524, 2667, 139, 2, 30, "Input"], Cell[92666, 2671, 11837, 172, 695, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104540, 2848, 174, 4, 30, "Input"], Cell[104717, 2854, 1174, 17, 238, "Output"] }, Open ]], Cell[105906, 2874, 116, 3, 33, "Text"], Cell[CellGroupData[{ Cell[106047, 2881, 131, 3, 30, "Input"], Cell[106181, 2886, 75386, 2026, 820, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[181604, 4917, 56, 1, 30, "Input"], Cell[181663, 4920, 3723, 48, 580, "Output"] }, Closed]], Cell[185401, 4971, 67, 2, 30, "Text"], Cell[CellGroupData[{ Cell[185493, 4977, 151, 3, 30, "Input"], Cell[185647, 4982, 313, 4, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[185997, 4991, 62, 1, 30, "Input"], Cell[186062, 4994, 37, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[186136, 5000, 53, 1, 30, "Input"], Cell[186192, 5003, 37, 1, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[186278, 5010, 75, 0, 29, "Subsubsection"], Cell[186356, 5012, 91, 1, 30, "Input"], Cell[186450, 5015, 114, 2, 30, "Input"], Cell[CellGroupData[{ Cell[186589, 5021, 93, 1, 30, "Input"], Cell[186685, 5024, 38, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[186760, 5030, 157, 3, 30, "Input"], Cell[186920, 5035, 966, 13, 181, "Output"] }, Open ]], Cell[187901, 5051, 29, 0, 33, "Text"], Cell[CellGroupData[{ Cell[187955, 5055, 152, 3, 30, "Input"], Cell[188110, 5060, 1720, 34, 263, "Output"] }, Open ]], Cell[189845, 5097, 29, 0, 33, "Text"], Cell[CellGroupData[{ Cell[189899, 5101, 193, 4, 50, "Input"], Cell[190095, 5107, 1720, 34, 263, "Output"] }, Open ]], Cell[191830, 5144, 29, 0, 33, "Text"], Cell[191862, 5146, 276, 4, 50, "Input"], Cell[CellGroupData[{ Cell[192163, 5154, 200, 4, 50, "Input"], Cell[192366, 5160, 966, 13, 181, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[193369, 5178, 56, 1, 30, "Input"], Cell[193428, 5181, 248, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[193713, 5189, 45, 1, 30, "Input"], Cell[193761, 5192, 248, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[194046, 5200, 39, 1, 30, "Input"], Cell[194088, 5203, 227, 3, 48, "Output"] }, Open ]], Cell[194330, 5209, 279, 8, 33, "Text"] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)