I have a expr
like following:
expr = Collect[Expand[(x - Sqrt[2]) (x - Sqrt[3]) (x - Sqrt[5])], x]
$x^3+\left(-\sqrt{2}-\sqrt{3}-\sqrt{5}\right) x^2+\left(\sqrt{6}+\sqrt{10}+\sqrt{15}\right) x-\sqrt{30}$
How to rationalize irrational equations and keep it with same roots($\sqrt{2},\sqrt{3},\sqrt{5}$)? I'd like to get all the coefficients to integers eventually.
In[287]:= exprC = (x + Sqrt[2]) (x + Sqrt[3]) (x + Sqrt[5]); Expand[expr*exprC] Out[288]= -30 + 31 x^2 - 10 x^4 + x^6
$\endgroup$