\(\int \frac {x (3+7 x^4)}{\sqrt [3]{1+x^4} (-4+x^3+x^7)} \, dx\) [2463]

Optimal result

Integrand size = 28, antiderivative size = 200 \[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=-\frac {\sqrt {3} \arctan \left (\frac {3 \sqrt {3} x \sqrt [3]{1+x^4}-6 x^2 \sqrt [3]{1+x^4}}{-6 2^{2/3}+4\ 2^{2/3} \sqrt {3} x-3 x \sqrt [3]{1+x^4}+2 \sqrt {3} x^2 \sqrt [3]{1+x^4}}\right )}{2^{2/3}}+\sqrt [3]{2} \text {arctanh}\left (1-\sqrt [3]{2} x \sqrt [3]{1+x^4}\right )-\frac {\text {arctanh}\left (\frac {2 \sqrt [3]{2}+2^{2/3} x \sqrt [3]{1+x^4}}{2 \sqrt [3]{2}+2^{2/3} x \sqrt [3]{1+x^4}+2 x^2 \left (1+x^4\right )^{2/3}}\right )}{2^{2/3}} \]

[Out]

-1/2*3^(1/2)*arctan((3*3^(1/2)*x*(x^4+1)^(1/3)-6*x^2*(x^4+1)^(1/3))/(-6*2^(2/3)+4*2^(2/3)*x*3^(1/2)-3*x*(x^4+1
)^(1/3)+2*3^(1/2)*x^2*(x^4+1)^(1/3)))*2^(1/3)-2^(1/3)*arctanh(-1+2^(1/3)*x*(x^4+1)^(1/3))-1/2*arctanh((2*2^(1/
3)+2^(2/3)*x*(x^4+1)^(1/3))/(2*2^(1/3)+2^(2/3)*x*(x^4+1)^(1/3)+2*x^2*(x^4+1)^(2/3)))*2^(1/3)

Rubi [F]

\[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=\int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx \]

[In]

Int[(x*(3 + 7*x^4))/((1 + x^4)^(1/3)*(-4 + x^3 + x^7)),x]

[Out]

3*Defer[Int][x/((1 + x^4)^(1/3)*(-4 + x^3 + x^7)), x] + 7*Defer[Int][x^5/((1 + x^4)^(1/3)*(-4 + x^3 + x^7)), x
]

Rubi steps \begin{align*} \text {integral}& = \int \left (\frac {3 x}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )}+\frac {7 x^5}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )}\right ) \, dx \\ & = 3 \int \frac {x}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx+7 \int \frac {x^5}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx \\ \end{align*}

Mathematica [F]

\[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=\int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx \]

[In]

Integrate[(x*(3 + 7*x^4))/((1 + x^4)^(1/3)*(-4 + x^3 + x^7)),x]

[Out]

Integrate[(x*(3 + 7*x^4))/((1 + x^4)^(1/3)*(-4 + x^3 + x^7)), x]

Maple [C] (warning: unable to verify)

Result contains higher order function than in optimal. Order 9 vs. order 3.

Time = 36.66 (sec) , antiderivative size = 1112, normalized size of antiderivative = 5.56

method	result	size
trager	\(\text {Expression too large to display}\)	\(1112\)

[In]

int(x*(7*x^4+3)/(x^4+1)^(1/3)/(x^7+x^3-4),x,method=_RETURNVERBOSE)

[Out]

