\(\int \frac {4 \log (5)+(-2 x+5 x^2-2 x^3+e^2 (x^2-2 x^3)) \log (5) \log ^2(\frac {4-4 x+x^2+e^4 x^2+e^2 (-4 x+2 x^2)}{x^2})}{(-2 x+x^2+e^2 x^2) \log ^2(\frac {4-4 x+x^2+e^4 x^2+e^2 (-4 x+2 x^2)}{x^2})} \, dx\) [7893]

Optimal result

Integrand size = 122, antiderivative size = 31 \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=\log (5) \left (x-x^2-\frac {1}{\log \left (\left (e^2-\frac {2-x}{x}\right )^2\right )}\right ) \]

[Out]

ln(5)*(-1/ln((exp(2)-(2-x)/x)^2)+x-x^2)

Rubi [A] (verified)

Time = 0.32 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.13, number of steps used = 10, number of rules used = 8, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.066, Rules used = {6, 1607, 6820, 12, 2572, 2562, 2339, 30} \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=x^2 (-\log (5))-\frac {\log (5)}{\log \left (\frac {\left (2-\left (1+e^2\right ) x\right )^2}{x^2}\right )}+x \log (5) \]

[In]

Int[(4*Log[5] + (-2*x + 5*x^2 - 2*x^3 + E^2*(x^2 - 2*x^3))*Log[5]*Log[(4 - 4*x + x^2 + E^4*x^2 + E^2*(-4*x + 2
*x^2))/x^2]^2)/((-2*x + x^2 + E^2*x^2)*Log[(4 - 4*x + x^2 + E^4*x^2 + E^2*(-4*x + 2*x^2))/x^2]^2),x]

[Out]

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

Rule 6

