\(\int \frac {28 x^2-144 x^3+e^{20/x} (-60-20 x-10 x^2)+(-2 x^2-e^{20/x} x^2-16 x^3) \log (2+e^{20/x}+16 x)}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} (9 x^2+6 x^3+x^4)} \, dx\) [5389]

Optimal result

Integrand size = 112, antiderivative size = 21 \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {10+\log \left (2+e^{20/x}+16 x\right )}{3+x} \]

[Out]

(10+ln(exp(20/x)+16*x+2))/(3+x)

Rubi [A] (verified)

Time = 1.86 (sec) , antiderivative size = 27, normalized size of antiderivative = 1.29, number of steps used = 16, number of rules used = 5, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.045, Rules used = {6820, 6874, 907, 2631, 46} \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {10}{x+3}+\frac {\log \left (16 x+e^{20/x}+2\right )}{x+3} \]

[In]

Int[(28*x^2 - 144*x^3 + E^(20/x)*(-60 - 20*x - 10*x^2) + (-2*x^2 - E^(20/x)*x^2 - 16*x^3)*Log[2 + E^(20/x) + 1
6*x])/(18*x^2 + 156*x^3 + 98*x^4 + 16*x^5 + E^(20/x)*(9*x^2 + 6*x^3 + x^4)),x]

[Out]

10/(3 + x) + Log[2 + E^(20/x) + 16*x]/(3 + x)

Rule 46

Int[((a_) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d*x
)^n, x], x] /; FreeQ[{a, b, c, d}, x] && NeQ[b*c - a*d, 0] && ILtQ[m, 0] && IntegerQ[n] &&  !(IGtQ[n, 0] && Lt
Q[m + n + 2, 0])

Rule 907

