\(\int \frac {8-2 x+6 x^2+(4+x-x^2) \log (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}) \log (\log (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}))}{(-4 x^2-x^3+x^4) \log (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2})} \, dx\) [5379]

Optimal result

Integrand size = 177, antiderivative size = 23 \[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x} \]

[Out]

ln(ln(1/128*(-x^2+x+4)^4/x^2))/x

Rubi [F]

\[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx \]

[In]

Int[(8 - 2*x + 6*x^2 + (4 + x - x^2)*Log[(256 + 256*x - 160*x^2 - 176*x^3 + 49*x^4 + 44*x^5 - 10*x^6 - 4*x^7 +
x^8)/(128*x^2)]*Log[Log[(256 + 256*x - 160*x^2 - 176*x^3 + 49*x^4 + 44*x^5 - 10*x^6 - 4*x^7 + x^8)/(128*x^2)]
])/((-4*x^2 - x^3 + x^4)*Log[(256 + 256*x - 160*x^2 - 176*x^3 + 49*x^4 + 44*x^5 - 10*x^6 - 4*x^7 + x^8)/(128*x
^2)]),x]

[Out]

(-18*Defer[Int][1/((1 + Sqrt[17] - 2*x)*Log[(4 + x - x^2)^4/(128*x^2)]), x])/Sqrt[17] - 2*Defer[Int][1/(x^2*Lo
g[(4 + x - x^2)^4/(128*x^2)]), x] + Defer[Int][1/(x*Log[(4 + x - x^2)^4/(128*x^2)]), x] - ((17 + Sqrt[17])*Def
er[Int][1/((-1 - Sqrt[17] + 2*x)*Log[(4 + x - x^2)^4/(128*x^2)]), x])/17 - (18*Defer[Int][1/((-1 + Sqrt[17] +
2*x)*Log[(4 + x - x^2)^4/(128*x^2)]), x])/Sqrt[17] - ((17 - Sqrt[17])*Defer[Int][1/((-1 + Sqrt[17] + 2*x)*Log[
(4 + x - x^2)^4/(128*x^2)]), x])/17 - Defer[Int][Log[Log[(4 + x - x^2)^4/(128*x^2)]]/x^2, x]