Int[(u_.)*((w_.) + (a_.)*(v_) + (b_.)*(v_))^(p_.), x_Symbol] :> Int[u*((a + b)*v + w)^p, x] /; FreeQ[{a, b}, x
] &&  !FreeQ[v, 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 30

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

Rule 1607

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

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 2562

Int[((A_.) + Log[(e_.)*((a_.) + (b_.)*(x_))^(n_.)*((c_.) + (d_.)*(x_))^(mn_)]*(B_.))^(p_.)*((f_.) + (g_.)*(x_)
)^(m_.)*((h_.) + (i_.)*(x_))^(q_.), x_Symbol] :> Dist[(b*c - a*d)^(m + q + 1)*(g/b)^m*(i/d)^q, Subst[Int[x^m*(
(A + B*Log[e*x^n])^p/(b - d*x)^(m + q + 2)), x], x, (a + b*x)/(c + d*x)], x] /; FreeQ[{a, b, c, d, e, f, g, h,
i, A, B, n, p}, x] && EqQ[n + mn, 0] && IGtQ[n, 0] && NeQ[b*c - a*d, 0] && EqQ[b*f - a*g, 0] && EqQ[d*h - c*i
, 0] && IntegersQ[m, q]

Rule 2572

Int[((A_.) + Log[(e_.)*(u_)^(n_.)*(v_)^(mn_)]*(B_.))^(p_.)*(w_)^(m_.)*(y_)^(q_.), x_Symbol] :> Int[ExpandToSum
[w, x]^m*ExpandToSum[y, x]^q*(A + B*Log[e*(ExpandToSum[u, x]^n/ExpandToSum[v, x]^n)])^p, x] /; FreeQ[{e, A, B,
m, n, p, q}, x] && EqQ[n + mn, 0] && IGtQ[n, 0] && LinearQ[{u, v, w, y}, x] &&  !LinearMatchQ[{u, v, w, y}, x
]

Rule 6820

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

Rubi steps \begin{align*} \text {integral}& = \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+\left (1+e^2\right ) x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx \\ & = \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{x \left (-2+\left (1+e^2\right ) x\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx \\ & = \int \log (5) \left (1-2 x+\frac {4}{x \left (-2+x+e^2 x\right ) \log ^2\left (\frac {\left (-2+x+e^2 x\right )^2}{x^2}\right )}\right ) \, dx \\ & = \log (5) \int \left (1-2 x+\frac {4}{x \left (-2+x+e^2 x\right ) \log ^2\left (\frac {\left (-2+x+e^2 x\right )^2}{x^2}\right )}\right ) \, dx \\ & = x \log (5)-x^2 \log (5)+(4 \log (5)) \int \frac {1}{x \left (-2+x+e^2 x\right ) \log ^2\left (\frac {\left (-2+x+e^2 x\right )^2}{x^2}\right )} \, dx \\ & = x \log (5)-x^2 \log (5)+(4 \log (5)) \int \frac {1}{x \left (-2+\left (1+e^2\right ) x\right ) \log ^2\left (\frac {\left (-2+x+e^2 x\right )^2}{x^2}\right )} \, dx \\ & = x \log (5)-x^2 \log (5)+(4 \log (5)) \int \frac {1}{x \left (-2+\left (1+e^2\right ) x\right ) \log ^2\left (\frac {\left (-2+\left (1+e^2\right ) x\right )^2}{x^2}\right )} \, dx \\ & = x \log (5)-x^2 \log (5)+(2 \log (5)) \text {Subst}\left (\int \frac {1}{x \log ^2\left (x^2\right )} \, dx,x,\frac {-2+\left (1+e^2\right ) x}{x}\right ) \\ & = x \log (5)-x^2 \log (5)+\log (5) \text {Subst}\left (\int \frac {1}{x^2} \, dx,x,\log \left (\frac {\left (-2+\left (1+e^2\right ) x\right )^2}{x^2}\right )\right ) \\ & = x \log (5)-x^2 \log (5)-\frac {\log (5)}{\log \left (\frac {\left (2-\left (1+e^2\right ) x\right )^2}{x^2}\right )} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.03 (sec) , antiderivative size = 29, normalized size of antiderivative = 0.94 \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=\log (5) \left (x-x^2-\frac {1}{\log \left (\frac {\left (-2+x+e^2 x\right )^2}{x^2}\right )}\right ) \]

[In]

Integrate[(4*Log[5] + (-2*x + 5*x^2 - 2*x^3 + E^2*(x^2 - 2*x^3))*Log[5]*Log[(4 - 4*x + x^2 + E^4*x^2 + E^2*(-4
*x + 2*x^2))/x^2]^2)/((-2*x + x^2 + E^2*x^2)*Log[(4 - 4*x + x^2 + E^4*x^2 + E^2*(-4*x + 2*x^2))/x^2]^2),x]

[Out]

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

Maple [A] (verified)

Time = 0.27 (sec) , antiderivative size = 42, normalized size of antiderivative = 1.35

method	result	size
derivativedivides	\(-\ln \left (5\right ) \left (x^{2}-x +\frac {1}{\ln \left ({\mathrm e}^{4}-\frac {4 \,{\mathrm e}^{2}}{x}+\frac {4}{x^{2}}+2 \,{\mathrm e}^{2}-\frac {4}{x}+1\right )}\right )\)	\(42\)
default	\(-\ln \left (5\right ) \left (x^{2}-x +\frac {1}{\ln \left ({\mathrm e}^{4}-\frac {4 \,{\mathrm e}^{2}}{x}+\frac {4}{x^{2}}+2 \,{\mathrm e}^{2}-\frac {4}{x}+1\right )}\right )\)	\(42\)
risch	\(-\ln \left (5\right ) x \left (-1+x \right )-\frac {\ln \left (5\right )}{\ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )}\)	\(47\)
parts	\(-\ln \left (5\right ) \left (x^{2}-x \right )-\frac {\ln \left (5\right )}{\ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )}\)	\(52\)
norman	\(\frac {x \ln \left (5\right ) \ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )-x^{2} \ln \left (5\right ) \ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )-\ln \left (5\right )}{\ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )}\)	\(119\)
parallelrisch	\(-\frac {4 x^{2} \ln \left (5\right ) \ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )-4 x \ln \left (5\right ) \ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )+4 \ln \left (5\right )}{4 \ln \left (\frac {x^{2} {\mathrm e}^{4}+\left (2 x^{2}-4 x \right ) {\mathrm e}^{2}+x^{2}-4 x +4}{x^{2}}\right )}\)	\(121\)

[In]

