\(\int \frac {(-1+x^3)^{2/3} (4+x^3)}{x^6 (-2-x^3+x^6)} \, dx\) [2741]

Optimal result

Integrand size = 30, antiderivative size = 254 \[ \int \frac {\left (-1+x^3\right )^{2/3} \left (4+x^3\right )}{x^6 \left (-2-x^3+x^6\right )} \, dx=\frac {\left (8-13 x^3\right ) \left (-1+x^3\right )^{2/3}}{20 x^5}-\frac {\arctan \left (\frac {\sqrt {3} x}{x+2 \sqrt [3]{2} \sqrt [3]{-1+x^3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {2^{2/3} \arctan \left (\frac {\sqrt {3} x}{x+2^{2/3} \sqrt [3]{-1+x^3}}\right )}{\sqrt {3}}+\frac {\log \left (-x+\sqrt [3]{2} \sqrt [3]{-1+x^3}\right )}{6\ 2^{2/3}}-\frac {1}{3} 2^{2/3} \log \left (-2 x+2^{2/3} \sqrt [3]{-1+x^3}\right )+\frac {\log \left (2 x^2+2^{2/3} x \sqrt [3]{-1+x^3}+\sqrt [3]{2} \left (-1+x^3\right )^{2/3}\right )}{3 \sqrt [3]{2}}-\frac {\log \left (x^2+\sqrt [3]{2} x \sqrt [3]{-1+x^3}+2^{2/3} \left (-1+x^3\right )^{2/3}\right )}{12\ 2^{2/3}} \]

[Out]

1/20*(-13*x^3+8)*(x^3-1)^(2/3)/x^5-1/12*3^(1/2)*arctan(3^(1/2)*x/(x+2*2^(1/3)*(x^3-1)^(1/3)))*2^(1/3)+1/3*arct
an(3^(1/2)*x/(x+2^(2/3)*(x^3-1)^(1/3)))*2^(2/3)*3^(1/2)+1/12*ln(-x+2^(1/3)*(x^3-1)^(1/3))*2^(1/3)-1/3*ln(-2*x+
2^(2/3)*(x^3-1)^(1/3))*2^(2/3)+1/6*ln(2*x^2+2^(2/3)*x*(x^3-1)^(1/3)+2^(1/3)*(x^3-1)^(2/3))*2^(2/3)-1/24*ln(x^2
+2^(1/3)*x*(x^3-1)^(1/3)+2^(2/3)*(x^3-1)^(2/3))*2^(1/3)

Rubi [A] (verified)

Time = 1.03 (sec) , antiderivative size = 505, normalized size of antiderivative = 1.99, number of steps used = 36, number of rules used = 23, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.767, Rules used = {6860, 270, 283, 245, 2178, 2177, 2174, 372, 371, 2183, 399, 384, 495, 502, 206, 31, 648, 631, 210, 642, 455, 52, 58} \[ \int \frac {\left (-1+x^3\right )^{2/3} \left (4+x^3\right )}{x^6 \left (-2-x^3+x^6\right )} \, dx=\frac {2^{2/3} \arctan \left (\frac {1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{x^3-1}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {2^{2/3} \arctan \left (\frac {\frac {2 \sqrt [3]{2} (1-x)}{\sqrt [3]{x^3-1}}+1}{\sqrt {3}}\right )}{3 \sqrt {3}}+\frac {2\ 2^{2/3} \arctan \left (\frac {\frac {2 \sqrt [3]{2} x}{\sqrt [3]{x^3-1}}+1}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {\frac {2^{2/3} x}{\sqrt [3]{x^3-1}}+1}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {2^{2/3} \arctan \left (\frac {1-2^{2/3} \sqrt [3]{x^3-1}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\log \left (x^3-2\right )}{12\ 2^{2/3}}+\frac {1}{9} 2^{2/3} \log \left (x^3+1\right )-\frac {\log \left (x^3+1\right )}{9 \sqrt [3]{2}}+\frac {1}{9} 2^{2/3} \log \left (1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{x^3-1}}\right )-\frac {\log \left (\frac {2^{2/3} (1-x)^2}{\left (x^3-1\right )^{2/3}}+\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{x^3-1}}+1\right )}{9 \sqrt [3]{2}}+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{x^3-1}\right )}{4\ 2^{2/3}}-\frac {1}{3} 2^{2/3} \log \left (\sqrt [3]{2} x-\sqrt [3]{x^3-1}\right )+\frac {\log \left (\sqrt [3]{x^3-1}+\sqrt [3]{2}\right )}{3 \sqrt [3]{2}}-\frac {\log \left (2^{2/3} \sqrt [3]{x^3-1}-x+1\right )}{3 \sqrt [3]{2}}-\frac {2 \left (x^3-1\right )^{5/3}}{5 x^5}-\frac {\left (x^3-1\right )^{2/3}}{4 x^2}+\frac {\log \left ((1-x) (x+1)^2\right )}{9 \sqrt [3]{2}} \]

[In]

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

[Out]

-1/4*(-1 + x^3)^(2/3)/x^2 - (2*(-1 + x^3)^(5/3))/(5*x^5) + (2^(2/3)*ArcTan[(1 - (2^(1/3)*(1 - x))/(-1 + x^3)^(
1/3))/Sqrt[3]])/(3*Sqrt[3]) - (2^(2/3)*ArcTan[(1 + (2*2^(1/3)*(1 - x))/(-1 + x^3)^(1/3))/Sqrt[3]])/(3*Sqrt[3])
+ (2*2^(2/3)*ArcTan[(1 + (2*2^(1/3)*x)/(-1 + x^3)^(1/3))/Sqrt[3]])/(3*Sqrt[3]) - ArcTan[(1 + (2^(2/3)*x)/(-1
+ x^3)^(1/3))/Sqrt[3]]/(2*2^(2/3)*Sqrt[3]) + (2^(2/3)*ArcTan[(1 - 2^(2/3)*(-1 + x^3)^(1/3))/Sqrt[3]])/(3*Sqrt[
3]) + Log[(1 - x)*(1 + x)^2]/(9*2^(1/3)) - Log[-2 + x^3]/(12*2^(2/3)) - Log[1 + x^3]/(9*2^(1/3)) + (2^(2/3)*Lo
g[1 + x^3])/9 + (2^(2/3)*Log[1 - (2^(1/3)*(1 - x))/(-1 + x^3)^(1/3)])/9 - Log[1 + (2^(2/3)*(1 - x)^2)/(-1 + x^
3)^(2/3) + (2^(1/3)*(1 - x))/(-1 + x^3)^(1/3)]/(9*2^(1/3)) + Log[x/2^(1/3) - (-1 + x^3)^(1/3)]/(4*2^(2/3)) - (
2^(2/3)*Log[2^(1/3)*x - (-1 + x^3)^(1/3)])/3 + Log[2^(1/3) + (-1 + x^3)^(1/3)]/(3*2^(1/3)) - Log[1 - x + 2^(2/
3)*(-1 + x^3)^(1/3)]/(3*2^(1/3))

Rule 31

Int[((a_) + (b_.)*(x_))^(-1), x_Symbol] :> Simp[Log[RemoveContent[a + b*x, x]]/b, x] /; FreeQ[{a, b}, x]

Rule 52

Int[((a_.) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_), x_Symbol] :> Simp[(a + b*x)^(m + 1)*((c + d*x)^n/(b*(
m + n + 1))), x] + Dist[n*((b*c - a*d)/(b*(m + n + 1))), Int[(a + b*x)^m*(c + d*x)^(n - 1), x], x] /; FreeQ[{a
, b, c, d}, x] && NeQ[b*c - a*d, 0] && GtQ[n, 0] && NeQ[m + n + 1, 0] &&  !(IGtQ[m, 0] && ( !IntegerQ[n] || (G
tQ[m, 0] && LtQ[m - n, 0]))) &&  !ILtQ[m + n + 2, 0] && IntLinearQ[a, b, c, d, m, n, x]

Rule 58

Int[1/(((a_.) + (b_.)*(x_))*((c_.) + (d_.)*(x_))^(1/3)), x_Symbol] :> With[{q = Rt[-(b*c - a*d)/b, 3]}, Simp[L
og[RemoveContent[a + b*x, x]]/(2*b*q), x] + (Dist[3/(2*b), Subst[Int[1/(q^2 - q*x + x^2), x], x, (c + d*x)^(1/
3)], x] - Dist[3/(2*b*q), Subst[Int[1/(q + x), x], x, (c + d*x)^(1/3)], x])] /; FreeQ[{a, b, c, d}, x] && NegQ
[(b*c - a*d)/b]

Rule 206

Int[((a_) + (b_.)*(x_)^3)^(-1), x_Symbol] :> Dist[1/(3*Rt[a, 3]^2), Int[1/(Rt[a, 3] + Rt[b, 3]*x), x], x] + Di
st[1/(3*Rt[a, 3]^2), Int[(2*Rt[a, 3] - Rt[b, 3]*x)/(Rt[a, 3]^2 - Rt[a, 3]*Rt[b, 3]*x + Rt[b, 3]^2*x^2), x], x]
/; FreeQ[{a, b}, x]

Rule 210

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(-(Rt[-a, 2]*Rt[-b, 2])^(-1))*ArcTan[Rt[-b, 2]*(x/Rt[-a, 2])
], x] /; FreeQ[{a, b}, x] && PosQ[a/b] && (LtQ[a, 0] || LtQ[b, 0])

Rule 245

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

Rule 270

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

Rule 283

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

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 384

Int[1/(((a_) + (b_.)*(x_)^3)^(1/3)*((c_) + (d_.)*(x_)^3)), x_Symbol] :> With[{q = Rt[(b*c - a*d)/c, 3]}, Simp[
ArcTan[(1 + (2*q*x)/(a + b*x^3)^(1/3))/Sqrt[3]]/(Sqrt[3]*c*q), x] + (-Simp[Log[q*x - (a + b*x^3)^(1/3)]/(2*c*q
), x] + Simp[Log[c + d*x^3]/(6*c*q), x])] /; FreeQ[{a, b, c, d}, x] && NeQ[b*c - a*d, 0]

Rule 399

Int[((a_) + (b_.)*(x_)^(n_))^(p_)/((c_) + (d_.)*(x_)^(n_)), x_Symbol] :> Dist[b/d, Int[(a + b*x^n)^(p - 1), x]
, x] - Dist[(b*c - a*d)/d, Int[(a + b*x^n)^(p - 1)/(c + d*x^n), x], x] /; FreeQ[{a, b, c, d, p}, x] && NeQ[b*c
- a*d, 0] && EqQ[n*(p - 1) + 1, 0] && IntegerQ[n]

Rule 455

Int[(x_)^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_.)*((c_) + (d_.)*(x_)^(n_))^(q_.), x_Symbol] :> Dist[1/n, Subst[Int
[(a + b*x)^p*(c + d*x)^q, x], x, x^n], x] /; FreeQ[{a, b, c, d, m, n, p, q}, x] && NeQ[b*c - a*d, 0] && EqQ[m
- n + 1, 0]

Rule 495

Int[((x_)*((a_) + (b_.)*(x_)^(n_))^(p_))/((c_) + (d_.)*(x_)^(n_)), x_Symbol] :> Dist[b/d, Int[x*(a + b*x^n)^(p
- 1), x], x] - Dist[(b*c - a*d)/d, Int[x*((a + b*x^n)^(p - 1)/(c + d*x^n)), x], x] /; FreeQ[{a, b, c, d}, x]
&& NeQ[b*c - a*d, 0] && IGtQ[n, 0] && GtQ[p, 0] && IntBinomialQ[a, b, c, d, 1, 1, n, p, -1, x]

Rule 502

Int[(x_)/(((a_) + (b_.)*(x_)^3)^(1/3)*((c_) + (d_.)*(x_)^3)), x_Symbol] :> With[{q = Rt[b/a, 3]}, Dist[-q^2/(3
*d), Int[1/((1 - q*x)*(a + b*x^3)^(1/3)), x], x] + Dist[q/d, Subst[Int[1/(1 + 2*a*x^3), x], x, (1 + q*x)/(a +
b*x^3)^(1/3)], x]] /; FreeQ[{a, b, c, d}, x] && NeQ[b*c - a*d, 0] && EqQ[b*c + a*d, 0]

Rule 631

Int[((a_) + (b_.)*(x_) + (c_.)*(x_)^2)^(-1), x_Symbol] :> With[{q = 1 - 4*Simplify[a*(c/b^2)]}, Dist[-2/b, Sub
st[Int[1/(q - x^2), x], x, 1 + 2*c*(x/b)], x] /; RationalQ[q] && (EqQ[q^2, 1] ||  !RationalQ[b^2 - 4*a*c])] /;
FreeQ[{a, b, c}, x] && NeQ[b^2 - 4*a*c, 0]

Rule 642

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

Rule 648

Int[((d_.) + (e_.)*(x_))/((a_) + (b_.)*(x_) + (c_.)*(x_)^2), x_Symbol] :> Dist[(2*c*d - b*e)/(2*c), Int[1/(a +
b*x + c*x^2), x], x] + Dist[e/(2*c), Int[(b + 2*c*x)/(a + b*x + c*x^2), x], x] /; FreeQ[{a, b, c, d, e}, x] &
& NeQ[2*c*d - b*e, 0] && NeQ[b^2 - 4*a*c, 0] &&  !NiceSqrtQ[b^2 - 4*a*c]

Rule 2174

Int[1/(((c_) + (d_.)*(x_))*((a_) + (b_.)*(x_)^3)^(1/3)), x_Symbol] :> Simp[Sqrt[3]*(ArcTan[(1 - 2^(1/3)*Rt[b,
3]*((c - d*x)/(d*(a + b*x^3)^(1/3))))/Sqrt[3]]/(2^(4/3)*Rt[b, 3]*c)), x] + (Simp[Log[(c + d*x)^2*(c - d*x)]/(2
^(7/3)*Rt[b, 3]*c), x] - Simp[(3*Log[Rt[b, 3]*(c - d*x) + 2^(2/3)*d*(a + b*x^3)^(1/3)])/(2^(7/3)*Rt[b, 3]*c),
x]) /; FreeQ[{a, b, c, d}, x] && EqQ[b*c^3 + a*d^3, 0]

Rule 2177

Int[((e_.) + (f_.)*(x_))/(((c_.) + (d_.)*(x_))*((a_) + (b_.)*(x_)^3)^(1/3)), x_Symbol] :> Dist[f/d, Int[1/(a +
b*x^3)^(1/3), x], x] + Dist[(d*e - c*f)/d, Int[1/((c + d*x)*(a + b*x^3)^(1/3)), x], x] /; FreeQ[{a, b, c, d,
e, f}, x]

Rule 2178

Int[((a_) + (b_.)*(x_)^3)^(2/3)/((c_) + (d_.)*(x_)), x_Symbol] :> Simp[(a + b*x^3)^(2/3)/(2*d), x] + (Dist[1/d
^2, Int[(a*d^2 + b*c^2*x)/((c + d*x)*(a + b*x^3)^(1/3)), x], x] - Dist[b*(c/d^2), Int[x/(a + b*x^3)^(1/3), x],
x]) /; FreeQ[{a, b, c, d}, x]

Rule 2183

Int[(Px_.)*((c_) + (d_.)*(x_) + (e_.)*(x_)^2)^(q_)*((a_) + (b_.)*(x_)^3)^(p_.), x_Symbol] :> Dist[1/c^q, Int[E
xpandIntegrand[(c^3 - d^3*x^3)^q*(a + b*x^3)^p, Px/(c - d*x)^q, x], x], x] /; FreeQ[{a, b, c, d, e, p}, x] &&
PolyQ[Px, x] && EqQ[d^2 - c*e, 0] && ILtQ[q, 0] && RationalQ[p] && EqQ[Denominator[p], 3]

Rule 6860

Int[(u_)/((a_.) + (b_.)*(x_)^(n_.) + (c_.)*(x_)^(n2_.)), x_Symbol] :> With[{v = RationalFunctionExpand[u/(a +
b*x^n + c*x^(2*n)), x]}, Int[v, x] /; SumQ[v]] /; FreeQ[{a, b, c}, x] && EqQ[n2, 2*n] && IGtQ[n, 0]

Rubi steps \begin{align*} \text {integral}& = \int \left (-\frac {2 \left (-1+x^3\right )^{2/3}}{x^6}+\frac {\left (-1+x^3\right )^{2/3}}{2 x^3}-\frac {\left (-1+x^3\right )^{2/3}}{3 (1+x)}+\frac {(-2+x) \left (-1+x^3\right )^{2/3}}{3 \left (1-x+x^2\right )}+\frac {\left (-1+x^3\right )^{2/3}}{2 \left (-2+x^3\right )}\right ) \, dx \\ & = -\left (\frac {1}{3} \int \frac {\left (-1+x^3\right )^{2/3}}{1+x} \, dx\right )+\frac {1}{3} \int \frac {(-2+x) \left (-1+x^3\right )^{2/3}}{1-x+x^2} \, dx+\frac {1}{2} \int \frac {\left (-1+x^3\right )^{2/3}}{x^3} \, dx+\frac {1}{2} \int \frac {\left (-1+x^3\right )^{2/3}}{-2+x^3} \, dx-2 \int \frac {\left (-1+x^3\right )^{2/3}}{x^6} \, dx \\ & = -\frac {1}{6} \left (-1+x^3\right )^{2/3}-\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}+\frac {1}{3} \int \frac {x}{\sqrt [3]{-1+x^3}} \, dx-\frac {1}{3} \int \frac {-1+x}{(1+x) \sqrt [3]{-1+x^3}} \, dx+\frac {1}{3} \int \left (-\frac {2 \left (-1+x^3\right )^{2/3}}{1+x^3}-\frac {x \left (-1+x^3\right )^{2/3}}{1+x^3}+\frac {x^2 \left (-1+x^3\right )^{2/3}}{1+x^3}\right ) \, dx+2 \left (\frac {1}{2} \int \frac {1}{\sqrt [3]{-1+x^3}} \, dx\right )+\frac {1}{2} \int \frac {1}{\left (-2+x^3\right ) \sqrt [3]{-1+x^3}} \, dx \\ & = -\frac {1}{6} \left (-1+x^3\right )^{2/3}-\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}-\frac {\arctan \left (\frac {1+\frac {2^{2/3} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}-\frac {\log \left (-2+x^3\right )}{12\ 2^{2/3}}+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{-1+x^3}\right )}{4\ 2^{2/3}}+2 \left (\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2 \sqrt {3}}-\frac {1}{4} \log \left (-x+\sqrt [3]{-1+x^3}\right )\right )-\frac {1}{3} \int \frac {1}{\sqrt [3]{-1+x^3}} \, dx-\frac {1}{3} \int \frac {x \left (-1+x^3\right )^{2/3}}{1+x^3} \, dx+\frac {1}{3} \int \frac {x^2 \left (-1+x^3\right )^{2/3}}{1+x^3} \, dx+\frac {2}{3} \int \frac {1}{(1+x) \sqrt [3]{-1+x^3}} \, dx-\frac {2}{3} \int \frac {\left (-1+x^3\right )^{2/3}}{1+x^3} \, dx+\frac {\sqrt [3]{1-x^3} \int \frac {x}{\sqrt [3]{1-x^3}} \, dx}{3 \sqrt [3]{-1+x^3}} \\ & = -\frac {1}{6} \left (-1+x^3\right )^{2/3}-\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}+\frac {\arctan \left (\frac {1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{\sqrt [3]{2} \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2^{2/3} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {x^2 \sqrt [3]{1-x^3} \operatorname {Hypergeometric2F1}\left (\frac {1}{3},\frac {2}{3},\frac {5}{3},x^3\right )}{6 \sqrt [3]{-1+x^3}}+\frac {\log \left ((1-x) (1+x)^2\right )}{6 \sqrt [3]{2}}-\frac {\log \left (-2+x^3\right )}{12\ 2^{2/3}}+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{-1+x^3}\right )}{4\ 2^{2/3}}+2 \left (\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2 \sqrt {3}}-\frac {1}{4} \log \left (-x+\sqrt [3]{-1+x^3}\right )\right )+\frac {1}{6} \log \left (-x+\sqrt [3]{-1+x^3}\right )-\frac {\log \left (1-x+2^{2/3} \sqrt [3]{-1+x^3}\right )}{2 \sqrt [3]{2}}+\frac {1}{9} \text {Subst}\left (\int \frac {(-1+x)^{2/3}}{1+x} \, dx,x,x^3\right )-\frac {1}{3} \int \frac {x}{\sqrt [3]{-1+x^3}} \, dx-\frac {2}{3} \int \frac {1}{\sqrt [3]{-1+x^3}} \, dx+\frac {2}{3} \int \frac {x}{\sqrt [3]{-1+x^3} \left (1+x^3\right )} \, dx+\frac {4}{3} \int \frac {1}{\sqrt [3]{-1+x^3} \left (1+x^3\right )} \, dx \\ & = -\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}+\frac {\arctan \left (\frac {1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{\sqrt [3]{2} \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{\sqrt {3}}+\frac {2\ 2^{2/3} \arctan \left (\frac {1+\frac {2 \sqrt [3]{2} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2^{2/3} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {x^2 \sqrt [3]{1-x^3} \operatorname {Hypergeometric2F1}\left (\frac {1}{3},\frac {2}{3},\frac {5}{3},x^3\right )}{6 \sqrt [3]{-1+x^3}}+\frac {\log \left ((1-x) (1+x)^2\right )}{6 \sqrt [3]{2}}-\frac {\log \left (-2+x^3\right )}{12\ 2^{2/3}}+\frac {1}{9} 2^{2/3} \log \left (1+x^3\right )+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{-1+x^3}\right )}{4\ 2^{2/3}}-\frac {1}{3} 2^{2/3} \log \left (\sqrt [3]{2} x-\sqrt [3]{-1+x^3}\right )+2 \left (\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2 \sqrt {3}}-\frac {1}{4} \log \left (-x+\sqrt [3]{-1+x^3}\right )\right )+\frac {1}{2} \log \left (-x+\sqrt [3]{-1+x^3}\right )-\frac {\log \left (1-x+2^{2/3} \sqrt [3]{-1+x^3}\right )}{2 \sqrt [3]{2}}-\frac {2}{9} \int \frac {1}{(1+x) \sqrt [3]{-1+x^3}} \, dx-\frac {2}{9} \text {Subst}\left (\int \frac {1}{\sqrt [3]{-1+x} (1+x)} \, dx,x,x^3\right )-\frac {2}{3} \text {Subst}\left (\int \frac {1}{1-2 x^3} \, dx,x,\frac {1-x}{\sqrt [3]{-1+x^3}}\right )-\frac {\sqrt [3]{1-x^3} \int \frac {x}{\sqrt [3]{1-x^3}} \, dx}{3 \sqrt [3]{-1+x^3}} \\ & = -\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}+\frac {2^{2/3} \arctan \left (\frac {1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{\sqrt {3}}+\frac {2\ 2^{2/3} \arctan \left (\frac {1+\frac {2 \sqrt [3]{2} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2^{2/3} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {\log \left ((1-x) (1+x)^2\right )}{9 \sqrt [3]{2}}-\frac {\log \left (-2+x^3\right )}{12\ 2^{2/3}}-\frac {\log \left (1+x^3\right )}{9 \sqrt [3]{2}}+\frac {1}{9} 2^{2/3} \log \left (1+x^3\right )+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{-1+x^3}\right )}{4\ 2^{2/3}}-\frac {1}{3} 2^{2/3} \log \left (\sqrt [3]{2} x-\sqrt [3]{-1+x^3}\right )+2 \left (\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2 \sqrt {3}}-\frac {1}{4} \log \left (-x+\sqrt [3]{-1+x^3}\right )\right )+\frac {1}{2} \log \left (-x+\sqrt [3]{-1+x^3}\right )-\frac {\log \left (1-x+2^{2/3} \sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}}-\frac {2}{9} \text {Subst}\left (\int \frac {1}{1-\sqrt [3]{2} x} \, dx,x,\frac {1-x}{\sqrt [3]{-1+x^3}}\right )-\frac {2}{9} \text {Subst}\left (\int \frac {2+\sqrt [3]{2} x}{1+\sqrt [3]{2} x+2^{2/3} x^2} \, dx,x,\frac {1-x}{\sqrt [3]{-1+x^3}}\right )-\frac {1}{3} \text {Subst}\left (\int \frac {1}{2^{2/3}-\sqrt [3]{2} x+x^2} \, dx,x,\sqrt [3]{-1+x^3}\right )+\frac {\text {Subst}\left (\int \frac {1}{\sqrt [3]{2}+x} \, dx,x,\sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}} \\ & = -\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}+\frac {2^{2/3} \arctan \left (\frac {1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{\sqrt {3}}+\frac {2\ 2^{2/3} \arctan \left (\frac {1+\frac {2 \sqrt [3]{2} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2^{2/3} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {\log \left ((1-x) (1+x)^2\right )}{9 \sqrt [3]{2}}-\frac {\log \left (-2+x^3\right )}{12\ 2^{2/3}}-\frac {\log \left (1+x^3\right )}{9 \sqrt [3]{2}}+\frac {1}{9} 2^{2/3} \log \left (1+x^3\right )+\frac {1}{9} 2^{2/3} \log \left (1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}\right )+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{-1+x^3}\right )}{4\ 2^{2/3}}-\frac {1}{3} 2^{2/3} \log \left (\sqrt [3]{2} x-\sqrt [3]{-1+x^3}\right )+\frac {\log \left (\sqrt [3]{2}+\sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}}+2 \left (\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2 \sqrt {3}}-\frac {1}{4} \log \left (-x+\sqrt [3]{-1+x^3}\right )\right )+\frac {1}{2} \log \left (-x+\sqrt [3]{-1+x^3}\right )-\frac {\log \left (1-x+2^{2/3} \sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}}-\frac {1}{3} \text {Subst}\left (\int \frac {1}{1+\sqrt [3]{2} x+2^{2/3} x^2} \, dx,x,\frac {1-x}{\sqrt [3]{-1+x^3}}\right )-\frac {\text {Subst}\left (\int \frac {\sqrt [3]{2}+2\ 2^{2/3} x}{1+\sqrt [3]{2} x+2^{2/3} x^2} \, dx,x,\frac {1-x}{\sqrt [3]{-1+x^3}}\right )}{9 \sqrt [3]{2}}-\frac {1}{3} 2^{2/3} \text {Subst}\left (\int \frac {1}{-3-x^2} \, dx,x,1-2^{2/3} \sqrt [3]{-1+x^3}\right ) \\ & = -\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}+\frac {2^{2/3} \arctan \left (\frac {1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{\sqrt {3}}+\frac {2\ 2^{2/3} \arctan \left (\frac {1+\frac {2 \sqrt [3]{2} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2^{2/3} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {2^{2/3} \arctan \left (\frac {1-2^{2/3} \sqrt [3]{-1+x^3}}{\sqrt {3}}\right )}{3 \sqrt {3}}+\frac {\log \left ((1-x) (1+x)^2\right )}{9 \sqrt [3]{2}}-\frac {\log \left (-2+x^3\right )}{12\ 2^{2/3}}-\frac {\log \left (1+x^3\right )}{9 \sqrt [3]{2}}+\frac {1}{9} 2^{2/3} \log \left (1+x^3\right )+\frac {1}{9} 2^{2/3} \log \left (1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}\right )-\frac {\log \left (1+\frac {2^{2/3} (1-x)^2}{\left (-1+x^3\right )^{2/3}}+\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}\right )}{9 \sqrt [3]{2}}+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{-1+x^3}\right )}{4\ 2^{2/3}}-\frac {1}{3} 2^{2/3} \log \left (\sqrt [3]{2} x-\sqrt [3]{-1+x^3}\right )+\frac {\log \left (\sqrt [3]{2}+\sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}}+2 \left (\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2 \sqrt {3}}-\frac {1}{4} \log \left (-x+\sqrt [3]{-1+x^3}\right )\right )+\frac {1}{2} \log \left (-x+\sqrt [3]{-1+x^3}\right )-\frac {\log \left (1-x+2^{2/3} \sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}}+\frac {1}{3} 2^{2/3} \text {Subst}\left (\int \frac {1}{-3-x^2} \, dx,x,1+\frac {2 \sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}\right ) \\ & = -\frac {\left (-1+x^3\right )^{2/3}}{4 x^2}-\frac {2 \left (-1+x^3\right )^{5/3}}{5 x^5}+\frac {2^{2/3} \arctan \left (\frac {1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {2^{2/3} \arctan \left (\frac {1+\frac {2 \sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{\sqrt {3}}+\frac {2\ 2^{2/3} \arctan \left (\frac {1+\frac {2 \sqrt [3]{2} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{3 \sqrt {3}}-\frac {\arctan \left (\frac {1+\frac {2^{2/3} x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2\ 2^{2/3} \sqrt {3}}+\frac {2^{2/3} \arctan \left (\frac {1-2^{2/3} \sqrt [3]{-1+x^3}}{\sqrt {3}}\right )}{3 \sqrt {3}}+\frac {\log \left ((1-x) (1+x)^2\right )}{9 \sqrt [3]{2}}-\frac {\log \left (-2+x^3\right )}{12\ 2^{2/3}}-\frac {\log \left (1+x^3\right )}{9 \sqrt [3]{2}}+\frac {1}{9} 2^{2/3} \log \left (1+x^3\right )+\frac {1}{9} 2^{2/3} \log \left (1-\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}\right )-\frac {\log \left (1+\frac {2^{2/3} (1-x)^2}{\left (-1+x^3\right )^{2/3}}+\frac {\sqrt [3]{2} (1-x)}{\sqrt [3]{-1+x^3}}\right )}{9 \sqrt [3]{2}}+\frac {\log \left (\frac {x}{\sqrt [3]{2}}-\sqrt [3]{-1+x^3}\right )}{4\ 2^{2/3}}-\frac {1}{3} 2^{2/3} \log \left (\sqrt [3]{2} x-\sqrt [3]{-1+x^3}\right )+\frac {\log \left (\sqrt [3]{2}+\sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}}+2 \left (\frac {\arctan \left (\frac {1+\frac {2 x}{\sqrt [3]{-1+x^3}}}{\sqrt {3}}\right )}{2 \sqrt {3}}-\frac {1}{4} \log \left (-x+\sqrt [3]{-1+x^3}\right )\right )+\frac {1}{2} \log \left (-x+\sqrt [3]{-1+x^3}\right )-\frac {\log \left (1-x+2^{2/3} \sqrt [3]{-1+x^3}\right )}{3 \sqrt [3]{2}} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.53 (sec) , antiderivative size = 247, normalized size of antiderivative = 0.97 \[ \int \frac {\left (-1+x^3\right )^{2/3} \left (4+x^3\right )}{x^6 \left (-2-x^3+x^6\right )} \, dx=\frac {1}{120} \left (\frac {6 \left (8-13 x^3\right ) \left (-1+x^3\right )^{2/3}}{x^5}-10 \sqrt [3]{2} \sqrt {3} \arctan \left (\frac {\sqrt {3} x}{x+2 \sqrt [3]{2} \sqrt [3]{-1+x^3}}\right )+40\ 2^{2/3} \sqrt {3} \arctan \left (\frac {\sqrt {3} x}{x+2^{2/3} \sqrt [3]{-1+x^3}}\right )+10 \sqrt [3]{2} \log \left (-x+\sqrt [3]{2} \sqrt [3]{-1+x^3}\right )-40\ 2^{2/3} \log \left (-2 x+2^{2/3} \sqrt [3]{-1+x^3}\right )+20\ 2^{2/3} \log \left (2 x^2+2^{2/3} x \sqrt [3]{-1+x^3}+\sqrt [3]{2} \left (-1+x^3\right )^{2/3}\right )-5 \sqrt [3]{2} \log \left (x^2+\sqrt [3]{2} x \sqrt [3]{-1+x^3}+2^{2/3} \left (-1+x^3\right )^{2/3}\right )\right ) \]

[In]

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

[Out]

((6*(8 - 13*x^3)*(-1 + x^3)^(2/3))/x^5 - 10*2^(1/3)*Sqrt[3]*ArcTan[(Sqrt[3]*x)/(x + 2*2^(1/3)*(-1 + x^3)^(1/3)
)] + 40*2^(2/3)*Sqrt[3]*ArcTan[(Sqrt[3]*x)/(x + 2^(2/3)*(-1 + x^3)^(1/3))] + 10*2^(1/3)*Log[-x + 2^(1/3)*(-1 +
x^3)^(1/3)] - 40*2^(2/3)*Log[-2*x + 2^(2/3)*(-1 + x^3)^(1/3)] + 20*2^(2/3)*Log[2*x^2 + 2^(2/3)*x*(-1 + x^3)^(
1/3) + 2^(1/3)*(-1 + x^3)^(2/3)] - 5*2^(1/3)*Log[x^2 + 2^(1/3)*x*(-1 + x^3)^(1/3) + 2^(2/3)*(-1 + x^3)^(2/3)])
/120

Maple [A] (verified)

Time = 23.47 (sec) , antiderivative size = 243, normalized size of antiderivative = 0.96

method	result	size
pseudoelliptic	\(\frac {-40 \sqrt {3}\, 2^{\frac {2}{3}} \arctan \left (\frac {\sqrt {3}\, \left (x +2^{\frac {2}{3}} \left (x^{3}-1\right )^{\frac {1}{3}}\right )}{3 x}\right ) x^{5}+10 \sqrt {3}\, 2^{\frac {1}{3}} \arctan \left (\frac {\sqrt {3}\, \left (x +2 \,2^{\frac {1}{3}} \left (x^{3}-1\right )^{\frac {1}{3}}\right )}{3 x}\right ) x^{5}-40 \,2^{\frac {2}{3}} \ln \left (\frac {-2^{\frac {1}{3}} x +\left (x^{3}-1\right )^{\frac {1}{3}}}{x}\right ) x^{5}+20 \,2^{\frac {2}{3}} \ln \left (\frac {2^{\frac {2}{3}} x^{2}+2^{\frac {1}{3}} x \left (x^{3}-1\right )^{\frac {1}{3}}+\left (x^{3}-1\right )^{\frac {2}{3}}}{x^{2}}\right ) x^{5}-5 \,2^{\frac {1}{3}} x^{5} \ln \left (2\right )+10 \,2^{\frac {1}{3}} x^{5} \ln \left (\frac {-2^{\frac {2}{3}} x +2 \left (x^{3}-1\right )^{\frac {1}{3}}}{x}\right )-5 \,2^{\frac {1}{3}} x^{5} \ln \left (\frac {2^{\frac {2}{3}} x \left (x^{3}-1\right )^{\frac {1}{3}}+2^{\frac {1}{3}} x^{2}+2 \left (x^{3}-1\right )^{\frac {2}{3}}}{x^{2}}\right )-78 x^{3} \left (x^{3}-1\right )^{\frac {2}{3}}+48 \left (x^{3}-1\right )^{\frac {2}{3}}}{120 x^{5}}\)	\(243\)
trager	\(\text {Expression too large to display}\)	\(1891\)
risch	\(\text {Expression too large to display}\)	\(1913\)

[In]

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

[Out]

1/120*(-40*3^(1/2)*2^(2/3)*arctan(1/3*3^(1/2)/x*(x+2^(2/3)*(x^3-1)^(1/3)))*x^5+10*3^(1/2)*2^(1/3)*arctan(1/3*3
^(1/2)/x*(x+2*2^(1/3)*(x^3-1)^(1/3)))*x^5-40*2^(2/3)*ln((-2^(1/3)*x+(x^3-1)^(1/3))/x)*x^5+20*2^(2/3)*ln((2^(2/
3)*x^2+2^(1/3)*x*(x^3-1)^(1/3)+(x^3-1)^(2/3))/x^2)*x^5-5*2^(1/3)*x^5*ln(2)+10*2^(1/3)*x^5*ln((-2^(2/3)*x+2*(x^
3-1)^(1/3))/x)-5*2^(1/3)*x^5*ln((2^(2/3)*x*(x^3-1)^(1/3)+2^(1/3)*x^2+2*(x^3-1)^(2/3))/x^2)-78*x^3*(x^3-1)^(2/3
)+48*(x^3-1)^(2/3))/x^5

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 521 vs. \(2 (189) = 378\).

Time = 3.77 (sec) , antiderivative size = 521, normalized size of antiderivative = 2.05 \[ \int \frac {\left (-1+x^3\right )^{2/3} \left (4+x^3\right )}{x^6 \left (-2-x^3+x^6\right )} \, dx=-\frac {80 \, \sqrt {3} \left (-4\right )^{\frac {1}{3}} x^{5} \arctan \left (\frac {3 \, \sqrt {3} \left (-4\right )^{\frac {2}{3}} {\left (5 \, x^{7} + 4 \, x^{4} - x\right )} {\left (x^{3} - 1\right )}^{\frac {2}{3}} + 6 \, \sqrt {3} \left (-4\right )^{\frac {1}{3}} {\left (19 \, x^{8} - 16 \, x^{5} + x^{2}\right )} {\left (x^{3} - 1\right )}^{\frac {1}{3}} - \sqrt {3} {\left (71 \, x^{9} - 111 \, x^{6} + 33 \, x^{3} - 1\right )}}{3 \, {\left (109 \, x^{9} - 105 \, x^{6} + 3 \, x^{3} + 1\right )}}\right ) - 20 \cdot 4^{\frac {1}{6}} \sqrt {3} x^{5} \arctan \left (\frac {4^{\frac {1}{6}} {\left (12 \cdot 4^{\frac {2}{3}} \sqrt {3} {\left (2 \, x^{7} - 5 \, x^{4} + 2 \, x\right )} {\left (x^{3} - 1\right )}^{\frac {2}{3}} + 4^{\frac {1}{3}} \sqrt {3} {\left (91 \, x^{9} - 168 \, x^{6} + 84 \, x^{3} - 8\right )} + 12 \, \sqrt {3} {\left (19 \, x^{8} - 22 \, x^{5} + 4 \, x^{2}\right )} {\left (x^{3} - 1\right )}^{\frac {1}{3}}\right )}}{6 \, {\left (53 \, x^{9} - 48 \, x^{6} - 12 \, x^{3} + 8\right )}}\right ) - 10 \cdot 4^{\frac {2}{3}} x^{5} \log \left (\frac {6 \cdot 4^{\frac {1}{3}} {\left (x^{3} - 1\right )}^{\frac {1}{3}} x^{2} + 4^{\frac {2}{3}} {\left (x^{3} - 2\right )} - 12 \, {\left (x^{3} - 1\right )}^{\frac {2}{3}} x}{x^{3} - 2}\right ) + 5 \cdot 4^{\frac {2}{3}} x^{5} \log \left (\frac {6 \cdot 4^{\frac {2}{3}} {\left (2 \, x^{4} - x\right )} {\left (x^{3} - 1\right )}^{\frac {2}{3}} + 4^{\frac {1}{3}} {\left (19 \, x^{6} - 22 \, x^{3} + 4\right )} + 6 \, {\left (5 \, x^{5} - 4 \, x^{2}\right )} {\left (x^{3} - 1\right )}^{\frac {1}{3}}}{x^{6} - 4 \, x^{3} + 4}\right ) - 80 \, \left (-4\right )^{\frac {1}{3}} x^{5} \log \left (-\frac {3 \, \left (-4\right )^{\frac {2}{3}} {\left (x^{3} - 1\right )}^{\frac {1}{3}} x^{2} - 6 \, {\left (x^{3} - 1\right )}^{\frac {2}{3}} x + \left (-4\right )^{\frac {1}{3}} {\left (x^{3} + 1\right )}}{x^{3} + 1}\right ) + 40 \, \left (-4\right )^{\frac {1}{3}} x^{5} \log \left (-\frac {6 \, \left (-4\right )^{\frac {1}{3}} {\left (5 \, x^{4} - x\right )} {\left (x^{3} - 1\right )}^{\frac {2}{3}} - \left (-4\right )^{\frac {2}{3}} {\left (19 \, x^{6} - 16 \, x^{3} + 1\right )} - 24 \, {\left (2 \, x^{5} - x^{2}\right )} {\left (x^{3} - 1\right )}^{\frac {1}{3}}}{x^{6} + 2 \, x^{3} + 1}\right ) + 36 \, {\left (13 \, x^{3} - 8\right )} {\left (x^{3} - 1\right )}^{\frac {2}{3}}}{720 \, x^{5}} \]

[In]

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

[Out]

-1/720*(80*sqrt(3)*(-4)^(1/3)*x^5*arctan(1/3*(3*sqrt(3)*(-4)^(2/3)*(5*x^7 + 4*x^4 - x)*(x^3 - 1)^(2/3) + 6*sqr
t(3)*(-4)^(1/3)*(19*x^8 - 16*x^5 + x^2)*(x^3 - 1)^(1/3) - sqrt(3)*(71*x^9 - 111*x^6 + 33*x^3 - 1))/(109*x^9 -
105*x^6 + 3*x^3 + 1)) - 20*4^(1/6)*sqrt(3)*x^5*arctan(1/6*4^(1/6)*(12*4^(2/3)*sqrt(3)*(2*x^7 - 5*x^4 + 2*x)*(x
^3 - 1)^(2/3) + 4^(1/3)*sqrt(3)*(91*x^9 - 168*x^6 + 84*x^3 - 8) + 12*sqrt(3)*(19*x^8 - 22*x^5 + 4*x^2)*(x^3 -
1)^(1/3))/(53*x^9 - 48*x^6 - 12*x^3 + 8)) - 10*4^(2/3)*x^5*log((6*4^(1/3)*(x^3 - 1)^(1/3)*x^2 + 4^(2/3)*(x^3 -
2) - 12*(x^3 - 1)^(2/3)*x)/(x^3 - 2)) + 5*4^(2/3)*x^5*log((6*4^(2/3)*(2*x^4 - x)*(x^3 - 1)^(2/3) + 4^(1/3)*(1
9*x^6 - 22*x^3 + 4) + 6*(5*x^5 - 4*x^2)*(x^3 - 1)^(1/3))/(x^6 - 4*x^3 + 4)) - 80*(-4)^(1/3)*x^5*log(-(3*(-4)^(
2/3)*(x^3 - 1)^(1/3)*x^2 - 6*(x^3 - 1)^(2/3)*x + (-4)^(1/3)*(x^3 + 1))/(x^3 + 1)) + 40*(-4)^(1/3)*x^5*log(-(6*
(-4)^(1/3)*(5*x^4 - x)*(x^3 - 1)^(2/3) - (-4)^(2/3)*(19*x^6 - 16*x^3 + 1) - 24*(2*x^5 - x^2)*(x^3 - 1)^(1/3))/
(x^6 + 2*x^3 + 1)) + 36*(13*x^3 - 8)*(x^3 - 1)^(2/3))/x^5

Sympy [F]

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

[In]

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

[Out]

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

Maxima [F]

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

[In]

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

[Out]

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

Giac [F]

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

[In]

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

[Out]

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

Mupad [F(-1)]

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

[In]

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

[Out]

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