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

如何在WolframAlpha上写出这样的表达式来得到正确的答案？

求解[Sort[IntegerDigits[2*x]]==Sort[IntegerDigits[3*x]]，x]

第一个可能的x值等于1782。

2*1782 = 3564
3*1782 = 5364

---

排序后是相同的。

有时，我们可能知道足够多的数学语言符号，这可以用来哄骗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*#]]&]

工作