int((((-2*x^3+x^2)*exp(2)-2*x^3+5*x^2-2*x)*ln(5)*ln((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2+4*ln(5)
)/(x^2*exp(2)+x^2-2*x)/ln((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2,x,method=_RETURNVERBOSE)

[Out]

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

Fricas [B] (verification not implemented)

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

Time = 0.25 (sec) , antiderivative size = 77, normalized size of antiderivative = 2.48 \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=-\frac {{\left (x^{2} - x\right )} \log \left (5\right ) \log \left (\frac {x^{2} e^{4} + x^{2} + 2 \, {\left (x^{2} - 2 \, x\right )} e^{2} - 4 \, x + 4}{x^{2}}\right ) + \log \left (5\right )}{\log \left (\frac {x^{2} e^{4} + x^{2} + 2 \, {\left (x^{2} - 2 \, x\right )} e^{2} - 4 \, x + 4}{x^{2}}\right )} \]

[In]

integrate((((-2*x^3+x^2)*exp(2)-2*x^3+5*x^2-2*x)*log(5)*log((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2
+4*log(5))/(x^2*exp(2)+x^2-2*x)/log((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2,x, algorithm="fricas")

[Out]

-((x^2 - x)*log(5)*log((x^2*e^4 + x^2 + 2*(x^2 - 2*x)*e^2 - 4*x + 4)/x^2) + log(5))/log((x^2*e^4 + x^2 + 2*(x^
2 - 2*x)*e^2 - 4*x + 4)/x^2)

Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 46 vs. \(2 (20) = 40\).

Time = 0.07 (sec) , antiderivative size = 46, normalized size of antiderivative = 1.48 \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=- x^{2} \log {\left (5 \right )} + x \log {\left (5 \right )} - \frac {\log {\left (5 \right )}}{\log {\left (\frac {x^{2} + x^{2} e^{4} - 4 x + \left (2 x^{2} - 4 x\right ) e^{2} + 4}{x^{2}} \right )}} \]

[In]

integrate((((-2*x**3+x**2)*exp(2)-2*x**3+5*x**2-2*x)*ln(5)*ln((x**2*exp(2)**2+(2*x**2-4*x)*exp(2)+x**2-4*x+4)/
x**2)**2+4*ln(5))/(x**2*exp(2)+x**2-2*x)/ln((x**2*exp(2)**2+(2*x**2-4*x)*exp(2)+x**2-4*x+4)/x**2)**2,x)

[Out]

-x**2*log(5) + x*log(5) - log(5)/log((x**2 + x**2*exp(4) - 4*x + (2*x**2 - 4*x)*exp(2) + 4)/x**2)

Maxima [B] (verification not implemented)

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

Time = 0.31 (sec) , antiderivative size = 217, normalized size of antiderivative = 7.00 \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=-{\left (\frac {x^{2} {\left (e^{2} + 1\right )} + 4 \, x}{e^{4} + 2 \, e^{2} + 1} + \frac {8 \, \log \left (x {\left (e^{2} + 1\right )} - 2\right )}{e^{6} + 3 \, e^{4} + 3 \, e^{2} + 1}\right )} e^{2} \log \left (5\right ) + {\left (\frac {x}{e^{2} + 1} + \frac {2 \, \log \left (x {\left (e^{2} + 1\right )} - 2\right )}{e^{4} + 2 \, e^{2} + 1}\right )} e^{2} \log \left (5\right ) - {\left (\frac {x^{2} {\left (e^{2} + 1\right )} + 4 \, x}{e^{4} + 2 \, e^{2} + 1} + \frac {8 \, \log \left (x {\left (e^{2} + 1\right )} - 2\right )}{e^{6} + 3 \, e^{4} + 3 \, e^{2} + 1}\right )} \log \left (5\right ) + 5 \, {\left (\frac {x}{e^{2} + 1} + \frac {2 \, \log \left (x {\left (e^{2} + 1\right )} - 2\right )}{e^{4} + 2 \, e^{2} + 1}\right )} \log \left (5\right ) - \frac {2 \, \log \left (5\right ) \log \left (x {\left (e^{2} + 1\right )} - 2\right )}{e^{2} + 1} - \frac {\log \left (5\right )}{2 \, {\left (\log \left (x {\left (e^{2} + 1\right )} - 2\right ) - \log \left (x\right )\right )}} \]

[In]

integrate((((-2*x^3+x^2)*exp(2)-2*x^3+5*x^2-2*x)*log(5)*log((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2
+4*log(5))/(x^2*exp(2)+x^2-2*x)/log((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2,x, algorithm="maxima")

[Out]

-((x^2*(e^2 + 1) + 4*x)/(e^4 + 2*e^2 + 1) + 8*log(x*(e^2 + 1) - 2)/(e^6 + 3*e^4 + 3*e^2 + 1))*e^2*log(5) + (x/
(e^2 + 1) + 2*log(x*(e^2 + 1) - 2)/(e^4 + 2*e^2 + 1))*e^2*log(5) - ((x^2*(e^2 + 1) + 4*x)/(e^4 + 2*e^2 + 1) +
8*log(x*(e^2 + 1) - 2)/(e^6 + 3*e^4 + 3*e^2 + 1))*log(5) + 5*(x/(e^2 + 1) + 2*log(x*(e^2 + 1) - 2)/(e^4 + 2*e^
2 + 1))*log(5) - 2*log(5)*log(x*(e^2 + 1) - 2)/(e^2 + 1) - 1/2*log(5)/(log(x*(e^2 + 1) - 2) - log(x))

Giac [B] (verification not implemented)

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

Time = 0.78 (sec) , antiderivative size = 125, normalized size of antiderivative = 4.03 \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=-\frac {x^{2} \log \left (5\right ) \log \left (x^{2} e^{4} + 2 \, x^{2} e^{2} + x^{2} - 4 \, x e^{2} - 4 \, x + 4\right ) - x^{2} \log \left (5\right ) \log \left (x^{2}\right ) - x \log \left (5\right ) \log \left (x^{2} e^{4} + 2 \, x^{2} e^{2} + x^{2} - 4 \, x e^{2} - 4 \, x + 4\right ) + x \log \left (5\right ) \log \left (x^{2}\right ) + \log \left (5\right )}{\log \left (x^{2} e^{4} + 2 \, x^{2} e^{2} + x^{2} - 4 \, x e^{2} - 4 \, x + 4\right ) - \log \left (x^{2}\right )} \]

[In]

integrate((((-2*x^3+x^2)*exp(2)-2*x^3+5*x^2-2*x)*log(5)*log((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2
+4*log(5))/(x^2*exp(2)+x^2-2*x)/log((x^2*exp(2)^2+(2*x^2-4*x)*exp(2)+x^2-4*x+4)/x^2)^2,x, algorithm="giac")

[Out]

-(x^2*log(5)*log(x^2*e^4 + 2*x^2*e^2 + x^2 - 4*x*e^2 - 4*x + 4) - x^2*log(5)*log(x^2) - x*log(5)*log(x^2*e^4 +
2*x^2*e^2 + x^2 - 4*x*e^2 - 4*x + 4) + x*log(5)*log(x^2) + log(5))/(log(x^2*e^4 + 2*x^2*e^2 + x^2 - 4*x*e^2 -
4*x + 4) - log(x^2))

Mupad [B] (verification not implemented)

Time = 12.91 (sec) , antiderivative size = 50, normalized size of antiderivative = 1.61 \[ \int \frac {4 \log (5)+\left (-2 x+5 x^2-2 x^3+e^2 \left (x^2-2 x^3\right )\right ) \log (5) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )}{\left (-2 x+x^2+e^2 x^2\right ) \log ^2\left (\frac {4-4 x+x^2+e^4 x^2+e^2 \left (-4 x+2 x^2\right )}{x^2}\right )} \, dx=x\,\ln \left (5\right )-x^2\,\ln \left (5\right )-\frac {\ln \left (5\right )}{\ln \left (\frac {x^2\,{\mathrm {e}}^4-{\mathrm {e}}^2\,\left (4\,x-2\,x^2\right )-4\,x+x^2+4}{x^2}\right )} \]

[In]

int((4*log(5) - log(5)*log((x^2*exp(4) - exp(2)*(4*x - 2*x^2) - 4*x + x^2 + 4)/x^2)^2*(2*x - exp(2)*(x^2 - 2*x
^3) - 5*x^2 + 2*x^3))/(log((x^2*exp(4) - exp(2)*(4*x - 2*x^2) - 4*x + x^2 + 4)/x^2)^2*(x^2*exp(2) - 2*x + x^2)
),x)

[Out]

x*log(5) - x^2*log(5) - log(5)/log((x^2*exp(4) - exp(2)*(4*x - 2*x^2) - 4*x + x^2 + 4)/x^2)