用1~9给出1:2:3的三个三位数

青青子衿

更一般的情况如下：

1. {#, Select[
2.       KroneckerProduct[
3.        Range[Ceiling[100/First@#], Floor[1000/Last@#]], #],
4.       Sort@Flatten[IntegerDigits /@ #] == Range@9 &]} & /@
5.    Select[Subsets[Range@9, {3}], GCD @@ # == 1 &] //
6.   Select[#, Last@# != {} &] & // Column

复制代码

\begin{align*}
1\colon2\colon3&&(\,192,\enspace384,\enspace576\,)\\
&&(\,219,\enspace438,\enspace657\,)\\
&&(\,273,\enspace546,\enspace819\,)\\
&&(\,327,\enspace654,\enspace981\,)\\
\\
1\colon3\colon5&&(\,129,\enspace387,\enspace645\,)\\
\\
3\colon7\colon8&&(\,213,\enspace497,\enspace568\,)\\
&&(\,321,\enspace749,\enspace856\,)\\
\\
4\colon5\colon6&&(\,492,\enspace615,\enspace738\,)\\
\end{align*}