3.17.31 \(\int \frac {1}{1+\sqrt {x+\sqrt {1+x^2}}} \, dx\)

Optimal. Leaf size=110 \[ \frac {\sqrt {x^2+1} \left (2 \sqrt {\sqrt {x^2+1}+x}+5\right )+(2 x+2) \sqrt {\sqrt {x^2+1}+x}+5 x-1}{2 \sqrt {x^2+1}+2 x}+\frac {1}{2} \log \left (\sqrt {x^2+1}+x\right )-2 \log \left (\sqrt {\sqrt {x^2+1}+x}+1\right ) \]

________________________________________________________________________________________

Rubi [A]  time = 0.06, antiderivative size = 84, normalized size of antiderivative = 0.76, number of steps used = 4, number of rules used = 3, integrand size = 19, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.158, Rules used = {2117, 1821, 1620} \begin {gather*} \sqrt {\sqrt {x^2+1}+x}+\frac {1}{\sqrt {\sqrt {x^2+1}+x}}-\frac {1}{2 \left (\sqrt {x^2+1}+x\right )}+\frac {1}{2} \log \left (\sqrt {x^2+1}+x\right )-2 \log \left (\sqrt {\sqrt {x^2+1}+x}+1\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(1 + Sqrt[x + Sqrt[1 + x^2]])^(-1),x]

[Out]

-1/2*1/(x + Sqrt[1 + x^2]) + 1/Sqrt[x + Sqrt[1 + x^2]] + Sqrt[x + Sqrt[1 + x^2]] + Log[x + Sqrt[1 + x^2]]/2 -
2*Log[1 + Sqrt[x + Sqrt[1 + x^2]]]

Rule 1620

Int[(Px_)*((a_.) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[Px*(a + b*x)
^m*(c + d*x)^n, x], x] /; FreeQ[{a, b, c, d, m, n}, x] && PolyQ[Px, x] && (IntegersQ[m, n] || IGtQ[m, -2]) &&
GtQ[Expon[Px, x], 2]

Rule 1821

Int[(Pq_)*(x_)^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_.), x_Symbol] :> Dist[1/n, Subst[Int[x^(Simplify[(m + 1)/n] -
1)*SubstFor[x^n, Pq, x]*(a + b*x)^p, x], x, x^n], x] /; FreeQ[{a, b, m, n, p}, x] && PolyQ[Pq, x^n] && Intege
rQ[Simplify[(m + 1)/n]]

Rule 2117

Int[((g_.) + (h_.)*((d_.) + (e_.)*(x_) + (f_.)*Sqrt[(a_) + (c_.)*(x_)^2])^(n_))^(p_.), x_Symbol] :> Dist[1/(2*
e), Subst[Int[((g + h*x^n)^p*(d^2 + a*f^2 - 2*d*x + x^2))/(d - x)^2, x], x, d + e*x + f*Sqrt[a + c*x^2]], x] /
; FreeQ[{a, c, d, e, f, g, h, n}, x] && EqQ[e^2 - c*f^2, 0] && IntegerQ[p]

Rubi steps

\begin {align*} \int \frac {1}{1+\sqrt {x+\sqrt {1+x^2}}} \, dx &=\frac {1}{2} \operatorname {Subst}\left (\int \frac {1+x^2}{\left (1+\sqrt {x}\right ) x^2} \, dx,x,x+\sqrt {1+x^2}\right )\\ &=\operatorname {Subst}\left (\int \frac {1+x^4}{x^3 (1+x)} \, dx,x,\sqrt {x+\sqrt {1+x^2}}\right )\\ &=\operatorname {Subst}\left (\int \left (1+\frac {1}{x^3}-\frac {1}{x^2}+\frac {1}{x}-\frac {2}{1+x}\right ) \, dx,x,\sqrt {x+\sqrt {1+x^2}}\right )\\ &=-\frac {1}{2 \left (x+\sqrt {1+x^2}\right )}+\frac {1}{\sqrt {x+\sqrt {1+x^2}}}+\sqrt {x+\sqrt {1+x^2}}+\frac {1}{2} \log \left (x+\sqrt {1+x^2}\right )-2 \log \left (1+\sqrt {x+\sqrt {1+x^2}}\right )\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.04, size = 84, normalized size = 0.76 \begin {gather*} \sqrt {\sqrt {x^2+1}+x}+\frac {1}{\sqrt {\sqrt {x^2+1}+x}}-\frac {1}{2 \left (\sqrt {x^2+1}+x\right )}+\frac {1}{2} \log \left (\sqrt {x^2+1}+x\right )-2 \log \left (\sqrt {\sqrt {x^2+1}+x}+1\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(1 + Sqrt[x + Sqrt[1 + x^2]])^(-1),x]

