\(\int \frac {-x^2+2 x \log (5)-\log ^2(5)+(x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+(-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9) \log (5)+(x+216 x^2+216 x^4+72 x^6+8 x^8) \log ^2(5)) \log ^2(x)}{(x^3-2 x^2 \log (5)+x \log ^2(5)) \log ^2(x)} \, dx\) [6574]

Optimal result

Integrand size = 129, antiderivative size = 26 \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=2+x+\left (3+x^2\right )^4-\frac {\log (5)}{-x+\log (5)}+\frac {1}{\log (x)} \]

[Out]

(x^2+3)^4+1/ln(x)-ln(5)/(ln(5)-x)+x+2

Rubi [A] (verified)

Time = 0.71 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.35, number of steps used = 8, number of rules used = 6, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.047, Rules used = {1608, 27, 6874, 1864, 2339, 30} \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=x^8+12 x^6+54 x^4+108 x^2+x+\frac {1}{\log (x)}+\frac {\log (5)}{x-\log (5)} \]

[In]

Int[(-x^2 + 2*x*Log[5] - Log[5]^2 + (x^3 + 216*x^4 + 216*x^6 + 72*x^8 + 8*x^10 + (-x - 2*x^2 - 432*x^3 - 432*x
^5 - 144*x^7 - 16*x^9)*Log[5] + (x + 216*x^2 + 216*x^4 + 72*x^6 + 8*x^8)*Log[5]^2)*Log[x]^2)/((x^3 - 2*x^2*Log
[5] + x*Log[5]^2)*Log[x]^2),x]

[Out]

x + 108*x^2 + 54*x^4 + 12*x^6 + x^8 + Log[5]/(x - Log[5]) + Log[x]^(-1)

Rule 27

Int[(u_.)*((a_) + (b_.)*(x_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :> Int[u*Cancel[(b/2 + c*x)^(2*p)/c^p], x] /; Fr
eeQ[{a, b, c}, x] && EqQ[b^2 - 4*a*c, 0] && IntegerQ[p]

Rule 30

Int[(x_)^(m_.), x_Symbol] :> Simp[x^(m + 1)/(m + 1), x] /; FreeQ[m, x] && NeQ[m, -1]

Rule 1608

Int[(u_.)*((a_.)*(x_)^(p_.) + (b_.)*(x_)^(q_.) + (c_.)*(x_)^(r_.))^(n_.), x_Symbol] :> Int[u*x^(n*p)*(a + b*x^
(q - p) + c*x^(r - p))^n, x] /; FreeQ[{a, b, c, p, q, r}, x] && IntegerQ[n] && PosQ[q - p] && PosQ[r - p]

Rule 1864

Int[(Pq_)*((a_) + (b_.)*(x_)^(n_.))^(p_.), x_Symbol] :> Int[ExpandIntegrand[Pq*(a + b*x^n)^p, x], x] /; FreeQ[
{a, b, n}, x] && PolyQ[Pq, x] && (IGtQ[p, 0] || EqQ[n, 1])

Rule 2339

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)/(x_), x_Symbol] :> Dist[1/(b*n), Subst[Int[x^p, x], x, a + b*L
og[c*x^n]], x] /; FreeQ[{a, b, c, n, p}, x]

Rule 6874

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

Rubi steps \begin{align*} \text {integral}& = \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{x \left (x^2-2 x \log (5)+\log ^2(5)\right ) \log ^2(x)} \, dx \\ & = \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{x (x-\log (5))^2 \log ^2(x)} \, dx \\ & = \int \left (\frac {8 x^9+x^2 (1-432 \log (5))-432 x^4 \log (5)-144 x^6 \log (5)-16 x^8 \log (5)-2 x (1-108 \log (5)) \log (5)-(1-\log (5)) \log (5)+72 x^7 \left (1+\frac {\log ^2(5)}{9}\right )+216 x^5 \left (1+\frac {\log ^2(5)}{3}\right )+216 x^3 \left (1+\log ^2(5)\right )}{(x-\log (5))^2}-\frac {1}{x \log ^2(x)}\right ) \, dx \\ & = \int \frac {8 x^9+x^2 (1-432 \log (5))-432 x^4 \log (5)-144 x^6 \log (5)-16 x^8 \log (5)-2 x (1-108 \log (5)) \log (5)-(1-\log (5)) \log (5)+72 x^7 \left (1+\frac {\log ^2(5)}{9}\right )+216 x^5 \left (1+\frac {\log ^2(5)}{3}\right )+216 x^3 \left (1+\log ^2(5)\right )}{(x-\log (5))^2} \, dx-\int \frac {1}{x \log ^2(x)} \, dx \\ & = \int \left (1+216 x+216 x^3+72 x^5+8 x^7-\frac {\log (5)}{(x-\log (5))^2}\right ) \, dx-\text {Subst}\left (\int \frac {1}{x^2} \, dx,x,\log (x)\right ) \\ & = x+108 x^2+54 x^4+12 x^6+x^8+\frac {\log (5)}{x-\log (5)}+\frac {1}{\log (x)} \\ \end{align*}

Mathematica [B] (verified)

Leaf count is larger than twice the leaf count of optimal. \(128\) vs. \(2(26)=52\).

Time = 0.10 (sec) , antiderivative size = 128, normalized size of antiderivative = 4.92 \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=\frac {x-\log (5)+\left (108 x^3+54 x^5+12 x^7+x^9+x^2 (1-108 \log (5))-54 x^4 \log (5)-12 x^6 \log (5)-x^8 \log (5)-x \log (5) \left (2+108 \log (5)+54 \log ^3(5)+12 \log ^5(5)+\log ^7(5)\right )+\log (5) \left (1+\log (5)+108 \log ^2(5)+54 \log ^4(5)+12 \log ^6(5)+\log ^8(5)\right )\right ) \log (x)}{(x-\log (5)) \log (x)} \]

