\(\int (c x)^{13/3} (a+b x^2)^{4/3} \, dx\) [802]

Optimal result

Integrand size = 19, antiderivative size = 223 \[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=-\frac {5 a^3 c^3 (c x)^{4/3} \sqrt [3]{a+b x^2}}{324 b^2}+\frac {a^2 c (c x)^{10/3} \sqrt [3]{a+b x^2}}{108 b}+\frac {a (c x)^{16/3} \sqrt [3]{a+b x^2}}{18 c}+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}-\frac {5 a^4 c^{13/3} \arctan \left (\frac {1+\frac {2 \sqrt [3]{b} (c x)^{2/3}}{c^{2/3} \sqrt [3]{a+b x^2}}}{\sqrt {3}}\right )}{162 \sqrt {3} b^{8/3}}-\frac {5 a^4 c^{13/3} \log \left (\sqrt [3]{b} (c x)^{2/3}-c^{2/3} \sqrt [3]{a+b x^2}\right )}{324 b^{8/3}} \] Output:

-5/324*a^3*c^3*(c*x)^(4/3)*(b*x^2+a)^(1/3)/b^2+1/108*a^2*c*(c*x)^(10/3)*(b 
*x^2+a)^(1/3)/b+1/18*a*(c*x)^(16/3)*(b*x^2+a)^(1/3)/c+1/8*(c*x)^(16/3)*(b* 
x^2+a)^(4/3)/c-5/486*a^4*c^(13/3)*arctan(1/3*(1+2*b^(1/3)*(c*x)^(2/3)/c^(2 
/3)/(b*x^2+a)^(1/3))*3^(1/2))*3^(1/2)/b^(8/3)-5/324*a^4*c^(13/3)*ln(b^(1/3 
)*(c*x)^(2/3)-c^(2/3)*(b*x^2+a)^(1/3))/b^(8/3)
 

Mathematica [A] (verified)

Time = 2.57 (sec) , antiderivative size = 259, normalized size of antiderivative = 1.16 \[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=\frac {c^4 \sqrt [3]{c x} \left (-30 a^3 b^{2/3} x^{4/3} \sqrt [3]{a+b x^2}+18 a^2 b^{5/3} x^{10/3} \sqrt [3]{a+b x^2}+351 a b^{8/3} x^{16/3} \sqrt [3]{a+b x^2}+243 b^{11/3} x^{22/3} \sqrt [3]{a+b x^2}-20 \sqrt {3} a^4 \arctan \left (\frac {\sqrt {3} \sqrt [3]{b} x^{2/3}}{\sqrt [3]{b} x^{2/3}+2 \sqrt [3]{a+b x^2}}\right )-20 a^4 \log \left (-\sqrt [3]{b} x^{2/3}+\sqrt [3]{a+b x^2}\right )+10 a^4 \log \left (b^{2/3} x^{4/3}+\sqrt [3]{b} x^{2/3} \sqrt [3]{a+b x^2}+\left (a+b x^2\right )^{2/3}\right )\right )}{1944 b^{8/3} \sqrt [3]{x}} \] Input:

Integrate[(c*x)^(13/3)*(a + b*x^2)^(4/3),x]
 

Output:

(c^4*(c*x)^(1/3)*(-30*a^3*b^(2/3)*x^(4/3)*(a + b*x^2)^(1/3) + 18*a^2*b^(5/ 
3)*x^(10/3)*(a + b*x^2)^(1/3) + 351*a*b^(8/3)*x^(16/3)*(a + b*x^2)^(1/3) + 
 243*b^(11/3)*x^(22/3)*(a + b*x^2)^(1/3) - 20*Sqrt[3]*a^4*ArcTan[(Sqrt[3]* 
b^(1/3)*x^(2/3))/(b^(1/3)*x^(2/3) + 2*(a + b*x^2)^(1/3))] - 20*a^4*Log[-(b 
^(1/3)*x^(2/3)) + (a + b*x^2)^(1/3)] + 10*a^4*Log[b^(2/3)*x^(4/3) + b^(1/3 
)*x^(2/3)*(a + b*x^2)^(1/3) + (a + b*x^2)^(2/3)]))/(1944*b^(8/3)*x^(1/3))
 

Rubi [A] (warning: unable to verify)

Time = 0.33 (sec) , antiderivative size = 240, normalized size of antiderivative = 1.08, number of steps used = 8, number of rules used = 7, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.368, Rules used = {248, 248, 262, 262, 266, 807, 853}

Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.

\(\displaystyle \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx\)

\(\Big \downarrow \) 248

\(\displaystyle \frac {1}{3} a \int (c x)^{13/3} \sqrt [3]{b x^2+a}dx+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}\)

\(\Big \downarrow \) 248

\(\displaystyle \frac {1}{3} a \left (\frac {1}{9} a \int \frac {(c x)^{13/3}}{\left (b x^2+a\right )^{2/3}}dx+\frac {(c x)^{16/3} \sqrt [3]{a+b x^2}}{6 c}\right )+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}\)

\(\Big \downarrow \) 262

