\(\int f^{c (a+b x)^3} x \, dx\) [203]

Optimal result

Integrand size = 13, antiderivative size = 92 \[ \int f^{c (a+b x)^3} x \, dx=-\frac {(a+b x)^2 \Gamma \left (\frac {2}{3},-c (a+b x)^3 \log (f)\right )}{3 b^2 \left (-c (a+b x)^3 \log (f)\right )^{2/3}}+\frac {a (a+b x) \Gamma \left (\frac {1}{3},-c (a+b x)^3 \log (f)\right )}{3 b^2 \sqrt [3]{-c (a+b x)^3 \log (f)}} \]

[Out]

-1/3*(b*x+a)^2*GAMMA(2/3,-c*(b*x+a)^3*ln(f))/b^2/(-c*(b*x+a)^3*ln(f))^(2/3)+1/3*a*(b*x+a)*GAMMA(1/3,-c*(b*x+a)
^3*ln(f))/b^2/(-c*(b*x+a)^3*ln(f))^(1/3)

Rubi [A] (verified)

Time = 0.03 (sec) , antiderivative size = 92, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.231, Rules used = {2258, 2239, 2250} \[ \int f^{c (a+b x)^3} x \, dx=\frac {a (a+b x) \Gamma \left (\frac {1}{3},-c (a+b x)^3 \log (f)\right )}{3 b^2 \sqrt [3]{-c \log (f) (a+b x)^3}}-\frac {(a+b x)^2 \Gamma \left (\frac {2}{3},-c (a+b x)^3 \log (f)\right )}{3 b^2 \left (-c \log (f) (a+b x)^3\right )^{2/3}} \]

[In]

Int[f^(c*(a + b*x)^3)*x,x]

[Out]

-1/3*((a + b*x)^2*Gamma[2/3, -(c*(a + b*x)^3*Log[f])])/(b^2*(-(c*(a + b*x)^3*Log[f]))^(2/3)) + (a*(a + b*x)*Ga
mma[1/3, -(c*(a + b*x)^3*Log[f])])/(3*b^2*(-(c*(a + b*x)^3*Log[f]))^(1/3))

Rule 2239

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

Rule 2250

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

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]

Rubi steps \begin{align*} \text {integral}& = \int \left (-\frac {a f^{c (a+b x)^3}}{b}+\frac {f^{c (a+b x)^3} (a+b x)}{b}\right ) \, dx \\ & = \frac {\int f^{c (a+b x)^3} (a+b x) \, dx}{b}-\frac {a \int f^{c (a+b x)^3} \, dx}{b} \\ & = -\frac {(a+b x)^2 \Gamma \left (\frac {2}{3},-c (a+b x)^3 \log (f)\right )}{3 b^2 \left (-c (a+b x)^3 \log (f)\right )^{2/3}}+\frac {a (a+b x) \Gamma \left (\frac {1}{3},-c (a+b x)^3 \log (f)\right )}{3 b^2 \sqrt [3]{-c (a+b x)^3 \log (f)}} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.30 (sec) , antiderivative size = 86, normalized size of antiderivative = 0.93 \[ \int f^{c (a+b x)^3} x \, dx=-\frac {(a+b x) \left ((a+b x) \Gamma \left (\frac {2}{3},-c (a+b x)^3 \log (f)\right )-a \Gamma \left (\frac {1}{3},-c (a+b x)^3 \log (f)\right ) \sqrt [3]{-c (a+b x)^3 \log (f)}\right )}{3 b^2 \left (-c (a+b x)^3 \log (f)\right )^{2/3}} \]

[In]

Integrate[f^(c*(a + b*x)^3)*x,x]

[Out]

-1/3*((a + b*x)*((a + b*x)*Gamma[2/3, -(c*(a + b*x)^3*Log[f])] - a*Gamma[1/3, -(c*(a + b*x)^3*Log[f])]*(-(c*(a
+ b*x)^3*Log[f]))^(1/3)))/(b^2*(-(c*(a + b*x)^3*Log[f]))^(2/3))

Maple [F]

\[\int f^{c \left (b x +a \right )^{3}} x d x\]

[In]

int(f^(c*(b*x+a)^3)*x,x)

[Out]

int(f^(c*(b*x+a)^3)*x,x)

Fricas [A] (verification not implemented)

none

Time = 0.08 (sec) , antiderivative size = 114, normalized size of antiderivative = 1.24 \[ \int f^{c (a+b x)^3} x \, dx=-\frac {\left (-b^{3} c \log \left (f\right )\right )^{\frac {2}{3}} a \Gamma \left (\frac {1}{3}, -{\left (b^{3} c x^{3} + 3 \, a b^{2} c x^{2} + 3 \, a^{2} b c x + a^{3} c\right )} \log \left (f\right )\right ) - \left (-b^{3} c \log \left (f\right )\right )^{\frac {1}{3}} b \Gamma \left (\frac {2}{3}, -{\left (b^{3} c x^{3} + 3 \, a b^{2} c x^{2} + 3 \, a^{2} b c x + a^{3} c\right )} \log \left (f\right )\right )}{3 \, b^{4} c \log \left (f\right )} \]

[In]

integrate(f^(c*(b*x+a)^3)*x,x, algorithm="fricas")

[Out]

-1/3*((-b^3*c*log(f))^(2/3)*a*gamma(1/3, -(b^3*c*x^3 + 3*a*b^2*c*x^2 + 3*a^2*b*c*x + a^3*c)*log(f)) - (-b^3*c*
log(f))^(1/3)*b*gamma(2/3, -(b^3*c*x^3 + 3*a*b^2*c*x^2 + 3*a^2*b*c*x + a^3*c)*log(f)))/(b^4*c*log(f))

Sympy [F]

\[ \int f^{c (a+b x)^3} x \, dx=\int f^{c \left (a + b x\right )^{3}} x\, dx \]

[In]

integrate(f**(c*(b*x+a)**3)*x,x)

[Out]

Integral(f**(c*(a + b*x)**3)*x, x)

Maxima [F]

\[ \int f^{c (a+b x)^3} x \, dx=\int { f^{{\left (b x + a\right )}^{3} c} x \,d x } \]

[In]

integrate(f^(c*(b*x+a)^3)*x,x, algorithm="maxima")

[Out]

integrate(f^((b*x + a)^3*c)*x, x)

Giac [F]

\[ \int f^{c (a+b x)^3} x \, dx=\int { f^{{\left (b x + a\right )}^{3} c} x \,d x } \]

[In]

integrate(f^(c*(b*x+a)^3)*x,x, algorithm="giac")

[Out]

integrate(f^((b*x + a)^3*c)*x, x)

Mupad [F(-1)]

Timed out. \[ \int f^{c (a+b x)^3} x \, dx=\int f^{c\,{\left (a+b\,x\right )}^3}\,x \,d x \]

[In]

int(f^(c*(a + b*x)^3)*x,x)

[Out]

int(f^(c*(a + b*x)^3)*x, x)