Last edited by 青青子衿 2020-4-3 13:02Column /@ Table[Flatten[Table[{i, j, k}, {i, n}, {j, i, n}, {k, j, n}], 2], {n, 3}]
\begin{align*}
(\,1,\enspace1,\enspace1\,)&&(\,1,\enspace1,\enspace1\,)&&(\,1,\enspace1,\enspace1\,)\\
&&(\,1,\enspace1,\enspace2\,)&&(\,1,\enspace1,\enspace2\,)\\
&&(\,1,\enspace2,\enspace2\,)&&(\,1,\enspace1,\enspace3\,)\\
&&(\,2,\enspace2,\enspace2\,)&&(\,1,\enspace2,\enspace2\,)\\
&&&&(\,1,\enspace2,\enspace3\,)\\
&&&&(\,1,\enspace3,\enspace3\,)\\
&&&&(\,2,\enspace2,\enspace2\,)\\
&&&&(\,2,\enspace2,\enspace3\,)\\
&&&&(\,2,\enspace3,\enspace3\,)\\
&&&&(\,3,\enspace3,\enspace3\,)
\end{align*}
Subsets[Range[4], {3}] |