-ln((RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)^2*RootOf(_Z^3-2)^2*x^7+RootOf(RootOf(_Z^3-2)^2+2*_Z*R
ootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)^3*x^7+RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*x^7+RootOf(_Z^3
-2)*x^7+3*(x^4+1)^(2/3)*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)^2*x^2+RootOf(RootOf
(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)^2*RootOf(_Z^3-2)^2*x^3+RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z
^2)*RootOf(_Z^3-2)^3*x^3+3*x^2*(x^4+1)^(2/3)+6*(x^4+1)^(1/3)*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^
2)*RootOf(_Z^3-2)*x+3*(x^4+1)^(1/3)*RootOf(_Z^3-2)^2*x+RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*x^3
+RootOf(_Z^3-2)*x^3+4*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)+4*RootOf(_Z^3-2))/(x^7+x^3-4))*RootO
f(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)-1/2*ln((RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)^2*R
ootOf(_Z^3-2)^2*x^7+RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)^3*x^7+RootOf(RootOf(_Z^
3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*x^7+RootOf(_Z^3-2)*x^7+3*(x^4+1)^(2/3)*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(
_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)^2*x^2+RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)^2*RootOf(_Z^3-2)^2*x^
3+RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)^3*x^3+3*x^2*(x^4+1)^(2/3)+6*(x^4+1)^(1/3)
*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)*x+3*(x^4+1)^(1/3)*RootOf(_Z^3-2)^2*x+RootO
f(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*x^3+RootOf(_Z^3-2)*x^3+4*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z
^3-2)+4*_Z^2)+4*RootOf(_Z^3-2))/(x^7+x^3-4))*RootOf(_Z^3-2)+RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2
)*ln((-2*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)^2*RootOf(_Z^3-2)^2*x^7+RootOf(RootOf(_Z^3-2)^2+2*
_Z*RootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)^3*x^7+6*(x^4+1)^(2/3)*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_
Z^2)*RootOf(_Z^3-2)^2*x^2-2*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)^2*RootOf(_Z^3-2)^2*x^3+RootOf(
RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)^3*x^3+12*(x^4+1)^(1/3)*RootOf(RootOf(_Z^3-2)^2+2*_
Z*RootOf(_Z^3-2)+4*_Z^2)*RootOf(_Z^3-2)*x+8*RootOf(RootOf(_Z^3-2)^2+2*_Z*RootOf(_Z^3-2)+4*_Z^2)-4*RootOf(_Z^3-
2))/(x^7+x^3-4))

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 344 vs. \(2 (157) = 314\).

Time = 44.91 (sec) , antiderivative size = 344, normalized size of antiderivative = 1.72 \[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=-\frac {1}{6} \cdot 4^{\frac {1}{6}} \sqrt {3} \arctan \left (\frac {4^{\frac {1}{6}} \sqrt {3} {\left (6 \cdot 4^{\frac {2}{3}} {\left (x^{16} + 2 \, x^{12} + 4 \, x^{9} + x^{8} + 4 \, x^{5} - 32 \, x^{2}\right )} {\left (x^{4} + 1\right )}^{\frac {2}{3}} + 4^{\frac {1}{3}} {\left (x^{21} + 3 \, x^{17} + 60 \, x^{14} + 3 \, x^{13} + 120 \, x^{10} + x^{9} + 192 \, x^{7} + 60 \, x^{6} + 192 \, x^{3} - 64\right )} + 24 \, {\left (x^{15} + 2 \, x^{11} + 28 \, x^{8} + x^{7} + 28 \, x^{4} + 16 \, x\right )} {\left (x^{4} + 1\right )}^{\frac {1}{3}}\right )}}{6 \, {\left (x^{21} + 3 \, x^{17} - 12 \, x^{14} + 3 \, x^{13} - 24 \, x^{10} + x^{9} - 384 \, x^{7} - 12 \, x^{6} - 384 \, x^{3} - 64\right )}}\right ) + \frac {1}{12} \cdot 4^{\frac {2}{3}} \log \left (-\frac {12 \, {\left (x^{4} + 1\right )}^{\frac {2}{3}} x^{2} - 4^{\frac {2}{3}} {\left (x^{7} + x^{3} - 4\right )} - 12 \cdot 4^{\frac {1}{3}} {\left (x^{4} + 1\right )}^{\frac {1}{3}} x}{x^{7} + x^{3} - 4}\right ) - \frac {1}{24} \cdot 4^{\frac {2}{3}} \log \left (\frac {3 \cdot 4^{\frac {2}{3}} {\left (x^{9} + x^{5} + 8 \, x^{2}\right )} {\left (x^{4} + 1\right )}^{\frac {2}{3}} + 4^{\frac {1}{3}} {\left (x^{14} + 2 \, x^{10} + 28 \, x^{7} + x^{6} + 28 \, x^{3} + 16\right )} + 24 \, {\left (x^{8} + x^{4} + 2 \, x\right )} {\left (x^{4} + 1\right )}^{\frac {1}{3}}}{x^{14} + 2 \, x^{10} - 8 \, x^{7} + x^{6} - 8 \, x^{3} + 16}\right ) \]

