Optimal antiderivative
command
Integrate[(-700 + E^((-125 + 145*x - 16*x^2 + 25*x*Log[3*x])/25)*(25 - 170*x + 32*x^2 - 25*x*Log[3*x]))/(19600 - 1400*E^((-125 + 145*x - 16*x^2 + 25*x*Log[3*x])/25) + 25*E^((2*(-125 + 145*x - 16*x^2 + 25*x*Log[3*x]))/25)),x]
Mathematica 13.1 output
Mathematica 12.3 output