Optimal antiderivative
command
Integrate[(500 - 5*x^2 + 125*Log[3] + (-625 - 125*Log[3])*Log[x] + (-125 + 125*Log[x])*Log[Log[x]])/(25*x^2 + 10*x^3 + x^4 + (-1250*x - 250*x^2 + (-250*x - 50*x^2)*Log[3])*Log[x] + (15625 + 6250*Log[3] + 625*Log[3]^2)*Log[x]^2 + ((250*x + 50*x^2)*Log[x] + (-6250 - 1250*Log[3])*Log[x]^2)*Log[Log[x]] + 625*Log[x]^2*Log[Log[x]]^2),x]
Mathematica 13.1 output
Mathematica 12.3 output