3.54 \(\int \text{PolyLog}(3,a x^q) \, dx\)

Optimal. Leaf size=69 \[ -\frac{a q^3 x^{q+1} \text{Hypergeometric2F1}\left (1,\frac{1}{q}+1,\frac{1}{q}+2,a x^q\right )}{q+1}-q x \text{PolyLog}\left (2,a x^q\right )+x \text{PolyLog}\left (3,a x^q\right )-q^2 x \log \left (1-a x^q\right ) \]

[Out]

-((a*q^3*x^(1 + q)*Hypergeometric2F1[1, 1 + q^(-1), 2 + q^(-1), a*x^q])/(1 + q)) - q^2*x*Log[1 - a*x^q] - q*x*
PolyLog[2, a*x^q] + x*PolyLog[3, a*x^q]

________________________________________________________________________________________

Rubi [A]  time = 0.0280803, antiderivative size = 69, normalized size of antiderivative = 1., number of steps used = 4, number of rules used = 3, integrand size = 7, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.429, Rules used = {6586, 2448, 364} \[ -q x \text{PolyLog}\left (2,a x^q\right )+x \text{PolyLog}\left (3,a x^q\right )-\frac{a q^3 x^{q+1} \, _2F_1\left (1,1+\frac{1}{q};2+\frac{1}{q};a x^q\right )}{q+1}-q^2 x \log \left (1-a x^q\right ) \]

Antiderivative was successfully verified.

[In]

Int[PolyLog[3, a*x^q],x]

[Out]

-((a*q^3*x^(1 + q)*Hypergeometric2F1[1, 1 + q^(-1), 2 + q^(-1), a*x^q])/(1 + q)) - q^2*x*Log[1 - a*x^q] - q*x*
PolyLog[2, a*x^q] + x*PolyLog[3, a*x^q]

Rule 6586

Int[PolyLog[n_, (a_.)*((b_.)*(x_)^(p_.))^(q_.)], x_Symbol] :> Simp[x*PolyLog[n, a*(b*x^p)^q], x] - Dist[p*q, I
nt[PolyLog[n - 1, a*(b*x^p)^q], x], x] /; FreeQ[{a, b, p, q}, x] && GtQ[n, 0]

Rule 2448

Int[Log[(c_.)*((d_) + (e_.)*(x_)^(n_))^(p_.)], x_Symbol] :> Simp[x*Log[c*(d + e*x^n)^p], x] - Dist[e*n*p, Int[
x^n/(d + e*x^n), x], x] /; FreeQ[{c, d, e, n, p}, x]

Rule 364

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

Rubi steps

\begin{align*} \int \text{Li}_3\left (a x^q\right ) \, dx &=x \text{Li}_3\left (a x^q\right )-q \int \text{Li}_2\left (a x^q\right ) \, dx\\ &=-q x \text{Li}_2\left (a x^q\right )+x \text{Li}_3\left (a x^q\right )-q^2 \int \log \left (1-a x^q\right ) \, dx\\ &=-q^2 x \log \left (1-a x^q\right )-q x \text{Li}_2\left (a x^q\right )+x \text{Li}_3\left (a x^q\right )-\left (a q^3\right ) \int \frac{x^q}{1-a x^q} \, dx\\ &=-\frac{a q^3 x^{1+q} \, _2F_1\left (1,1+\frac{1}{q};2+\frac{1}{q};a x^q\right )}{1+q}-q^2 x \log \left (1-a x^q\right )-q x \text{Li}_2\left (a x^q\right )+x \text{Li}_3\left (a x^q\right )\\ \end{align*}

Mathematica [C]  time = 0.0060684, size = 39, normalized size = 0.57 \[ -\frac{x G_{5,5}^{1,5}\left (-a x^q|\begin{array}{c} 1,1,1,1,\frac{q-1}{q} \\ 1,0,0,0,-\frac{1}{q} \\\end{array}\right )}{q} \]

Warning: Unable to verify antiderivative.

[In]

Integrate[PolyLog[3, a*x^q],x]

[Out]

-((x*MeijerG[{{1, 1, 1, 1, (-1 + q)/q}, {}}, {{1}, {0, 0, 0, -q^(-1)}}, -(a*x^q)])/q)

________________________________________________________________________________________

Maple [C]  time = 0.334, size = 105, normalized size = 1.5 \begin{align*} -{\frac{1}{q} \left ( -a \right ) ^{-{q}^{-1}} \left ({q}^{3}x\sqrt [q]{-a}\ln \left ( 1-a{x}^{q} \right ) +{q}^{2}x\sqrt [q]{-a}{\it polylog} \left ( 2,a{x}^{q} \right ) -qx\sqrt [q]{-a}{\it polylog} \left ( 3,a{x}^{q} \right ) +{q}^{3}{x}^{1+q}a\sqrt [q]{-a}{\it LerchPhi} \left ( a{x}^{q},1,{\frac{1+q}{q}} \right ) \right ) } \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(polylog(3,a*x^q),x)

[Out]

-1/q*(-a)^(-1/q)*(q^3*x*(-a)^(1/q)*ln(1-a*x^q)+q^2*x*(-a)^(1/q)*polylog(2,a*x^q)-q*x*(-a)^(1/q)*polylog(3,a*x^
q)+q^3*x^(1+q)*a*(-a)^(1/q)*LerchPhi(a*x^q,1,(1+q)/q))

________________________________________________________________________________________

Maxima [F]  time = 0., size = 0, normalized size = 0. \begin{align*} q^{3} x + q^{3} \int \frac{1}{a x^{q} - 1}\,{d x} - q^{2} x \log \left (-a x^{q} + 1\right ) - q x{\rm Li}_2\left (a x^{q}\right ) + x{\rm Li}_{3}(a x^{q}) \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(polylog(3,a*x^q),x, algorithm="maxima")

[Out]

q^3*x + q^3*integrate(1/(a*x^q - 1), x) - q^2*x*log(-a*x^q + 1) - q*x*dilog(a*x^q) + x*polylog(3, a*x^q)

________________________________________________________________________________________

Fricas [F]  time = 0., size = 0, normalized size = 0. \begin{align*}{\rm integral}\left ({\rm polylog}\left (3, a x^{q}\right ), x\right ) \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(polylog(3,a*x^q),x, algorithm="fricas")

[Out]

integral(polylog(3, a*x^q), x)

________________________________________________________________________________________

Sympy [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int \operatorname{Li}_{3}\left (a x^{q}\right )\, dx \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(polylog(3,a*x**q),x)

[Out]

Integral(polylog(3, a*x**q), x)

________________________________________________________________________________________

Giac [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int{\rm Li}_{3}(a x^{q})\,{d x} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(polylog(3,a*x^q),x, algorithm="giac")

[Out]

integrate(polylog(3, a*x^q), x)