[In]

Integrate[(-x^2 + 2*x*Log[5] - Log[5]^2 + (x^3 + 216*x^4 + 216*x^6 + 72*x^8 + 8*x^10 + (-x - 2*x^2 - 432*x^3 -
432*x^5 - 144*x^7 - 16*x^9)*Log[5] + (x + 216*x^2 + 216*x^4 + 72*x^6 + 8*x^8)*Log[5]^2)*Log[x]^2)/((x^3 - 2*x
^2*Log[5] + x*Log[5]^2)*Log[x]^2),x]

[Out]

(x - Log[5] + (108*x^3 + 54*x^5 + 12*x^7 + x^9 + x^2*(1 - 108*Log[5]) - 54*x^4*Log[5] - 12*x^6*Log[5] - x^8*Lo
g[5] - x*Log[5]*(2 + 108*Log[5] + 54*Log[5]^3 + 12*Log[5]^5 + Log[5]^7) + Log[5]*(1 + Log[5] + 108*Log[5]^2 +
54*Log[5]^4 + 12*Log[5]^6 + Log[5]^8))*Log[x])/((x - Log[5])*Log[x])

Maple [A] (verified)

Time = 0.29 (sec) , antiderivative size = 36, normalized size of antiderivative = 1.38

method	result	size
default	\(x^{8}+12 x^{6}+54 x^{4}+108 x^{2}+x +\frac {\ln \left (5\right )}{-\ln \left (5\right )+x}+\frac {1}{\ln \left (x \right )}\)	\(36\)
parts	\(x^{8}+12 x^{6}+54 x^{4}+108 x^{2}+x +\frac {\ln \left (5\right )}{-\ln \left (5\right )+x}+\frac {1}{\ln \left (x \right )}\)	\(36\)
risch	\(\frac {x^{8} \ln \left (5\right )-x^{9}+12 x^{6} \ln \left (5\right )-12 x^{7}+54 x^{4} \ln \left (5\right )-54 x^{5}+108 x^{2} \ln \left (5\right )-108 x^{3}+x \ln \left (5\right )-x^{2}-\ln \left (5\right )}{\ln \left (5\right )-x}+\frac {1}{\ln \left (x \right )}\)	\(76\)
parallelrisch	\(\frac {\ln \left (5\right ) x^{8} \ln \left (x \right )-x^{9} \ln \left (x \right )+12 \ln \left (5\right ) x^{6} \ln \left (x \right )-12 x^{7} \ln \left (x \right )+54 \ln \left (5\right ) x^{4} \ln \left (x \right )-54 x^{5} \ln \left (x \right )+108 x^{2} \ln \left (5\right ) \ln \left (x \right )-108 x^{3} \ln \left (x \right )+\ln \left (x \right ) \ln \left (5\right )^{2}-x^{2} \ln \left (x \right )-\ln \left (5\right ) \ln \left (x \right )+\ln \left (5\right )-x}{\ln \left (x \right ) \left (\ln \left (5\right )-x \right )}\)	\(103\)