[Out]

-1/2*1/(x + Sqrt[1 + x^2]) + 1/Sqrt[x + Sqrt[1 + x^2]] + Sqrt[x + Sqrt[1 + x^2]] + Log[x + Sqrt[1 + x^2]]/2 -
2*Log[1 + Sqrt[x + Sqrt[1 + x^2]]]

________________________________________________________________________________________

IntegrateAlgebraic [A]  time = 0.13, size = 110, normalized size = 1.00 \begin {gather*} \frac {-1+5 x+(2+2 x) \sqrt {x+\sqrt {1+x^2}}+\sqrt {1+x^2} \left (5+2 \sqrt {x+\sqrt {1+x^2}}\right )}{2 x+2 \sqrt {1+x^2}}+\frac {1}{2} \log \left (x+\sqrt {1+x^2}\right )-2 \log \left (1+\sqrt {x+\sqrt {1+x^2}}\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

IntegrateAlgebraic[(1 + Sqrt[x + Sqrt[1 + x^2]])^(-1),x]

[Out]

(-1 + 5*x + (2 + 2*x)*Sqrt[x + Sqrt[1 + x^2]] + Sqrt[1 + x^2]*(5 + 2*Sqrt[x + Sqrt[1 + x^2]]))/(2*x + 2*Sqrt[1
+ x^2]) + Log[x + Sqrt[1 + x^2]]/2 - 2*Log[1 + Sqrt[x + Sqrt[1 + x^2]]]

________________________________________________________________________________________

fricas [A]  time = 0.45, size = 66, normalized size = 0.60 \begin {gather*} -\sqrt {x + \sqrt {x^{2} + 1}} {\left (x - \sqrt {x^{2} + 1} - 1\right )} + \frac {1}{2} \, x - \frac {1}{2} \, \sqrt {x^{2} + 1} - 2 \, \log \left (\sqrt {x + \sqrt {x^{2} + 1}} + 1\right ) + \log \left (\sqrt {x + \sqrt {x^{2} + 1}}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+(x+(x^2+1)^(1/2))^(1/2)),x, algorithm="fricas")

[Out]

-sqrt(x + sqrt(x^2 + 1))*(x - sqrt(x^2 + 1) - 1) + 1/2*x - 1/2*sqrt(x^2 + 1) - 2*log(sqrt(x + sqrt(x^2 + 1)) +
1) + log(sqrt(x + sqrt(x^2 + 1)))

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {1}{\sqrt {x + \sqrt {x^{2} + 1}} + 1}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+(x+(x^2+1)^(1/2))^(1/2)),x, algorithm="giac")

[Out]

integrate(1/(sqrt(x + sqrt(x^2 + 1)) + 1), x)

________________________________________________________________________________________

maple [F]  time = 0.02, size = 0, normalized size = 0.00 \[\int \frac {1}{1+\sqrt {x +\sqrt {x^{2}+1}}}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(1+(x+(x^2+1)^(1/2))^(1/2)),x)

[Out]

int(1/(1+(x+(x^2+1)^(1/2))^(1/2)),x)

________________________________________________________________________________________

maxima [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {1}{\sqrt {x + \sqrt {x^{2} + 1}} + 1}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+(x+(x^2+1)^(1/2))^(1/2)),x, algorithm="maxima")

[Out]

integrate(1/(sqrt(x + sqrt(x^2 + 1)) + 1), x)

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.01 \begin {gather*} \int \frac {1}{\sqrt {x+\sqrt {x^2+1}}+1} \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/((x + (x^2 + 1)^(1/2))^(1/2) + 1),x)

[Out]

int(1/((x + (x^2 + 1)^(1/2))^(1/2) + 1), x)

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {1}{\sqrt {x + \sqrt {x^{2} + 1}} + 1}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+(x+(x**2+1)**(1/2))**(1/2)),x)

[Out]

Integral(1/(sqrt(x + sqrt(x**2 + 1)) + 1), x)

________________________________________________________________________________________