Int[((d_.) + (e_.)*(x_))^(m_)*((f_.) + (g_.)*(x_))^(n_)*((a_.) + (b_.)*(x_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :
> Int[ExpandIntegrand[(d + e*x)^m*(f + g*x)^n*(a + b*x + c*x^2)^p, x], x] /; FreeQ[{a, b, c, d, e, f, g}, x] &
& NeQ[e*f - d*g, 0] && NeQ[b^2 - 4*a*c, 0] && NeQ[c*d^2 - b*d*e + a*e^2, 0] && IntegerQ[p] && ((EqQ[p, 1] && I
ntegersQ[m, n]) || (ILtQ[m, 0] && ILtQ[n, 0]))

Rule 2631

Int[Log[u_]*((a_.) + (b_.)*(x_))^(m_.), x_Symbol] :> Simp[(a + b*x)^(m + 1)*(Log[u]/(b*(m + 1))), x] - Dist[1/
(b*(m + 1)), Int[SimplifyIntegrand[(a + b*x)^(m + 1)*(D[u, x]/u), x], x], x] /; FreeQ[{a, b, m}, x] && Inverse
FunctionFreeQ[u, x] && NeQ[m, -1]

Rule 6820

Int[u_, x_Symbol] :> With[{v = SimplifyIntegrand[u, x]}, Int[v, x] /; SimplerIntegrandQ[v, u, 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 {-4 x^2 (-7+36 x)-10 e^{20/x} \left (6+2 x+x^2\right )-x^2 \left (2+e^{20/x}+16 x\right ) \log \left (2+e^{20/x}+16 x\right )}{x^2 (3+x)^2 \left (2+e^{20/x}+16 x\right )} \, dx \\ & = \int \left (\frac {8 \left (5+40 x+2 x^2\right )}{x^2 (3+x) \left (2+e^{20/x}+16 x\right )}+\frac {-60-20 x-10 x^2-x^2 \log \left (2+e^{20/x}+16 x\right )}{x^2 (3+x)^2}\right ) \, dx \\ & = 8 \int \frac {5+40 x+2 x^2}{x^2 (3+x) \left (2+e^{20/x}+16 x\right )} \, dx+\int \frac {-60-20 x-10 x^2-x^2 \log \left (2+e^{20/x}+16 x\right )}{x^2 (3+x)^2} \, dx \\ & = 8 \int \left (\frac {5}{3 x^2 \left (2+e^{20/x}+16 x\right )}+\frac {115}{9 x \left (2+e^{20/x}+16 x\right )}-\frac {97}{9 (3+x) \left (2+e^{20/x}+16 x\right )}\right ) \, dx+\int \left (-\frac {10 \left (6+2 x+x^2\right )}{x^2 (3+x)^2}-\frac {\log \left (2+e^{20/x}+16 x\right )}{(3+x)^2}\right ) \, dx \\ & = -\left (10 \int \frac {6+2 x+x^2}{x^2 (3+x)^2} \, dx\right )+\frac {40}{3} \int \frac {1}{x^2 \left (2+e^{20/x}+16 x\right )} \, dx-\frac {776}{9} \int \frac {1}{(3+x) \left (2+e^{20/x}+16 x\right )} \, dx+\frac {920}{9} \int \frac {1}{x \left (2+e^{20/x}+16 x\right )} \, dx-\int \frac {\log \left (2+e^{20/x}+16 x\right )}{(3+x)^2} \, dx \\ & = \frac {\log \left (2+e^{20/x}+16 x\right )}{3+x}-10 \int \left (\frac {2}{3 x^2}-\frac {2}{9 x}+\frac {1}{(3+x)^2}+\frac {2}{9 (3+x)}\right ) \, dx+\frac {40}{3} \int \frac {1}{x^2 \left (2+e^{20/x}+16 x\right )} \, dx-\frac {776}{9} \int \frac {1}{(3+x) \left (2+e^{20/x}+16 x\right )} \, dx+\frac {920}{9} \int \frac {1}{x \left (2+e^{20/x}+16 x\right )} \, dx-\int \frac {16-\frac {20 e^{20/x}}{x^2}}{(3+x) \left (2+e^{20/x}+16 x\right )} \, dx \\ & = \frac {20}{3 x}+\frac {10}{3+x}+\frac {20 \log (x)}{9}-\frac {20}{9} \log (3+x)+\frac {\log \left (2+e^{20/x}+16 x\right )}{3+x}+\frac {40}{3} \int \frac {1}{x^2 \left (2+e^{20/x}+16 x\right )} \, dx-\frac {776}{9} \int \frac {1}{(3+x) \left (2+e^{20/x}+16 x\right )} \, dx+\frac {920}{9} \int \frac {1}{x \left (2+e^{20/x}+16 x\right )} \, dx-\int \left (-\frac {20}{x^2 (3+x)}+\frac {8 \left (5+40 x+2 x^2\right )}{x^2 (3+x) \left (2+e^{20/x}+16 x\right )}\right ) \, dx \\ & = \frac {20}{3 x}+\frac {10}{3+x}+\frac {20 \log (x)}{9}-\frac {20}{9} \log (3+x)+\frac {\log \left (2+e^{20/x}+16 x\right )}{3+x}-8 \int \frac {5+40 x+2 x^2}{x^2 (3+x) \left (2+e^{20/x}+16 x\right )} \, dx+\frac {40}{3} \int \frac {1}{x^2 \left (2+e^{20/x}+16 x\right )} \, dx+20 \int \frac {1}{x^2 (3+x)} \, dx-\frac {776}{9} \int \frac {1}{(3+x) \left (2+e^{20/x}+16 x\right )} \, dx+\frac {920}{9} \int \frac {1}{x \left (2+e^{20/x}+16 x\right )} \, dx \\ & = \frac {20}{3 x}+\frac {10}{3+x}+\frac {20 \log (x)}{9}-\frac {20}{9} \log (3+x)+\frac {\log \left (2+e^{20/x}+16 x\right )}{3+x}-8 \int \left (\frac {5}{3 x^2 \left (2+e^{20/x}+16 x\right )}+\frac {115}{9 x \left (2+e^{20/x}+16 x\right )}-\frac {97}{9 (3+x) \left (2+e^{20/x}+16 x\right )}\right ) \, dx+\frac {40}{3} \int \frac {1}{x^2 \left (2+e^{20/x}+16 x\right )} \, dx+20 \int \left (\frac {1}{3 x^2}-\frac {1}{9 x}+\frac {1}{9 (3+x)}\right ) \, dx-\frac {776}{9} \int \frac {1}{(3+x) \left (2+e^{20/x}+16 x\right )} \, dx+\frac {920}{9} \int \frac {1}{x \left (2+e^{20/x}+16 x\right )} \, dx \\ & = \frac {10}{3+x}+\frac {\log \left (2+e^{20/x}+16 x\right )}{3+x} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.08 (sec) , antiderivative size = 21, normalized size of antiderivative = 1.00 \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {10+\log \left (2+e^{20/x}+16 x\right )}{3+x} \]

[In]

Integrate[(28*x^2 - 144*x^3 + E^(20/x)*(-60 - 20*x - 10*x^2) + (-2*x^2 - E^(20/x)*x^2 - 16*x^3)*Log[2 + E^(20/
x) + 16*x])/(18*x^2 + 156*x^3 + 98*x^4 + 16*x^5 + E^(20/x)*(9*x^2 + 6*x^3 + x^4)),x]

[Out]

(10 + Log[2 + E^(20/x) + 16*x])/(3 + x)

Maple [A] (verified)

Time = 0.51 (sec) , antiderivative size = 26, normalized size of antiderivative = 1.24

method	result	size
parallelrisch	\(\frac {-40 x +12 \ln \left ({\mathrm e}^{\frac {20}{x}}+16 x +2\right )}{12 x +36}\)	\(26\)
risch	\(\frac {\ln \left ({\mathrm e}^{\frac {20}{x}}+16 x +2\right )}{3+x}+\frac {10}{3+x}\)	\(27\)

[In]

int(((-x^2*exp(20/x)-16*x^3-2*x^2)*ln(exp(20/x)+16*x+2)+(-10*x^2-20*x-60)*exp(20/x)-144*x^3+28*x^2)/((x^4+6*x^
3+9*x^2)*exp(20/x)+16*x^5+98*x^4+156*x^3+18*x^2),x,method=_RETURNVERBOSE)

[Out]

1/12*(-40*x+12*ln(exp(20/x)+16*x+2))/(3+x)

Fricas [A] (verification not implemented)

none

Time = 0.27 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.95 \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {\log \left (16 \, x + e^{\frac {20}{x}} + 2\right ) + 10}{x + 3} \]

[In]

integrate(((-x^2*exp(20/x)-16*x^3-2*x^2)*log(exp(20/x)+16*x+2)+(-10*x^2-20*x-60)*exp(20/x)-144*x^3+28*x^2)/((x
^4+6*x^3+9*x^2)*exp(20/x)+16*x^5+98*x^4+156*x^3+18*x^2),x, algorithm="fricas")

[Out]

(log(16*x + e^(20/x) + 2) + 10)/(x + 3)

Sympy [A] (verification not implemented)

Time = 0.16 (sec) , antiderivative size = 19, normalized size of antiderivative = 0.90 \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {\log {\left (16 x + e^{\frac {20}{x}} + 2 \right )}}{x + 3} + \frac {10}{x + 3} \]

[In]

integrate(((-x**2*exp(20/x)-16*x**3-2*x**2)*ln(exp(20/x)+16*x+2)+(-10*x**2-20*x-60)*exp(20/x)-144*x**3+28*x**2
)/((x**4+6*x**3+9*x**2)*exp(20/x)+16*x**5+98*x**4+156*x**3+18*x**2),x)

[Out]

log(16*x + exp(20/x) + 2)/(x + 3) + 10/(x + 3)

Maxima [A] (verification not implemented)

none

Time = 0.22 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.95 \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {\log \left (16 \, x + e^{\frac {20}{x}} + 2\right ) + 10}{x + 3} \]

[In]

integrate(((-x^2*exp(20/x)-16*x^3-2*x^2)*log(exp(20/x)+16*x+2)+(-10*x^2-20*x-60)*exp(20/x)-144*x^3+28*x^2)/((x
^4+6*x^3+9*x^2)*exp(20/x)+16*x^5+98*x^4+156*x^3+18*x^2),x, algorithm="maxima")

[Out]

(log(16*x + e^(20/x) + 2) + 10)/(x + 3)

Giac [A] (verification not implemented)

none

Time = 0.27 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.95 \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {\log \left (16 \, x + e^{\frac {20}{x}} + 2\right ) + 10}{x + 3} \]