[In]

int((((8*x^8+72*x^6+216*x^4+216*x^2+x)*ln(5)^2+(-16*x^9-144*x^7-432*x^5-432*x^3-2*x^2-x)*ln(5)+8*x^10+72*x^8+2
16*x^6+216*x^4+x^3)*ln(x)^2-ln(5)^2+2*x*ln(5)-x^2)/(x*ln(5)^2-2*x^2*ln(5)+x^3)/ln(x)^2,x,method=_RETURNVERBOSE
)

[Out]

x^8+12*x^6+54*x^4+108*x^2+x+ln(5)/(-ln(5)+x)+1/ln(x)

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 69 vs. \(2 (25) = 50\).

Time = 0.27 (sec) , antiderivative size = 69, normalized size of antiderivative = 2.65 \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=\frac {{\left (x^{9} + 12 \, x^{7} + 54 \, x^{5} + 108 \, x^{3} + x^{2} - {\left (x^{8} + 12 \, x^{6} + 54 \, x^{4} + 108 \, x^{2} + x - 1\right )} \log \left (5\right )\right )} \log \left (x\right ) + x - \log \left (5\right )}{{\left (x - \log \left (5\right )\right )} \log \left (x\right )} \]

[In]

integrate((((8*x^8+72*x^6+216*x^4+216*x^2+x)*log(5)^2+(-16*x^9-144*x^7-432*x^5-432*x^3-2*x^2-x)*log(5)+8*x^10+
72*x^8+216*x^6+216*x^4+x^3)*log(x)^2-log(5)^2+2*x*log(5)-x^2)/(x*log(5)^2-2*x^2*log(5)+x^3)/log(x)^2,x, algori
thm="fricas")

[Out]

((x^9 + 12*x^7 + 54*x^5 + 108*x^3 + x^2 - (x^8 + 12*x^6 + 54*x^4 + 108*x^2 + x - 1)*log(5))*log(x) + x - log(5
))/((x - log(5))*log(x))

Sympy [A] (verification not implemented)

Time = 0.14 (sec) , antiderivative size = 32, normalized size of antiderivative = 1.23 \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=x^{8} + 12 x^{6} + 54 x^{4} + 108 x^{2} + x + \frac {1}{\log {\left (x \right )}} + \frac {\log {\left (5 \right )}}{x - \log {\left (5 \right )}} \]

[In]

integrate((((8*x**8+72*x**6+216*x**4+216*x**2+x)*ln(5)**2+(-16*x**9-144*x**7-432*x**5-432*x**3-2*x**2-x)*ln(5)
+8*x**10+72*x**8+216*x**6+216*x**4+x**3)*ln(x)**2-ln(5)**2+2*x*ln(5)-x**2)/(x*ln(5)**2-2*x**2*ln(5)+x**3)/ln(x
)**2,x)

[Out]

