3.24.86 \(\int \frac {2+(2+4 x) \log (x)}{(81 x-36 x^2+4 x^3+(108 x-24 x^2) \log ^2(4)+(54 x-4 x^2) \log ^4(4)+12 x \log ^6(4)+x \log ^8(4)) \log (x)+(-18 x+4 x^2-12 x \log ^2(4)-2 x \log ^4(4)) \log (x) \log (x \log (x))+x \log (x) \log ^2(x \log (x))} \, dx\)

Optimal. Leaf size=23 \[ \frac {2}{-2 x+\left (3+\log ^2(4)\right )^2-\log (x \log (x))} \]

________________________________________________________________________________________

Rubi [A]  time = 0.21, antiderivative size = 23, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 3, integrand size = 114, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.026, Rules used = {6688, 12, 6686} \begin {gather*} -\frac {2}{2 x+\log (x \log (x))-\left (3+\log ^2(4)\right )^2} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(2 + (2 + 4*x)*Log[x])/((81*x - 36*x^2 + 4*x^3 + (108*x - 24*x^2)*Log[4]^2 + (54*x - 4*x^2)*Log[4]^4 + 12*
x*Log[4]^6 + x*Log[4]^8)*Log[x] + (-18*x + 4*x^2 - 12*x*Log[4]^2 - 2*x*Log[4]^4)*Log[x]*Log[x*Log[x]] + x*Log[
x]*Log[x*Log[x]]^2),x]

[Out]

-2/(2*x - (3 + Log[4]^2)^2 + Log[x*Log[x]])

Rule 12

Int[(a_)*(u_), x_Symbol] :> Dist[a, Int[u, x], x] /; FreeQ[a, x] &&  !MatchQ[u, (b_)*(v_) /; FreeQ[b, x]]

Rule 6686

Int[(u_)*(y_)^(m_.), x_Symbol] :> With[{q = DerivativeDivides[y, u, x]}, Simp[(q*y^(m + 1))/(m + 1), x] /;  !F
alseQ[q]] /; FreeQ[m, x] && NeQ[m, -1]

Rule 6688

Int[u_, x_Symbol] :> With[{v = SimplifyIntegrand[u, x]}, Int[v, x] /; SimplerIntegrandQ[v, u, x]]

Rubi steps

\begin {gather*} \begin {aligned} \text {integral} &=\int \frac {2 (1+\log (x)+2 x \log (x))}{x \log (x) \left (2 x-\left (3+\log ^2(4)\right )^2+\log (x \log (x))\right )^2} \, dx\\ &=2 \int \frac {1+\log (x)+2 x \log (x)}{x \log (x) \left (2 x-\left (3+\log ^2(4)\right )^2+\log (x \log (x))\right )^2} \, dx\\ &=-\frac {2}{2 x-\left (3+\log ^2(4)\right )^2+\log (x \log (x))}\\ \end {aligned} \end {gather*}

________________________________________________________________________________________

Mathematica [A]  time = 0.04, size = 23, normalized size = 1.00 \begin {gather*} -\frac {2}{2 x-\left (3+\log ^2(4)\right )^2+\log (x \log (x))} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(2 + (2 + 4*x)*Log[x])/((81*x - 36*x^2 + 4*x^3 + (108*x - 24*x^2)*Log[4]^2 + (54*x - 4*x^2)*Log[4]^4
+ 12*x*Log[4]^6 + x*Log[4]^8)*Log[x] + (-18*x + 4*x^2 - 12*x*Log[4]^2 - 2*x*Log[4]^4)*Log[x]*Log[x*Log[x]] +
x*Log[x]*Log[x*Log[x]]^2),x]

[Out]

-2/(2*x - (3 + Log[4]^2)^2 + Log[x*Log[x]])

________________________________________________________________________________________

fricas [A]  time = 0.97, size = 28, normalized size = 1.22 \begin {gather*} \frac {2}{16 \, \log \relax (2)^{4} + 24 \, \log \relax (2)^{2} - 2 \, x - \log \left (x \log \relax (x)\right ) + 9} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((4*x+2)*log(x)+2)/(x*log(x)*log(x*log(x))^2+(-32*x*log(2)^4-48*x*log(2)^2+4*x^2-18*x)*log(x)*log(x*
log(x))+(256*x*log(2)^8+768*x*log(2)^6+16*(-4*x^2+54*x)*log(2)^4+4*(-24*x^2+108*x)*log(2)^2+4*x^3-36*x^2+81*x)
*log(x)),x, algorithm="fricas")

[Out]

2/(16*log(2)^4 + 24*log(2)^2 - 2*x - log(x*log(x)) + 9)

________________________________________________________________________________________

giac [A]  time = 0.34, size = 30, normalized size = 1.30 \begin {gather*} \frac {2}{16 \, \log \relax (2)^{4} + 24 \, \log \relax (2)^{2} - 2 \, x - \log \relax (x) - \log \left (\log \relax (x)\right ) + 9} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((4*x+2)*log(x)+2)/(x*log(x)*log(x*log(x))^2+(-32*x*log(2)^4-48*x*log(2)^2+4*x^2-18*x)*log(x)*log(x*
log(x))+(256*x*log(2)^8+768*x*log(2)^6+16*(-4*x^2+54*x)*log(2)^4+4*(-24*x^2+108*x)*log(2)^2+4*x^3-36*x^2+81*x)
*log(x)),x, algorithm="giac")