\(\displaystyle \frac {1}{3} a \left (\frac {1}{9} a \left (\frac {c (c x)^{10/3} \sqrt [3]{a+b x^2}}{4 b}-\frac {5 a c^2 \int \frac {(c x)^{7/3}}{\left (b x^2+a\right )^{2/3}}dx}{6 b}\right )+\frac {(c x)^{16/3} \sqrt [3]{a+b x^2}}{6 c}\right )+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}\)

\(\Big \downarrow \) 262

\(\displaystyle \frac {1}{3} a \left (\frac {1}{9} a \left (\frac {c (c x)^{10/3} \sqrt [3]{a+b x^2}}{4 b}-\frac {5 a c^2 \left (\frac {c (c x)^{4/3} \sqrt [3]{a+b x^2}}{2 b}-\frac {2 a c^2 \int \frac {\sqrt [3]{c x}}{\left (b x^2+a\right )^{2/3}}dx}{3 b}\right )}{6 b}\right )+\frac {(c x)^{16/3} \sqrt [3]{a+b x^2}}{6 c}\right )+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}\)

\(\Big \downarrow \) 266

\(\displaystyle \frac {1}{3} a \left (\frac {1}{9} a \left (\frac {c (c x)^{10/3} \sqrt [3]{a+b x^2}}{4 b}-\frac {5 a c^2 \left (\frac {c (c x)^{4/3} \sqrt [3]{a+b x^2}}{2 b}-\frac {2 a c \int \frac {c x}{\left (b x^2+a\right )^{2/3}}d\sqrt [3]{c x}}{b}\right )}{6 b}\right )+\frac {(c x)^{16/3} \sqrt [3]{a+b x^2}}{6 c}\right )+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}\)

\(\Big \downarrow \) 807

\(\displaystyle \frac {1}{3} a \left (\frac {1}{9} a \left (\frac {c (c x)^{10/3} \sqrt [3]{a+b x^2}}{4 b}-\frac {5 a c^2 \left (\frac {c (c x)^{4/3} \sqrt [3]{a+b x^2}}{2 b}-\frac {a c \int \frac {(c x)^{2/3}}{\left (a+\frac {b x}{c}\right )^{2/3}}d(c x)^{2/3}}{b}\right )}{6 b}\right )+\frac {(c x)^{16/3} \sqrt [3]{a+b x^2}}{6 c}\right )+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}\)

\(\Big \downarrow \) 853

\(\displaystyle \frac {1}{3} a \left (\frac {1}{9} a \left (\frac {c (c x)^{10/3} \sqrt [3]{a+b x^2}}{4 b}-\frac {5 a c^2 \left (\frac {c (c x)^{4/3} \sqrt [3]{a+b x^2}}{2 b}-\frac {a c \left (-\frac {c^{4/3} \arctan \left (\frac {\frac {2 \sqrt [3]{b} (c x)^{2/3}}{c^{2/3} \sqrt [3]{a+\frac {b x}{c}}}+1}{\sqrt {3}}\right )}{\sqrt {3} b^{2/3}}-\frac {c^{4/3} \log \left (\frac {\sqrt [3]{b} (c x)^{2/3}}{c^{2/3}}-\sqrt [3]{a+\frac {b x}{c}}\right )}{2 b^{2/3}}\right )}{b}\right )}{6 b}\right )+\frac {(c x)^{16/3} \sqrt [3]{a+b x^2}}{6 c}\right )+\frac {(c x)^{16/3} \left (a+b x^2\right )^{4/3}}{8 c}\)

Input:

Int[(c*x)^(13/3)*(a + b*x^2)^(4/3),x]
 

Output:

((c*x)^(16/3)*(a + b*x^2)^(4/3))/(8*c) + (a*(((c*x)^(16/3)*(a + b*x^2)^(1/ 
3))/(6*c) + (a*((c*(c*x)^(10/3)*(a + b*x^2)^(1/3))/(4*b) - (5*a*c^2*((c*(c 
*x)^(4/3)*(a + b*x^2)^(1/3))/(2*b) - (a*c*(-((c^(4/3)*ArcTan[(1 + (2*b^(1/ 
3)*(c*x)^(2/3))/(c^(2/3)*(a + (b*x)/c)^(1/3)))/Sqrt[3]])/(Sqrt[3]*b^(2/3)) 
) - (c^(4/3)*Log[(b^(1/3)*(c*x)^(2/3))/c^(2/3) - (a + (b*x)/c)^(1/3)])/(2* 
b^(2/3))))/b))/(6*b)))/9))/3
 

Defintions of rubi rules used

rule 248

