如何写出正确的wolfram表达式？

Question

如何在WolframAlpha上写这样的表达式以获得正确的答案？ Solve[Sort[IntegerDigits[2*x]] == Sort[IntegerDigits[3*x]], x]

第一个可能的x值等于1782。 2*1782 = 3564 3*1782 = 5364

排序后的情况相同。

Answer 1

有时可以通过足够的Mathematica语言来表示这可以用来哄骗WolframAlpha给出答案。此

Select[Table[{x, Sort[IntegerDigits[2*x]],Sort[IntegerDigits[3*x]]}, {x,6000}], #[[2]]==#[[3]]&]

或者

Select[Table[x,{x,6000}],Sort[IntegerDigits[2*#]]==Sort[IntegerDigits[3*#]]&]

作品