\(\int \frac {e^{\frac {4+2 x}{x}} (26 x+5 x^3)+e^{\frac {4+2 x}{x}} (-104-20 x^2+10 x^3) \log (x)}{5 x^2} \, dx\) [5192]

Optimal result

Integrand size = 55, antiderivative size = 23 \[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=5+e^{\frac {4+2 x}{x}} \left (\frac {26}{5}+x^2\right ) \log (x) \]

[Out]

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

Rubi [A] (verified)

Time = 0.29 (sec) , antiderivative size = 31, normalized size of antiderivative = 1.35, number of steps used = 30, number of rules used = 10, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.182, Rules used = {12, 14, 2241, 2245, 2237, 2634, 6618, 6610, 2240, 2258} \[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=e^{\frac {4}{x}+2} x^2 \log (x)+\frac {26}{5} e^{\frac {4}{x}+2} \log (x) \]

[In]

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

[Out]

(26*E^(2 + 4/x)*Log[x])/5 + E^(2 + 4/x)*x^2*Log[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 14

Int[(u_)*((c_.)*(x_))^(m_.), x_Symbol] :> Int[ExpandIntegrand[(c*x)^m*u, x], x] /; FreeQ[{c, m}, x] && SumQ[u]
&&  !LinearQ[u, x] &&  !MatchQ[u, (a_) + (b_.)*(v_) /; FreeQ[{a, b}, x] && InverseFunctionQ[v]]

Rule 2237

Int[(F_)^((a_.) + (b_.)*((c_.) + (d_.)*(x_))^(n_)), x_Symbol] :> Simp[(c + d*x)*(F^(a + b*(c + d*x)^n)/d), x]
- Dist[b*n*Log[F], Int[(c + d*x)^n*F^(a + b*(c + d*x)^n), x], x] /; FreeQ[{F, a, b, c, d}, x] && IntegerQ[2/n]
&& ILtQ[n, 0]

Rule 2240

Int[(F_)^((a_.) + (b_.)*((c_.) + (d_.)*(x_))^(n_))*((e_.) + (f_.)*(x_))^(m_.), x_Symbol] :> Simp[(e + f*x)^n*(
F^(a + b*(c + d*x)^n)/(b*f*n*(c + d*x)^n*Log[F])), x] /; FreeQ[{F, a, b, c, d, e, f, n}, x] && EqQ[m, n - 1] &
& EqQ[d*e - c*f, 0]

Rule 2241

Int[(F_)^((a_.) + (b_.)*((c_.) + (d_.)*(x_))^(n_))/((e_.) + (f_.)*(x_)), x_Symbol] :> Simp[F^a*(ExpIntegralEi[
b*(c + d*x)^n*Log[F]]/(f*n)), x] /; FreeQ[{F, a, b, c, d, e, f, n}, x] && EqQ[d*e - c*f, 0]

Rule 2245

Int[(F_)^((a_.) + (b_.)*((c_.) + (d_.)*(x_))^(n_))*((c_.) + (d_.)*(x_))^(m_.), x_Symbol] :> Simp[(c + d*x)^(m
+ 1)*(F^(a + b*(c + d*x)^n)/(d*(m + 1))), x] - Dist[b*n*(Log[F]/(m + 1)), Int[(c + d*x)^(m + n)*F^(a + b*(c +
d*x)^n), x], x] /; FreeQ[{F, a, b, c, d}, x] && IntegerQ[2*((m + 1)/n)] && LtQ[-4, (m + 1)/n, 5] && IntegerQ[n
] && ((GtQ[n, 0] && LtQ[m, -1]) || (GtQ[-n, 0] && LeQ[-n, m + 1]))

Rule 2258

Int[(F_)^((a_.) + (b_.)*((c_.) + (d_.)*(x_))^(n_))*(u_), x_Symbol] :> Int[ExpandLinearProduct[F^(a + b*(c + d*
x)^n), u, c, d, x], x] /; FreeQ[{F, a, b, c, d, n}, x] && PolynomialQ[u, x]

Rule 2634

Int[Log[u_]*(v_), x_Symbol] :> With[{w = IntHide[v, x]}, Dist[Log[u], w, x] - Int[SimplifyIntegrand[w*(D[u, x]
/u), x], x] /; InverseFunctionFreeQ[w, x]] /; InverseFunctionFreeQ[u, x]

Rule 6610

Int[ExpIntegralE[1, (b_.)*(x_)]/(x_), x_Symbol] :> Simp[b*x*HypergeometricPFQ[{1, 1, 1}, {2, 2, 2}, (-b)*x], x
] + (-Simp[EulerGamma*Log[x], x] - Simp[(1/2)*Log[b*x]^2, x]) /; FreeQ[b, x]

Rule 6618

Int[ExpIntegralEi[(b_.)*(x_)]/(x_), x_Symbol] :> Simp[Log[x]*(ExpIntegralEi[b*x] + ExpIntegralE[1, (-b)*x]), x
] - Int[ExpIntegralE[1, (-b)*x]/x, x] /; FreeQ[b, x]

Rubi steps \begin{align*} \text {integral}& = \frac {1}{5} \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{x^2} \, dx \\ & = \frac {1}{5} \int \left (\frac {26 e^{2+\frac {4}{x}}}{x}+5 e^{2+\frac {4}{x}} x-20 e^{2+\frac {4}{x}} \log (x)-\frac {104 e^{2+\frac {4}{x}} \log (x)}{x^2}+10 e^{2+\frac {4}{x}} x \log (x)\right ) \, dx \\ & = 2 \int e^{2+\frac {4}{x}} x \log (x) \, dx-4 \int e^{2+\frac {4}{x}} \log (x) \, dx+\frac {26}{5} \int \frac {e^{2+\frac {4}{x}}}{x} \, dx-\frac {104}{5} \int \frac {e^{2+\frac {4}{x}} \log (x)}{x^2} \, dx+\int e^{2+\frac {4}{x}} x \, dx \\ & = \frac {1}{2} e^{2+\frac {4}{x}} x^2-\frac {26}{5} e^2 \text {Ei}\left (\frac {4}{x}\right )+\frac {26}{5} e^{2+\frac {4}{x}} \log (x)+e^{2+\frac {4}{x}} x^2 \log (x)+2 \int e^{2+\frac {4}{x}} \, dx-2 \int \left (\frac {1}{2} e^{2+\frac {4}{x}} (4+x)-\frac {8 e^2 \text {Ei}\left (\frac {4}{x}\right )}{x}\right ) \, dx+4 \int e^2 \left (e^{4/x}-\frac {4 \text {Ei}\left (\frac {4}{x}\right )}{x}\right ) \, dx+\frac {104}{5} \int -\frac {e^{2+\frac {4}{x}}}{4 x} \, dx \\ & = 2 e^{2+\frac {4}{x}} x+\frac {1}{2} e^{2+\frac {4}{x}} x^2-\frac {26}{5} e^2 \text {Ei}\left (\frac {4}{x}\right )+\frac {26}{5} e^{2+\frac {4}{x}} \log (x)+e^{2+\frac {4}{x}} x^2 \log (x)-\frac {26}{5} \int \frac {e^{2+\frac {4}{x}}}{x} \, dx+8 \int \frac {e^{2+\frac {4}{x}}}{x} \, dx+\left (4 e^2\right ) \int \left (e^{4/x}-\frac {4 \text {Ei}\left (\frac {4}{x}\right )}{x}\right ) \, dx+\left (16 e^2\right ) \int \frac {\text {Ei}\left (\frac {4}{x}\right )}{x} \, dx-\int e^{2+\frac {4}{x}} (4+x) \, dx \\ & = 2 e^{2+\frac {4}{x}} x+\frac {1}{2} e^{2+\frac {4}{x}} x^2-8 e^2 \text {Ei}\left (\frac {4}{x}\right )+\frac {26}{5} e^{2+\frac {4}{x}} \log (x)+e^{2+\frac {4}{x}} x^2 \log (x)+\left (4 e^2\right ) \int e^{4/x} \, dx-\left (16 e^2\right ) \int \frac {\text {Ei}\left (\frac {4}{x}\right )}{x} \, dx-\left (16 e^2\right ) \text {Subst}\left (\int \frac {\text {Ei}(4 x)}{x} \, dx,x,\frac {1}{x}\right )-\int \left (4 e^{2+\frac {4}{x}}+e^{2+\frac {4}{x}} x\right ) \, dx \\ & = 6 e^{2+\frac {4}{x}} x+\frac {1}{2} e^{2+\frac {4}{x}} x^2-8 e^2 \text {Ei}\left (\frac {4}{x}\right )-16 e^2 \left (E_1\left (-\frac {4}{x}\right )+\text {Ei}\left (\frac {4}{x}\right )\right ) \log \left (\frac {1}{x}\right )+\frac {26}{5} e^{2+\frac {4}{x}} \log (x)+e^{2+\frac {4}{x}} x^2 \log (x)-4 \int e^{2+\frac {4}{x}} \, dx+\left (16 e^2\right ) \int \frac {e^{4/x}}{x} \, dx+\left (16 e^2\right ) \text {Subst}\left (\int \frac {E_1(-4 x)}{x} \, dx,x,\frac {1}{x}\right )+\left (16 e^2\right ) \text {Subst}\left (\int \frac {\text {Ei}(4 x)}{x} \, dx,x,\frac {1}{x}\right )-\int e^{2+\frac {4}{x}} x \, dx \\ & = 2 e^{2+\frac {4}{x}} x-24 e^2 \text {Ei}\left (\frac {4}{x}\right )-\frac {64 e^2 \, _3F_3\left (1,1,1;2,2,2;\frac {4}{x}\right )}{x}-8 e^2 \log ^2\left (-\frac {4}{x}\right )+\frac {26}{5} e^{2+\frac {4}{x}} \log (x)+16 e^2 \gamma \log (x)+e^{2+\frac {4}{x}} x^2 \log (x)-2 \int e^{2+\frac {4}{x}} \, dx-16 \int \frac {e^{2+\frac {4}{x}}}{x} \, dx-\left (16 e^2\right ) \text {Subst}\left (\int \frac {E_1(-4 x)}{x} \, dx,x,\frac {1}{x}\right ) \\ & = -8 e^2 \text {Ei}\left (\frac {4}{x}\right )+\frac {26}{5} e^{2+\frac {4}{x}} \log (x)+e^{2+\frac {4}{x}} x^2 \log (x)-8 \int \frac {e^{2+\frac {4}{x}}}{x} \, dx \\ & = \frac {26}{5} e^{2+\frac {4}{x}} \log (x)+e^{2+\frac {4}{x}} x^2 \log (x) \\ \end{align*}

Mathematica [A] (verified)

Time = 0.08 (sec) , antiderivative size = 22, normalized size of antiderivative = 0.96 \[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=\frac {1}{5} e^{2+\frac {4}{x}} \left (26+5 x^2\right ) \log (x) \]

[In]

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

[Out]

(E^(2 + 4/x)*(26 + 5*x^2)*Log[x])/5

Maple [A] (verified)

Time = 0.10 (sec) , antiderivative size = 21, normalized size of antiderivative = 0.91

method	result	size
risch	\(\frac {\left (5 x^{2}+26\right ) {\mathrm e}^{\frac {4+2 x}{x}} \ln \left (x \right )}{5}\)	\(21\)
parallelrisch	\({\mathrm e}^{\frac {4+2 x}{x}} \ln \left (x \right ) x^{2}+\frac {26 \,{\mathrm e}^{\frac {4+2 x}{x}} \ln \left (x \right )}{5}\)	\(30\)
norman	\(\frac {x^{3} {\mathrm e}^{\frac {4+2 x}{x}} \ln \left (x \right )+\frac {26 x \,{\mathrm e}^{\frac {4+2 x}{x}} \ln \left (x \right )}{5}}{x}\)	\(37\)

[In]

int(1/5*((10*x^3-20*x^2-104)*exp((4+2*x)/x)*ln(x)+(5*x^3+26*x)*exp((4+2*x)/x))/x^2,x,method=_RETURNVERBOSE)

[Out]

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

Fricas [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.87 \[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=\frac {1}{5} \, {\left (5 \, x^{2} + 26\right )} e^{\left (\frac {2 \, {\left (x + 2\right )}}{x}\right )} \log \left (x\right ) \]

[In]

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

[Out]

1/5*(5*x^2 + 26)*e^(2*(x + 2)/x)*log(x)

Sympy [A] (verification not implemented)

Time = 0.15 (sec) , antiderivative size = 22, normalized size of antiderivative = 0.96 \[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=\frac {\left (5 x^{2} \log {\left (x \right )} + 26 \log {\left (x \right )}\right ) e^{\frac {2 x + 4}{x}}}{5} \]

[In]

integrate(1/5*((10*x**3-20*x**2-104)*exp((4+2*x)/x)*ln(x)+(5*x**3+26*x)*exp((4+2*x)/x))/x**2,x)

[Out]

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

Maxima [F]

\[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=\int { \frac {2 \, {\left (5 \, x^{3} - 10 \, x^{2} - 52\right )} e^{\left (\frac {2 \, {\left (x + 2\right )}}{x}\right )} \log \left (x\right ) + {\left (5 \, x^{3} + 26 \, x\right )} e^{\left (\frac {2 \, {\left (x + 2\right )}}{x}\right )}}{5 \, x^{2}} \,d x } \]

[In]

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

[Out]

-26/5*Ei(4/x)*e^2 + 16*e^2*gamma(-2, -4/x) + 1/5*integrate(2*(5*x^3*e^2 - 10*x^2*e^2 - 52*e^2)*e^(4/x)*log(x)/
x^2, x)

Giac [A] (verification not implemented)

none

Time = 0.35 (sec) , antiderivative size = 29, normalized size of antiderivative = 1.26 \[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=x^{2} e^{\left (\frac {2 \, {\left (x + 2\right )}}{x}\right )} \log \left (x\right ) + \frac {26}{5} \, e^{\left (\frac {2 \, {\left (x + 2\right )}}{x}\right )} \log \left (x\right ) \]

[In]

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

[Out]

x^2*e^(2*(x + 2)/x)*log(x) + 26/5*e^(2*(x + 2)/x)*log(x)

Mupad [B] (verification not implemented)

Time = 11.42 (sec) , antiderivative size = 19, normalized size of antiderivative = 0.83 \[ \int \frac {e^{\frac {4+2 x}{x}} \left (26 x+5 x^3\right )+e^{\frac {4+2 x}{x}} \left (-104-20 x^2+10 x^3\right ) \log (x)}{5 x^2} \, dx=\frac {{\mathrm {e}}^{\frac {4}{x}+2}\,\ln \left (x\right )\,\left (5\,x^2+26\right )}{5} \]

[In]

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

[Out]

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