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

作品