[In]

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

[Out]

-1/6*4^(1/6)*sqrt(3)*arctan(1/6*4^(1/6)*sqrt(3)*(6*4^(2/3)*(x^16 + 2*x^12 + 4*x^9 + x^8 + 4*x^5 - 32*x^2)*(x^4
+ 1)^(2/3) + 4^(1/3)*(x^21 + 3*x^17 + 60*x^14 + 3*x^13 + 120*x^10 + x^9 + 192*x^7 + 60*x^6 + 192*x^3 - 64) +
24*(x^15 + 2*x^11 + 28*x^8 + x^7 + 28*x^4 + 16*x)*(x^4 + 1)^(1/3))/(x^21 + 3*x^17 - 12*x^14 + 3*x^13 - 24*x^10
+ x^9 - 384*x^7 - 12*x^6 - 384*x^3 - 64)) + 1/12*4^(2/3)*log(-(12*(x^4 + 1)^(2/3)*x^2 - 4^(2/3)*(x^7 + x^3 -
4) - 12*4^(1/3)*(x^4 + 1)^(1/3)*x)/(x^7 + x^3 - 4)) - 1/24*4^(2/3)*log((3*4^(2/3)*(x^9 + x^5 + 8*x^2)*(x^4 + 1
)^(2/3) + 4^(1/3)*(x^14 + 2*x^10 + 28*x^7 + x^6 + 28*x^3 + 16) + 24*(x^8 + x^4 + 2*x)*(x^4 + 1)^(1/3))/(x^14 +
2*x^10 - 8*x^7 + x^6 - 8*x^3 + 16))

Sympy [F]

\[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=\int \frac {x \left (7 x^{4} + 3\right )}{\sqrt [3]{x^{4} + 1} \left (x^{7} + x^{3} - 4\right )}\, dx \]

[In]

integrate(x*(7*x**4+3)/(x**4+1)**(1/3)/(x**7+x**3-4),x)

[Out]

Integral(x*(7*x**4 + 3)/((x**4 + 1)**(1/3)*(x**7 + x**3 - 4)), x)

Maxima [F]

\[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=\int { \frac {{\left (7 \, x^{4} + 3\right )} x}{{\left (x^{7} + x^{3} - 4\right )} {\left (x^{4} + 1\right )}^{\frac {1}{3}}} \,d x } \]

[In]

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

[Out]

integrate((7*x^4 + 3)*x/((x^7 + x^3 - 4)*(x^4 + 1)^(1/3)), x)

Giac [F]

\[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=\int { \frac {{\left (7 \, x^{4} + 3\right )} x}{{\left (x^{7} + x^{3} - 4\right )} {\left (x^{4} + 1\right )}^{\frac {1}{3}}} \,d x } \]

[In]

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

[Out]

integrate((7*x^4 + 3)*x/((x^7 + x^3 - 4)*(x^4 + 1)^(1/3)), x)

Mupad [F(-1)]

Timed out. \[ \int \frac {x \left (3+7 x^4\right )}{\sqrt [3]{1+x^4} \left (-4+x^3+x^7\right )} \, dx=\int \frac {x\,\left (7\,x^4+3\right )}{{\left (x^4+1\right )}^{1/3}\,\left (x^7+x^3-4\right )} \,d x \]

[In]

int((x*(7*x^4 + 3))/((x^4 + 1)^(1/3)*(x^3 + x^7 - 4)),x)

[Out]

int((x*(7*x^4 + 3))/((x^4 + 1)^(1/3)*(x^3 + x^7 - 4)), x)