[Out]

2/(16*log(2)^4 + 24*log(2)^2 - 2*x - log(x) - log(log(x)) + 9)

________________________________________________________________________________________

maple [C]  time = 0.12, size = 104, normalized size = 4.52

method	result	size
risch	\(-\frac {4 i}{\pi \,\mathrm {csgn}\left (i x \right ) \mathrm {csgn}\left (i \ln \relax (x )\right ) \mathrm {csgn}\left (i x \ln \relax (x )\right )-\pi \,\mathrm {csgn}\left (i x \right ) \mathrm {csgn}\left (i x \ln \relax (x )\right )^{2}-\pi \,\mathrm {csgn}\left (i \ln \relax (x )\right ) \mathrm {csgn}\left (i x \ln \relax (x )\right )^{2}+\pi \mathrm {csgn}\left (i x \ln \relax (x )\right )^{3}-32 i \ln \relax (2)^{4}-48 i \ln \relax (2)^{2}+4 i x +2 i \ln \relax (x )+2 i \ln \left (\ln \relax (x )\right )-18 i}\)	\(104\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(((4*x+2)*ln(x)+2)/(x*ln(x)*ln(x*ln(x))^2+(-32*x*ln(2)^4-48*x*ln(2)^2+4*x^2-18*x)*ln(x)*ln(x*ln(x))+(256*x*
ln(2)^8+768*x*ln(2)^6+16*(-4*x^2+54*x)*ln(2)^4+4*(-24*x^2+108*x)*ln(2)^2+4*x^3-36*x^2+81*x)*ln(x)),x,method=_R
ETURNVERBOSE)

[Out]

-4*I/(Pi*csgn(I*x)*csgn(I*ln(x))*csgn(I*x*ln(x))-Pi*csgn(I*x)*csgn(I*x*ln(x))^2-Pi*csgn(I*ln(x))*csgn(I*x*ln(x
))^2+Pi*csgn(I*x*ln(x))^3-32*I*ln(2)^4-48*I*ln(2)^2+4*I*x+2*I*ln(x)+2*I*ln(ln(x))-18*I)

________________________________________________________________________________________

maxima [A]  time = 0.67, size = 30, normalized size = 1.30 \begin {gather*} \frac {2}{16 \, \log \relax (2)^{4} + 24 \, \log \relax (2)^{2} - 2 \, x - \log \relax (x) - \log \left (\log \relax (x)\right ) + 9} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((4*x+2)*log(x)+2)/(x*log(x)*log(x*log(x))^2+(-32*x*log(2)^4-48*x*log(2)^2+4*x^2-18*x)*log(x)*log(x*
log(x))+(256*x*log(2)^8+768*x*log(2)^6+16*(-4*x^2+54*x)*log(2)^4+4*(-24*x^2+108*x)*log(2)^2+4*x^3-36*x^2+81*x)
*log(x)),x, algorithm="maxima")

[Out]

2/(16*log(2)^4 + 24*log(2)^2 - 2*x - log(x) - log(log(x)) + 9)

________________________________________________________________________________________

mupad [B]  time = 1.84, size = 28, normalized size = 1.22 \begin {gather*} \frac {2}{24\,{\ln \relax (2)}^2-\ln \left (x\,\ln \relax (x)\right )-2\,x+16\,{\ln \relax (2)}^4+9} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((log(x)*(4*x + 2) + 2)/(log(x)*(81*x + 16*log(2)^4*(54*x - 4*x^2) + 4*log(2)^2*(108*x - 24*x^2) + 768*x*lo
g(2)^6 + 256*x*log(2)^8 - 36*x^2 + 4*x^3) - log(x*log(x))*log(x)*(18*x + 48*x*log(2)^2 + 32*x*log(2)^4 - 4*x^2
) + x*log(x*log(x))^2*log(x)),x)

[Out]

2/(24*log(2)^2 - log(x*log(x)) - 2*x + 16*log(2)^4 + 9)

________________________________________________________________________________________

sympy [A]  time = 0.40, size = 27, normalized size = 1.17 \begin {gather*} - \frac {2}{2 x + \log {\left (x \log {\relax (x )} \right )} - 24 \log {\relax (2 )}^{2} - 9 - 16 \log {\relax (2 )}^{4}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((4*x+2)*ln(x)+2)/(x*ln(x)*ln(x*ln(x))**2+(-32*x*ln(2)**4-48*x*ln(2)**2+4*x**2-18*x)*ln(x)*ln(x*ln(x
))+(256*x*ln(2)**8+768*x*ln(2)**6+16*(-4*x**2+54*x)*ln(2)**4+4*(-24*x**2+108*x)*ln(2)**2+4*x**3-36*x**2+81*x)*
ln(x)),x)

[Out]

-2/(2*x + log(x*log(x)) - 24*log(2)**2 - 9 - 16*log(2)**4)

________________________________________________________________________________________