Как написать правильное выражение вольфрама?

Question

Как написать что-то вроде этого выражения на WolframAlpha, чтобы получить правильный ответ? Solve[Sort[IntegerDigits[2*x]] == Sort[IntegerDigits[3*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*#]]&] 

работы