x**8 + 12*x**6 + 54*x**4 + 108*x**2 + x + 1/log(x) + log(5)/(x - log(5))

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 80 vs. \(2 (25) = 50\).

Time = 0.31 (sec) , antiderivative size = 80, normalized size of antiderivative = 3.08 \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=\frac {{\left (x^{9} - x^{8} \log \left (5\right ) + 12 \, x^{7} - 12 \, x^{6} \log \left (5\right ) + 54 \, x^{5} - 54 \, x^{4} \log \left (5\right ) + 108 \, x^{3} - x^{2} {\left (108 \, \log \left (5\right ) - 1\right )} - x \log \left (5\right ) + \log \left (5\right )\right )} \log \left (x\right ) + x - \log \left (5\right )}{{\left (x - \log \left (5\right )\right )} \log \left (x\right )} \]

[In]

integrate((((8*x^8+72*x^6+216*x^4+216*x^2+x)*log(5)^2+(-16*x^9-144*x^7-432*x^5-432*x^3-2*x^2-x)*log(5)+8*x^10+
72*x^8+216*x^6+216*x^4+x^3)*log(x)^2-log(5)^2+2*x*log(5)-x^2)/(x*log(5)^2-2*x^2*log(5)+x^3)/log(x)^2,x, algori
thm="maxima")

[Out]

((x^9 - x^8*log(5) + 12*x^7 - 12*x^6*log(5) + 54*x^5 - 54*x^4*log(5) + 108*x^3 - x^2*(108*log(5) - 1) - x*log(
5) + log(5))*log(x) + x - log(5))/((x - log(5))*log(x))

Giac [A] (verification not implemented)

none

Time = 0.29 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.35 \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=x^{8} + 12 \, x^{6} + 54 \, x^{4} + 108 \, x^{2} + x + \frac {\log \left (5\right )}{x - \log \left (5\right )} + \frac {1}{\log \left (x\right )} \]

[In]

integrate((((8*x^8+72*x^6+216*x^4+216*x^2+x)*log(5)^2+(-16*x^9-144*x^7-432*x^5-432*x^3-2*x^2-x)*log(5)+8*x^10+
72*x^8+216*x^6+216*x^4+x^3)*log(x)^2-log(5)^2+2*x*log(5)-x^2)/(x*log(5)^2-2*x^2*log(5)+x^3)/log(x)^2,x, algori
thm="giac")

[Out]

x^8 + 12*x^6 + 54*x^4 + 108*x^2 + x + log(5)/(x - log(5)) + 1/log(x)

Mupad [B] (verification not implemented)

Time = 13.14 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.35 \[ \int \frac {-x^2+2 x \log (5)-\log ^2(5)+\left (x^3+216 x^4+216 x^6+72 x^8+8 x^{10}+\left (-x-2 x^2-432 x^3-432 x^5-144 x^7-16 x^9\right ) \log (5)+\left (x+216 x^2+216 x^4+72 x^6+8 x^8\right ) \log ^2(5)\right ) \log ^2(x)}{\left (x^3-2 x^2 \log (5)+x \log ^2(5)\right ) \log ^2(x)} \, dx=x+\frac {1}{\ln \left (x\right )}+\frac {\ln \left (5\right )}{x-\ln \left (5\right )}+108\,x^2+54\,x^4+12\,x^6+x^8 \]

[In]

int((2*x*log(5) + log(x)^2*(x^3 - log(5)*(x + 2*x^2 + 432*x^3 + 432*x^5 + 144*x^7 + 16*x^9) + 216*x^4 + 216*x^
6 + 72*x^8 + 8*x^10 + log(5)^2*(x + 216*x^2 + 216*x^4 + 72*x^6 + 8*x^8)) - log(5)^2 - x^2)/(log(x)^2*(x*log(5)
^2 - 2*x^2*log(5) + x^3)),x)

[Out]

x + 1/log(x) + log(5)/(x - log(5)) + 108*x^2 + 54*x^4 + 12*x^6 + x^8