3.6.33 \(\int e^{-2 x} (-3+e^{7 x})^{2/3} \, dx\) [533]

Optimal. Leaf size=37 \[ \frac {1}{6} e^{-2 x} \left (-3+e^{7 x}\right )^{5/3} \, _2F_1\left (1,\frac {29}{21};\frac {5}{7};\frac {e^{7 x}}{3}\right ) \]

[Out]

1/6*(-3+exp(7*x))^(5/3)*hypergeom([1, 29/21],[5/7],1/3*exp(7*x))/exp(2*x)

________________________________________________________________________________________

Rubi [A]
time = 0.03, antiderivative size = 57, normalized size of antiderivative = 1.54, number of steps used = 4, number of rules used = 4, integrand size = 17, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.235, Rules used = {2281, 342, 372, 371} \begin {gather*} -\frac {3^{2/3} e^{-2 x} \left (e^{7 x}-3\right )^{2/3} \text {Hypergeometric2F1}\left (-\frac {2}{3},-\frac {2}{7},\frac {5}{7},\frac {e^{7 x}}{3}\right )}{2 \left (3-e^{7 x}\right )^{2/3}} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(-3 + E^(7*x))^(2/3)/E^(2*x),x]

[Out]

-1/2*(3^(2/3)*(-3 + E^(7*x))^(2/3)*Hypergeometric2F1[-2/3, -2/7, 5/7, E^(7*x)/3])/(E^(2*x)*(3 - E^(7*x))^(2/3)
)

Rule 342

Int[(x_)^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> -Subst[Int[(a + b/x^n)^p/x^(m + 2), x], x, 1/x] /;
FreeQ[{a, b, p}, x] && ILtQ[n, 0] && IntegerQ[m]

Rule 371

Int[((c_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[a^p*((c*x)^(m + 1)/(c*(m + 1)))*Hyperg
eometric2F1[-p, (m + 1)/n, (m + 1)/n + 1, (-b)*(x^n/a)], x] /; FreeQ[{a, b, c, m, n, p}, x] &&  !IGtQ[p, 0] &&
(ILtQ[p, 0] || GtQ[a, 0])

Rule 372

Int[((c_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Dist[a^IntPart[p]*((a + b*x^n)^FracPart[p]/
(1 + b*(x^n/a))^FracPart[p]), Int[(c*x)^m*(1 + b*(x^n/a))^p, x], x] /; FreeQ[{a, b, c, m, n, p}, x] &&  !IGtQ[
p, 0] &&  !(ILtQ[p, 0] || GtQ[a, 0])

Rule 2281

Int[((a_) + (b_.)*(F_)^((e_.)*((c_.) + (d_.)*(x_))))^(p_.)*(G_)^((h_.)*((f_.) + (g_.)*(x_))), x_Symbol] :> Wit
h[{m = FullSimplify[d*e*(Log[F]/(g*h*Log[G]))]}, Dist[Denominator[m]/(g*h*Log[G]), Subst[Int[x^(Denominator[m]
- 1)*(a + b*F^(c*e - d*e*(f/g))*x^Numerator[m])^p, x], x, G^(h*((f + g*x)/Denominator[m]))], x] /; LtQ[m, -1]
|| GtQ[m, 1]] /; FreeQ[{F, G, a, b, c, d, e, f, g, h, p}, x]

Rubi steps

\begin {align*} \int e^{-2 x} \left (-3+e^{7 x}\right )^{2/3} \, dx &=-\text {Subst}\left (\int \left (-3+\frac {1}{x^7}\right )^{2/3} x \, dx,x,e^{-x}\right )\\ &=\text {Subst}\left (\int \frac {\left (-3+x^7\right )^{2/3}}{x^3} \, dx,x,e^x\right )\\ &=\frac {\left (-3+e^{7 x}\right )^{2/3} \text {Subst}\left (\int \frac {\left (1-\frac {x^7}{3}\right )^{2/3}}{x^3} \, dx,x,e^x\right )}{\left (1-\frac {e^{7 x}}{3}\right )^{2/3}}\\ &=-\frac {3^{2/3} e^{-2 x} \left (-3+e^{7 x}\right )^{2/3} \, _2F_1\left (-\frac {2}{3},-\frac {2}{7};\frac {5}{7};\frac {e^{7 x}}{3}\right )}{2 \left (3-e^{7 x}\right )^{2/3}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.03, size = 54, normalized size = 1.46 \begin {gather*} -\frac {e^{-2 x} \left (-3+e^{7 x}\right )^{2/3} \, _2F_1\left (-\frac {2}{3},-\frac {2}{7};\frac {5}{7};\frac {e^{7 x}}{3}\right )}{2 \left (1-\frac {e^{7 x}}{3}\right )^{2/3}} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(-3 + E^(7*x))^(2/3)/E^(2*x),x]

[Out]

-1/2*((-3 + E^(7*x))^(2/3)*Hypergeometric2F1[-2/3, -2/7, 5/7, E^(7*x)/3])/(E^(2*x)*(1 - E^(7*x)/3)^(2/3))

________________________________________________________________________________________

Maple [F]
time = 0.01, size = 0, normalized size = 0.00 \[\int \left (-3+{\mathrm e}^{7 x}\right )^{\frac {2}{3}} {\mathrm e}^{-2 x}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((-3+exp(7*x))^(2/3)/exp(2*x),x)

[Out]

int((-3+exp(7*x))^(2/3)/exp(2*x),x)

________________________________________________________________________________________

Maxima [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Failed to integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate((e^(7*x) - 3)^(2/3)*e^(-2*x), x)

________________________________________________________________________________________

Fricas [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integral((e^(7*x) - 3)^(2/3)*e^(-2*x), x)

________________________________________________________________________________________

Sympy [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \left (e^{7 x} - 3\right )^{\frac {2}{3}} e^{- 2 x}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-3+exp(7*x))**(2/3)/exp(2*x),x)

[Out]

Integral((exp(7*x) - 3)**(2/3)*exp(-2*x), x)

________________________________________________________________________________________

Giac [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate((e^(7*x) - 3)^(2/3)*e^(-2*x), x)

________________________________________________________________________________________

Mupad [F]
time = 0.00, size = -1, normalized size = -0.03 \begin {gather*} \int {\mathrm {e}}^{-2\,x}\,{\left ({\mathrm {e}}^{7\,x}-3\right )}^{2/3} \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(exp(-2*x)*(exp(7*x) - 3)^(2/3),x)

[Out]

int(exp(-2*x)*(exp(7*x) - 3)^(2/3), x)

________________________________________________________________________________________