\(\int \frac {-2+15 x-8 x^2+(1-6 x+3 x^2) \log (x)}{(-3 x+9 x^2-3 x^3+(x-3 x^2+x^3) \log (x)) \log (-54 x+162 x^2-54 x^3+(18 x-54 x^2+18 x^3) \log (4)+(18 x-54 x^2+18 x^3+(-6 x+18 x^2-6 x^3) \log (4)) \log (x))} \, dx\) [3540]

   Optimal result
   Rubi [F]
   Mathematica [A] (verified)
   Maple [B] (verified)
   Fricas [B] (verification not implemented)
   Sympy [B] (verification not implemented)
   Maxima [C] (verification not implemented)
   Giac [B] (verification not implemented)
   Mupad [B] (verification not implemented)

Optimal result

Integrand size = 121, antiderivative size = 22 \[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\log \left (\log \left (6 x \left (-(-1+x)^2+x\right ) (-3+\log (4)) (-3+\log (x))\right )\right ) \]

[Out]

ln(ln(6*(2*ln(2)-3)*x*(x-(-1+x)^2)*(ln(x)-3)))

Rubi [F]

\[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx \]

[In]

Int[(-2 + 15*x - 8*x^2 + (1 - 6*x + 3*x^2)*Log[x])/((-3*x + 9*x^2 - 3*x^3 + (x - 3*x^2 + x^3)*Log[x])*Log[-54*
x + 162*x^2 - 54*x^3 + (18*x - 54*x^2 + 18*x^3)*Log[4] + (18*x - 54*x^2 + 18*x^3 + (-6*x + 18*x^2 - 6*x^3)*Log
[4])*Log[x]]),x]

[Out]