Rubi steps \begin{align*} \text {integral}& = \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{x^2 \left (-4-x+x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx \\ & = \int \frac {-8+2 x-6 x^2-\left (4+x-x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right ) \log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2 \left (4+x-x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx \\ & = \int \left (\frac {2 \left (4-x+3 x^2\right )}{x^2 \left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}-\frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2}\right ) \, dx \\ & = 2 \int \frac {4-x+3 x^2}{x^2 \left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\int \frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2} \, dx \\ & = 2 \int \left (-\frac {1}{x^2 \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}+\frac {1}{2 x \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}+\frac {9-x}{2 \left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}\right ) \, dx-\int \frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2} \, dx \\ & = -\left (2 \int \frac {1}{x^2 \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx\right )+\int \frac {1}{x \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx+\int \frac {9-x}{\left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\int \frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2} \, dx \\ & = -\left (2 \int \frac {1}{x^2 \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx\right )+\int \left (\frac {9}{\left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}-\frac {x}{\left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}\right ) \, dx+\int \frac {1}{x \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\int \frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2} \, dx \\ & = -\left (2 \int \frac {1}{x^2 \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx\right )+9 \int \frac {1}{\left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx+\int \frac {1}{x \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\int \frac {x}{\left (-4-x+x^2\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\int \frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2} \, dx \\ & = -\left (2 \int \frac {1}{x^2 \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx\right )+9 \int \left (-\frac {2}{\sqrt {17} \left (1+\sqrt {17}-2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}-\frac {2}{\sqrt {17} \left (-1+\sqrt {17}+2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}\right ) \, dx-\int \left (\frac {1+\frac {1}{\sqrt {17}}}{\left (-1-\sqrt {17}+2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}+\frac {1-\frac {1}{\sqrt {17}}}{\left (-1+\sqrt {17}+2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )}\right ) \, dx+\int \frac {1}{x \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\int \frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2} \, dx \\ & = -\left (2 \int \frac {1}{x^2 \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx\right )-\frac {18 \int \frac {1}{\left (1+\sqrt {17}-2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx}{\sqrt {17}}-\frac {18 \int \frac {1}{\left (-1+\sqrt {17}+2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx}{\sqrt {17}}-\frac {1}{17} \left (17-\sqrt {17}\right ) \int \frac {1}{\left (-1+\sqrt {17}+2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\frac {1}{17} \left (17+\sqrt {17}\right ) \int \frac {1}{\left (-1-\sqrt {17}+2 x\right ) \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx+\int \frac {1}{x \log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )} \, dx-\int \frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x^2} \, dx \\ \end{align*}

Mathematica [A] (verified)

Time = 0.08 (sec) , antiderivative size = 23, normalized size of antiderivative = 1.00 \[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\frac {\log \left (\log \left (\frac {\left (4+x-x^2\right )^4}{128 x^2}\right )\right )}{x} \]

[In]

Integrate[(8 - 2*x + 6*x^2 + (4 + x - x^2)*Log[(256 + 256*x - 160*x^2 - 176*x^3 + 49*x^4 + 44*x^5 - 10*x^6 - 4
*x^7 + x^8)/(128*x^2)]*Log[Log[(256 + 256*x - 160*x^2 - 176*x^3 + 49*x^4 + 44*x^5 - 10*x^6 - 4*x^7 + x^8)/(128
*x^2)]])/((-4*x^2 - x^3 + x^4)*Log[(256 + 256*x - 160*x^2 - 176*x^3 + 49*x^4 + 44*x^5 - 10*x^6 - 4*x^7 + x^8)/
(128*x^2)]),x]

[Out]

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

Maple [B] (verified)

Leaf count of result is larger than twice the leaf count of optimal. \(49\) vs. \(2(21)=42\).

Time = 0.99 (sec) , antiderivative size = 50, normalized size of antiderivative = 2.17

method	result	size
parallelrisch	\(\frac {\ln \left (\ln \left (\frac {x^{8}-4 x^{7}-10 x^{6}+44 x^{5}+49 x^{4}-176 x^{3}-160 x^{2}+256 x +256}{128 x^{2}}\right )\right )}{x}\)	\(50\)

[In]

int(((-x^2+x+4)*ln(1/128*(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2)*ln(ln(1/128*(x^8-4*x^
7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2))+6*x^2-2*x+8)/(x^4-x^3-4*x^2)/ln(1/128*(x^8-4*x^7-10*x^
6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2),x,method=_RETURNVERBOSE)

[Out]

ln(ln(1/128*(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2))/x

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 49 vs. \(2 (21) = 42\).

Time = 0.26 (sec) , antiderivative size = 49, normalized size of antiderivative = 2.13 \[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\frac {\log \left (\log \left (\frac {x^{8} - 4 \, x^{7} - 10 \, x^{6} + 44 \, x^{5} + 49 \, x^{4} - 176 \, x^{3} - 160 \, x^{2} + 256 \, x + 256}{128 \, x^{2}}\right )\right )}{x} \]

[In]

integrate(((-x^2+x+4)*log(1/128*(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2)*log(log(1/128*
(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2))+6*x^2-2*x+8)/(x^4-x^3-4*x^2)/log(1/128*(x^8-4
*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2),x, algorithm="fricas")

[Out]

log(log(1/128*(x^8 - 4*x^7 - 10*x^6 + 44*x^5 + 49*x^4 - 176*x^3 - 160*x^2 + 256*x + 256)/x^2))/x

Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 56 vs. \(2 (17) = 34\).

Time = 0.15 (sec) , antiderivative size = 56, normalized size of antiderivative = 2.43 \[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\frac {\log {\left (\log {\left (\frac {\frac {x^{8}}{128} - \frac {x^{7}}{32} - \frac {5 x^{6}}{64} + \frac {11 x^{5}}{32} + \frac {49 x^{4}}{128} - \frac {11 x^{3}}{8} - \frac {5 x^{2}}{4} + 2 x + 2}{x^{2}} \right )} \right )}}{x} \]

[In]

integrate(((-x**2+x+4)*ln(1/128*(x**8-4*x**7-10*x**6+44*x**5+49*x**4-176*x**3-160*x**2+256*x+256)/x**2)*ln(ln(
1/128*(x**8-4*x**7-10*x**6+44*x**5+49*x**4-176*x**3-160*x**2+256*x+256)/x**2))+6*x**2-2*x+8)/(x**4-x**3-4*x**2
)/ln(1/128*(x**8-4*x**7-10*x**6+44*x**5+49*x**4-176*x**3-160*x**2+256*x+256)/x**2),x)

[Out]

log(log((x**8/128 - x**7/32 - 5*x**6/64 + 11*x**5/32 + 49*x**4/128 - 11*x**3/8 - 5*x**2/4 + 2*x + 2)/x**2))/x

Maxima [A] (verification not implemented)

none

Time = 0.31 (sec) , antiderivative size = 25, normalized size of antiderivative = 1.09 \[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\frac {\log \left (-7 \, \log \left (2\right ) + 4 \, \log \left (x^{2} - x - 4\right ) - 2 \, \log \left (x\right )\right )}{x} \]

[In]

integrate(((-x^2+x+4)*log(1/128*(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2)*log(log(1/128*
(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2))+6*x^2-2*x+8)/(x^4-x^3-4*x^2)/log(1/128*(x^8-4
*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2),x, algorithm="maxima")

[Out]

log(-7*log(2) + 4*log(x^2 - x - 4) - 2*log(x))/x

Giac [F(-2)]

Exception generated. \[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\text {Exception raised: TypeError} \]

[In]

integrate(((-x^2+x+4)*log(1/128*(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2)*log(log(1/128*
(x^8-4*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2))+6*x^2-2*x+8)/(x^4-x^3-4*x^2)/log(1/128*(x^8-4
*x^7-10*x^6+44*x^5+49*x^4-176*x^3-160*x^2+256*x+256)/x^2),x, algorithm="giac")

[Out]

Exception raised: TypeError >> an error occurred running a Giac command:INPUT:sage2:=int(sage0,sageVARx):;OUTP
UT:simplify: Polynomials do not have the same dimension Error: Bad Argument Value

Mupad [B] (verification not implemented)

Time = 13.21 (sec) , antiderivative size = 49, normalized size of antiderivative = 2.13 \[ \int \frac {8-2 x+6 x^2+\left (4+x-x^2\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right ) \log \left (\log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )\right )}{\left (-4 x^2-x^3+x^4\right ) \log \left (\frac {256+256 x-160 x^2-176 x^3+49 x^4+44 x^5-10 x^6-4 x^7+x^8}{128 x^2}\right )} \, dx=\frac {\ln \left (\ln \left (\frac {x^8-4\,x^7-10\,x^6+44\,x^5+49\,x^4-176\,x^3-160\,x^2+256\,x+256}{128\,x^2}\right )\right )}{x} \]

[In]

int(-(6*x^2 - 2*x + log((2*x - (5*x^2)/4 - (11*x^3)/8 + (49*x^4)/128 + (11*x^5)/32 - (5*x^6)/64 - x^7/32 + x^8
/128 + 2)/x^2)*log(log((2*x - (5*x^2)/4 - (11*x^3)/8 + (49*x^4)/128 + (11*x^5)/32 - (5*x^6)/64 - x^7/32 + x^8/
128 + 2)/x^2))*(x - x^2 + 4) + 8)/(log((2*x - (5*x^2)/4 - (11*x^3)/8 + (49*x^4)/128 + (11*x^5)/32 - (5*x^6)/64
- x^7/32 + x^8/128 + 2)/x^2)*(4*x^2 + x^3 - x^4)),x)

[Out]

log(log((256*x - 160*x^2 - 176*x^3 + 49*x^4 + 44*x^5 - 10*x^6 - 4*x^7 + x^8 + 256)/(128*x^2)))/x