[In]

integrate(((-x^2*exp(20/x)-16*x^3-2*x^2)*log(exp(20/x)+16*x+2)+(-10*x^2-20*x-60)*exp(20/x)-144*x^3+28*x^2)/((x
^4+6*x^3+9*x^2)*exp(20/x)+16*x^5+98*x^4+156*x^3+18*x^2),x, algorithm="giac")

[Out]

(log(16*x + e^(20/x) + 2) + 10)/(x + 3)

Mupad [B] (verification not implemented)

Time = 13.49 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.95 \[ \int \frac {28 x^2-144 x^3+e^{20/x} \left (-60-20 x-10 x^2\right )+\left (-2 x^2-e^{20/x} x^2-16 x^3\right ) \log \left (2+e^{20/x}+16 x\right )}{18 x^2+156 x^3+98 x^4+16 x^5+e^{20/x} \left (9 x^2+6 x^3+x^4\right )} \, dx=\frac {\ln \left (16\,x+{\mathrm {e}}^{20/x}+2\right )+10}{x+3} \]

[In]

int(-(log(16*x + exp(20/x) + 2)*(x^2*exp(20/x) + 2*x^2 + 16*x^3) + exp(20/x)*(20*x + 10*x^2 + 60) - 28*x^2 + 1
44*x^3)/(exp(20/x)*(9*x^2 + 6*x^3 + x^4) + 18*x^2 + 156*x^3 + 98*x^4 + 16*x^5),x)

[Out]

(log(16*x + exp(20/x) + 2) + 10)/(x + 3)