integrals.wolfram.com   Use one of Mathematica's 2500+ functions FREE online

Wolfram Mathematica Online Integrator
The world's only full-power integration solver
∫
-(a*x*Sqrt[-1 + a*x]*Sqrt[1 + a*x] - 2*a^2*x^2*ArcCosh[a*x] + Log[2*a*x + 2*Sqrt[-1 + a*x]*Sqrt[1 + a*x]])/(4*a^2)

Integrate[x*ArcCosh[a*x], x] ==
-(a*x*Sqrt[-1 + a*x]*Sqrt[1 + a*x] - 2*a^2*x^2*ArcCosh[a*x] + Log[2*a*x + 2*Sqrt[-1 + a*x]*Sqrt[1 + a*x]])/ (4*a^2) 

Integrate[x ArcCosh[a x], x] == 

-(a x Sqrt[-1 + a x] Sqrt[1 + a x] - 
 
        2  2
     2 a  x  ArcCosh[a x] + 
 
     Log[2 a x + 2 Sqrt[-1 + a x] Sqrt[1 + a x]]) / 
 
      2
  (4 a )
Time to compute: 0.12 second
Spread the word: