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

Wolfram Mathematica Online Integrator
The world's only full-power integration solver
∫
An image showing the results of your requested integral.

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

                         2    2
          Sqrt[x + Sqrt[a  + x ]]
Integrate[-----------------------, x] == 
                     x

         2    2             2    2
-((Sqrt[a  + x ] (x + Sqrt[a  + x ]) 
 
                         2    2
      (-2 Sqrt[x + Sqrt[a  + x ]] + 
 
                                        2    2
                         Sqrt[x + Sqrt[a  + x ]]
        2 Sqrt[a] ArcTan[-----------------------] - 
                                 Sqrt[a]
 
        Sqrt[a] Log[-Sqrt[a] + 
 
                          2    2
           Sqrt[x + Sqrt[a  + x ]]] + 
 
                                             2    2
        Sqrt[a] Log[Sqrt[a] + Sqrt[x + Sqrt[a  + x ]]]
 
               2                2    2
        )) / (a  + x (x + Sqrt[a  + x ])))
Time to compute: 0.45 second
Spread the word: