如何编写正确的 wolfram 表达式?

How to write correct wolfram expression?

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

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

排序后相同的

有时可以了解足够多的 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*#]]&]

有效