19.1 Problem number 4

tanh1(exd+ex2)xdx

Optimal antiderivative arctanh(xeex2+d)ln(x)arcsinh(xed)2d1+ex2d2ex2+d+arcsinh(xed)ln(1(xed+1+ex2d)2)d1+ex2dex2+darcsinh(xed)ln(x)d1+ex2dex2+d+polylog(2,(xed+1+ex2d)2)d1+ex2d2ex2+d

command

Integrate[ArcTanh[(Sqrt[e]*x)/Sqrt[d + e*x^2]]/x,x]

Mathematica 13.1 output

tanh1(exd+ex2)xdx

Mathematica 12.3 output

eex2d+1(Li2(e2sinh1(edx))2log(x)log(ex2d+1+xed)+sinh1(xed)2+2sinh1(xed)log(1e2sinh1(xed)))2edd+ex2+log(x)tanh1(exd+ex2)