(-18*Defer[Int][1/((3 + Sqrt[5] - 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x
])/Sqrt[5] - 2*Defer[Int][1/(x*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x] - (6*(
5 + 3*Sqrt[5])*Defer[Int][1/((-3 - Sqrt[5] + 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + L
og[x])]), x])/5 - (18*Defer[Int][1/((-3 + Sqrt[5] + 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*
(-3 + Log[x])]), x])/Sqrt[5] - (6*(5 - 3*Sqrt[5])*Defer[Int][1/((-3 + Sqrt[5] + 2*x)*(-3 + Log[x])*Log[-6*x*(1
 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x])/5 - (24*Defer[Int][Log[x]/((3 + Sqrt[5] - 2*x)*(-3 + Log[x])*
Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x])/Sqrt[5] + 6*Sqrt[5]*Defer[Int][Log[x]/((3 + Sqrt[5
] - 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x] + Defer[Int][Log[x]/(x*(-3 +
 Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x] + (2*(5 + 3*Sqrt[5])*Defer[Int][Log[x]/((-
3 - Sqrt[5] + 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x])/5 - (24*Defer[Int
][Log[x]/((-3 + Sqrt[5] + 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x])/Sqrt[
5] + 6*Sqrt[5]*Defer[Int][Log[x]/((-3 + Sqrt[5] + 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x + x^2)*(-3 + Log[4])*(-
3 + Log[x])]), x] + (2*(5 - 3*Sqrt[5])*Defer[Int][Log[x]/((-3 + Sqrt[5] + 2*x)*(-3 + Log[x])*Log[-6*x*(1 - 3*x
 + x^2)*(-3 + Log[4])*(-3 + Log[x])]), x])/5

Rubi steps \begin{align*} \text {integral}& = \int \frac {2-15 x+8 x^2-\left (1-6 x+3 x^2\right ) \log (x)}{x \left (1-3 x+x^2\right ) (3-\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx \\ & = \int \left (\frac {-2+15 x-8 x^2+\log (x)-6 x \log (x)+3 x^2 \log (x)}{x (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {(-3+x) \left (-2+15 x-8 x^2+\log (x)-6 x \log (x)+3 x^2 \log (x)\right )}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}\right ) \, dx \\ & = \int \frac {-2+15 x-8 x^2+\log (x)-6 x \log (x)+3 x^2 \log (x)}{x (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx-\int \frac {(-3+x) \left (-2+15 x-8 x^2+\log (x)-6 x \log (x)+3 x^2 \log (x)\right )}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx \\ & = \int \left (\frac {15}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {2}{x (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {8 x}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {6 \log (x)}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}+\frac {\log (x)}{x (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}+\frac {3 x \log (x)}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}\right ) \, dx-\int \left (\frac {6}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {47 x}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}+\frac {39 x^2}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {8 x^3}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {3 \log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}+\frac {19 x \log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}-\frac {15 x^2 \log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}+\frac {3 x^3 \log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )}\right ) \, dx \\ & = -\left (2 \int \frac {1}{x (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx\right )+3 \int \frac {x \log (x)}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx+3 \int \frac {\log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx-3 \int \frac {x^3 \log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx-6 \int \frac {1}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx-6 \int \frac {\log (x)}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx-8 \int \frac {x}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx+8 \int \frac {x^3}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx+15 \int \frac {1}{(-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx+15 \int \frac {x^2 \log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx-19 \int \frac {x \log (x)}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx-39 \int \frac {x^2}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx+47 \int \frac {x}{\left (1-3 x+x^2\right ) (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx+\int \frac {\log (x)}{x (-3+\log (x)) \log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )} \, dx \\ & = \text {Too large to display} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.37 (sec) , antiderivative size = 21, normalized size of antiderivative = 0.95 \[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\log \left (\log \left (-6 x \left (1-3 x+x^2\right ) (-3+\log (4)) (-3+\log (x))\right )\right ) \]

[In]

Integrate[(-2 + 15*x - 8*x^2 + (1 - 6*x + 3*x^2)*Log[x])/((-3*x + 9*x^2 - 3*x^3 + (x - 3*x^2 + x^3)*Log[x])*Lo
g[-54*x + 162*x^2 - 54*x^3 + (18*x - 54*x^2 + 18*x^3)*Log[4] + (18*x - 54*x^2 + 18*x^3 + (-6*x + 18*x^2 - 6*x^
3)*Log[4])*Log[x]]),x]

[Out]

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

Maple [B] (verified)

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

Time = 2.26 (sec) , antiderivative size = 70, normalized size of antiderivative = 3.18

method result size
parallelrisch \(\ln \left (\ln \left (\left (2 \left (-6 x^{3}+18 x^{2}-6 x \right ) \ln \left (2\right )+18 x^{3}-54 x^{2}+18 x \right ) \ln \left (x \right )+2 \left (18 x^{3}-54 x^{2}+18 x \right ) \ln \left (2\right )-54 x^{3}+162 x^{2}-54 x \right )\right )\) \(70\)
default \(\ln \left (\ln \left (6\right )+\ln \left (-2 \ln \left (2\right ) \ln \left (x \right ) x^{3}+6 x^{2} \ln \left (2\right ) \ln \left (x \right )+3 x^{3} \ln \left (x \right )+6 x^{3} \ln \left (2\right )-2 x \ln \left (2\right ) \ln \left (x \right )-9 x^{2} \ln \left (x \right )-18 x^{2} \ln \left (2\right )-9 x^{3}+3 x \ln \left (x \right )+6 x \ln \left (2\right )+27 x^{2}-9 x \right )\right )\) \(83\)
risch \(\ln \left (\ln \left (x^{2}-3 x +1\right )+\frac {i \left (-2 \pi {\operatorname {csgn}\left (i x \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )}^{2}-\pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right ) \operatorname {csgn}\left (i x \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )+\pi \,\operatorname {csgn}\left (i x \right ) {\operatorname {csgn}\left (i x \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )}^{2}-\pi \,\operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right )\right ) \operatorname {csgn}\left (i \left (x^{2}-3 x +1\right )\right ) \operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )+\pi \,\operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right )\right ) {\operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )}^{2}+\pi \,\operatorname {csgn}\left (i \left (x^{2}-3 x +1\right )\right ) {\operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )}^{2}-\pi {\operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )}^{3}+\pi \,\operatorname {csgn}\left (i \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right ) {\operatorname {csgn}\left (i x \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )}^{2}+\pi {\operatorname {csgn}\left (i x \left (\ln \left (x \right )-3\right ) \left (x^{2}-3 x +1\right )\right )}^{3}-2 i \ln \left (2\right )-2 i \ln \left (\ln \left (x \right )-3\right )-2 i \ln \left (x \right )-2 i \ln \left (3\right )+2 \pi \right )}{2}\right )\) \(309\)

[In]

int(((3*x^2-6*x+1)*ln(x)-8*x^2+15*x-2)/((x^3-3*x^2+x)*ln(x)-3*x^3+9*x^2-3*x)/ln((2*(-6*x^3+18*x^2-6*x)*ln(2)+1
8*x^3-54*x^2+18*x)*ln(x)+2*(18*x^3-54*x^2+18*x)*ln(2)-54*x^3+162*x^2-54*x),x,method=_RETURNVERBOSE)

[Out]

ln(ln((2*(-6*x^3+18*x^2-6*x)*ln(2)+18*x^3-54*x^2+18*x)*ln(x)+2*(18*x^3-54*x^2+18*x)*ln(2)-54*x^3+162*x^2-54*x)
)

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 62 vs. \(2 (24) = 48\).

Time = 0.26 (sec) , antiderivative size = 62, normalized size of antiderivative = 2.82 \[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\log \left (\log \left (-54 \, x^{3} + 162 \, x^{2} + 36 \, {\left (x^{3} - 3 \, x^{2} + x\right )} \log \left (2\right ) + 6 \, {\left (3 \, x^{3} - 9 \, x^{2} - 2 \, {\left (x^{3} - 3 \, x^{2} + x\right )} \log \left (2\right ) + 3 \, x\right )} \log \left (x\right ) - 54 \, x\right )\right ) \]

[In]

integrate(((3*x^2-6*x+1)*log(x)-8*x^2+15*x-2)/((x^3-3*x^2+x)*log(x)-3*x^3+9*x^2-3*x)/log((2*(-6*x^3+18*x^2-6*x
)*log(2)+18*x^3-54*x^2+18*x)*log(x)+2*(18*x^3-54*x^2+18*x)*log(2)-54*x^3+162*x^2-54*x),x, algorithm="fricas")

[Out]

log(log(-54*x^3 + 162*x^2 + 36*(x^3 - 3*x^2 + x)*log(2) + 6*(3*x^3 - 9*x^2 - 2*(x^3 - 3*x^2 + x)*log(2) + 3*x)
*log(x) - 54*x))

Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 66 vs. \(2 (22) = 44\).

Time = 0.57 (sec) , antiderivative size = 66, normalized size of antiderivative = 3.00 \[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\log {\left (\log {\left (- 54 x^{3} + 162 x^{2} - 54 x + \left (36 x^{3} - 108 x^{2} + 36 x\right ) \log {\left (2 \right )} + \left (18 x^{3} - 54 x^{2} + 18 x + \left (- 12 x^{3} + 36 x^{2} - 12 x\right ) \log {\left (2 \right )}\right ) \log {\left (x \right )} \right )} \right )} \]

[In]

integrate(((3*x**2-6*x+1)*ln(x)-8*x**2+15*x-2)/((x**3-3*x**2+x)*ln(x)-3*x**3+9*x**2-3*x)/ln((2*(-6*x**3+18*x**
2-6*x)*ln(2)+18*x**3-54*x**2+18*x)*ln(x)+2*(18*x**3-54*x**2+18*x)*ln(2)-54*x**3+162*x**2-54*x),x)

[Out]

log(log(-54*x**3 + 162*x**2 - 54*x + (36*x**3 - 108*x**2 + 36*x)*log(2) + (18*x**3 - 54*x**2 + 18*x + (-12*x**
3 + 36*x**2 - 12*x)*log(2))*log(x)))

Maxima [C] (verification not implemented)

Result contains complex when optimal does not.

Time = 0.33 (sec) , antiderivative size = 32, normalized size of antiderivative = 1.45 \[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\log \left (i \, \pi + \log \left (3\right ) + \log \left (2\right ) + \log \left (x^{2} - 3 \, x + 1\right ) + \log \left (x\right ) + \log \left (2 \, \log \left (2\right ) - 3\right ) + \log \left (\log \left (x\right ) - 3\right )\right ) \]

[In]

integrate(((3*x^2-6*x+1)*log(x)-8*x^2+15*x-2)/((x^3-3*x^2+x)*log(x)-3*x^3+9*x^2-3*x)/log((2*(-6*x^3+18*x^2-6*x
)*log(2)+18*x^3-54*x^2+18*x)*log(x)+2*(18*x^3-54*x^2+18*x)*log(2)-54*x^3+162*x^2-54*x),x, algorithm="maxima")

[Out]

log(I*pi + log(3) + log(2) + log(x^2 - 3*x + 1) + log(x) + log(2*log(2) - 3) + log(log(x) - 3))

Giac [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 71 vs. \(2 (24) = 48\).

Time = 0.32 (sec) , antiderivative size = 71, normalized size of antiderivative = 3.23 \[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\log \left (\log \left (2\right ) + \log \left (-6 \, x^{2} \log \left (2\right ) \log \left (x\right ) + 18 \, x^{2} \log \left (2\right ) + 9 \, x^{2} \log \left (x\right ) + 18 \, x \log \left (2\right ) \log \left (x\right ) - 27 \, x^{2} - 54 \, x \log \left (2\right ) - 27 \, x \log \left (x\right ) - 6 \, \log \left (2\right ) \log \left (x\right ) + 81 \, x + 18 \, \log \left (2\right ) + 9 \, \log \left (x\right ) - 27\right ) + \log \left (x\right )\right ) \]

[In]

integrate(((3*x^2-6*x+1)*log(x)-8*x^2+15*x-2)/((x^3-3*x^2+x)*log(x)-3*x^3+9*x^2-3*x)/log((2*(-6*x^3+18*x^2-6*x
)*log(2)+18*x^3-54*x^2+18*x)*log(x)+2*(18*x^3-54*x^2+18*x)*log(2)-54*x^3+162*x^2-54*x),x, algorithm="giac")

[Out]

log(log(2) + log(-6*x^2*log(2)*log(x) + 18*x^2*log(2) + 9*x^2*log(x) + 18*x*log(2)*log(x) - 27*x^2 - 54*x*log(
2) - 27*x*log(x) - 6*log(2)*log(x) + 81*x + 18*log(2) + 9*log(x) - 27) + log(x))

Mupad [B] (verification not implemented)

Time = 10.26 (sec) , antiderivative size = 69, normalized size of antiderivative = 3.14 \[ \int \frac {-2+15 x-8 x^2+\left (1-6 x+3 x^2\right ) \log (x)}{\left (-3 x+9 x^2-3 x^3+\left (x-3 x^2+x^3\right ) \log (x)\right ) \log \left (-54 x+162 x^2-54 x^3+\left (18 x-54 x^2+18 x^3\right ) \log (4)+\left (18 x-54 x^2+18 x^3+\left (-6 x+18 x^2-6 x^3\right ) \log (4)\right ) \log (x)\right )} \, dx=\ln \left (\ln \left (\ln \left (x\right )\,\left (18\,x-2\,\ln \left (2\right )\,\left (6\,x^3-18\,x^2+6\,x\right )-54\,x^2+18\,x^3\right )-54\,x+2\,\ln \left (2\right )\,\left (18\,x^3-54\,x^2+18\,x\right )+162\,x^2-54\,x^3\right )\right ) \]

[In]

int(-(15*x + log(x)*(3*x^2 - 6*x + 1) - 8*x^2 - 2)/(log(log(x)*(18*x - 2*log(2)*(6*x - 18*x^2 + 6*x^3) - 54*x^
2 + 18*x^3) - 54*x + 2*log(2)*(18*x - 54*x^2 + 18*x^3) + 162*x^2 - 54*x^3)*(3*x - log(x)*(x - 3*x^2 + x^3) - 9
*x^2 + 3*x^3)),x)

[Out]

log(log(log(x)*(18*x - 2*log(2)*(6*x - 18*x^2 + 6*x^3) - 54*x^2 + 18*x^3) - 54*x + 2*log(2)*(18*x - 54*x^2 + 1
8*x^3) + 162*x^2 - 54*x^3))