22.20 Problem number 3121

31/xlog(x4)x(48+12log(x4)log(log(x4)3))(625x2+50x2log(4)+x2log2(4))log(x4)+31/x(50x22x2log(4))log1+1x(x4)+32/xx2log1+2x(x4)dx

Optimal antiderivative 12252ln(2)+eln(ln(x4)3)x

command

Integrate[(Log[x^4]^x^(-1)*(-48 + 12*Log[x^4]*Log[Log[x^4]/3]))/(3^x^(-1)*((625*x^2 + 50*x^2*Log[4] + x^2*Log[4]^2)*Log[x^4] + ((-50*x^2 - 2*x^2*Log[4])*Log[x^4]^(1 + x^(-1)))/3^x^(-1) + (x^2*Log[x^4]^(1 + 2/x))/3^(2/x))),x]

Mathematica 13.1 output

31/xlog(x4)x(48+12log(x4)log(log(x4)3))(625x2+50x2log(4)+x2log2(4))log(x4)+31/x(50x22x2log(4))log1+1x(x4)+32/xx2log1+2x(x4)dx

Mathematica 12.3 output

4 31+1x31x(25+log(4))log(x4)x