Int[((c_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^2)^(p_), x_Symbol] :> Simp[(c*x)^ 
(m + 1)*((a + b*x^2)^p/(c*(m + 2*p + 1))), x] + Simp[2*a*(p/(m + 2*p + 1)) 
  Int[(c*x)^m*(a + b*x^2)^(p - 1), x], x] /; FreeQ[{a, b, c, m}, x] && GtQ[ 
p, 0] && NeQ[m + 2*p + 1, 0] && IntBinomialQ[a, b, c, 2, m, p, x]
 

rule 262

Int[((c_.)*(x_))^(m_)*((a_) + (b_.)*(x_)^2)^(p_), x_Symbol] :> Simp[c*(c*x) 
^(m - 1)*((a + b*x^2)^(p + 1)/(b*(m + 2*p + 1))), x] - Simp[a*c^2*((m - 1)/ 
(b*(m + 2*p + 1)))   Int[(c*x)^(m - 2)*(a + b*x^2)^p, x], x] /; FreeQ[{a, b 
, c, p}, x] && GtQ[m, 2 - 1] && NeQ[m + 2*p + 1, 0] && IntBinomialQ[a, b, c 
, 2, m, p, x]
 

rule 266

Int[((c_.)*(x_))^(m_)*((a_) + (b_.)*(x_)^2)^(p_), x_Symbol] :> With[{k = De 
nominator[m]}, Simp[k/c   Subst[Int[x^(k*(m + 1) - 1)*(a + b*(x^(2*k)/c^2)) 
^p, x], x, (c*x)^(1/k)], x]] /; FreeQ[{a, b, c, p}, x] && FractionQ[m] && I 
ntBinomialQ[a, b, c, 2, m, p, x]
 

rule 807

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

rule 853

Int[(x_)/((a_) + (b_.)*(x_)^3)^(2/3), x_Symbol] :> With[{q = Rt[b, 3]}, Sim 
p[-ArcTan[(1 + 2*q*(x/(a + b*x^3)^(1/3)))/Sqrt[3]]/(Sqrt[3]*q^2), x] - Simp 
[Log[q*x - (a + b*x^3)^(1/3)]/(2*q^2), x]] /; FreeQ[{a, b}, x]
 

Maple [F]

\[\int \left (c x \right )^{\frac {13}{3}} \left (b \,x^{2}+a \right )^{\frac {4}{3}}d x\]

Input:

int((c*x)^(13/3)*(b*x^2+a)^(4/3),x)
 

Output:

int((c*x)^(13/3)*(b*x^2+a)^(4/3),x)
 

Fricas [F(-1)]

Timed out. \[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=\text {Timed out} \] Input:

integrate((c*x)^(13/3)*(b*x^2+a)^(4/3),x, algorithm="fricas")
 

Output:

Timed out
 

Sympy [F(-1)]

Timed out. \[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=\text {Timed out} \] Input:

integrate((c*x)**(13/3)*(b*x**2+a)**(4/3),x)
 

Output:

Timed out
 

Maxima [F]

\[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=\int { {\left (b x^{2} + a\right )}^{\frac {4}{3}} \left (c x\right )^{\frac {13}{3}} \,d x } \] Input:

integrate((c*x)^(13/3)*(b*x^2+a)^(4/3),x, algorithm="maxima")
 

Output:

integrate((b*x^2 + a)^(4/3)*(c*x)^(13/3), x)
 

Giac [F]

\[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=\int { {\left (b x^{2} + a\right )}^{\frac {4}{3}} \left (c x\right )^{\frac {13}{3}} \,d x } \] Input:

integrate((c*x)^(13/3)*(b*x^2+a)^(4/3),x, algorithm="giac")
 

Output:

integrate((b*x^2 + a)^(4/3)*(c*x)^(13/3), x)
 

Mupad [F(-1)]

Timed out. \[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=\int {\left (c\,x\right )}^{13/3}\,{\left (b\,x^2+a\right )}^{4/3} \,d x \] Input:

int((c*x)^(13/3)*(a + b*x^2)^(4/3),x)
 

Output:

int((c*x)^(13/3)*(a + b*x^2)^(4/3), x)
 

Reduce [F]

\[ \int (c x)^{13/3} \left (a+b x^2\right )^{4/3} \, dx=\frac {c^{\frac {13}{3}} \left (-30 x^{\frac {4}{3}} \left (b \,x^{2}+a \right )^{\frac {1}{3}} a^{3}+18 x^{\frac {10}{3}} \left (b \,x^{2}+a \right )^{\frac {1}{3}} a^{2} b +351 x^{\frac {16}{3}} \left (b \,x^{2}+a \right )^{\frac {1}{3}} a \,b^{2}+243 x^{\frac {22}{3}} \left (b \,x^{2}+a \right )^{\frac {1}{3}} b^{3}+40 \left (\int \frac {x^{\frac {1}{3}}}{\left (b \,x^{2}+a \right )^{\frac {2}{3}}}d x \right ) a^{4}\right )}{1944 b^{2}} \] Input:

int((c*x)^(13/3)*(b*x^2+a)^(4/3),x)
 

Output:

(c**(1/3)*c**4*( - 30*x**(1/3)*(a + b*x**2)**(1/3)*a**3*x + 18*x**(1/3)*(a 
 + b*x**2)**(1/3)*a**2*b*x**3 + 351*x**(1/3)*(a + b*x**2)**(1/3)*a*b**2*x* 
*5 + 243*x**(1/3)*(a + b*x**2)**(1/3)*b**3*x**7 + 40*int((x**(1/3)*(a + b* 
x**2)**(1/3))/(a + b*x**2),x)*a**4))/(1944*b**2)