如何写出正确的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*#]]&]

作品