\[ \int \frac {e^{-e^{\frac {-4-x+6 x^2-5 x^3}{x}}} \left (-x+e^{e^{\frac {-4-x+6 x^2-5 x^3}{x}}} x+e^{\frac {-4-x+6 x^2-5 x^3}{x}} \left (4+6 x^2-10 x^3\right )\right )}{x} \, dx \]
Optimal antiderivative \[ x -x \,{\mathrm e}^{-{\mathrm e}^{\frac {\left (-5 x +5\right ) x^{2}-4-x +x^{2}}{x}}} \]
command
Integrate[(-x + E^E^((-4 - x + 6*x^2 - 5*x^3)/x)*x + E^((-4 - x + 6*x^2 - 5*x^3)/x)*(4 + 6*x^2 - 10*x^3))/(E^E^((-4 - x + 6*x^2 - 5*x^3)/x)*x),x]
Mathematica 13.1 output
\[ x-e^{-e^{-1-\frac {4}{x}+6 x-5 x^2}} x \]
Mathematica 12.3 output
\[ \int \frac {e^{-e^{\frac {-4-x+6 x^2-5 x^3}{x}}} \left (-x+e^{e^{\frac {-4-x+6 x^2-5 x^3}{x}}} x+e^{\frac {-4-x+6 x^2-5 x^3}{x}} \left (4+6 x^2-10 x^3\right )\right )}{x} \, dx \]________________________________________________________________________________________