3.8.73 \(\int \frac {e^{-x} (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} (e^x (-1+x)+e^x (1-x) \log (x))+(e^x x \log (x)+4^{4 e^{-x}} (-4 x+4 x^2) \log (4) \log (x)) \log (\frac {2 x}{\log (x)}))}{(-x+x^2) \log (x)} \, dx\) [773]

3.8.73.1 Optimal result
3.8.73.2 Mathematica [A] (verified)
3.8.73.3 Rubi [F]
3.8.73.4 Maple [C] (warning: unable to verify)
3.8.73.5 Fricas [A] (verification not implemented)
3.8.73.6 Sympy [F(-1)]
3.8.73.7 Maxima [F]
3.8.73.8 Giac [F]
3.8.73.9 Mupad [F(-1)]

3.8.73.1 Optimal result

Integrand size = 115, antiderivative size = 25 \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\left (-4^{4 e^{-x}}+\log (-1+x)\right ) \log \left (\frac {2 x}{\log (x)}\right ) \]

output
(ln(-1+x)-exp(8*ln(2)/exp(x)))*ln(2*x/ln(x))
 
3.8.73.2 Mathematica [A] (verified)

Time = 0.45 (sec) , antiderivative size = 24, normalized size of antiderivative = 0.96 \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=-\left (\left (256^{e^{-x}}-\log (-1+x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right ) \]

input
Integrate[(E^x*(1 - x)*Log[-1 + x] + E^x*(-1 + x)*Log[-1 + x]*Log[x] + 4^( 
4/E^x)*(E^x*(-1 + x) + E^x*(1 - x)*Log[x]) + (E^x*x*Log[x] + 4^(4/E^x)*(-4 
*x + 4*x^2)*Log[4]*Log[x])*Log[(2*x)/Log[x]])/(E^x*(-x + x^2)*Log[x]),x]
 
output
-((256^E^(-x) - Log[-1 + x])*Log[(2*x)/Log[x]])
 
3.8.73.3 Rubi [F]

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 \frac {e^{-x} \left (\left (4^{4 e^{-x}} \left (4 x^2-4 x\right ) \log (4) \log (x)+e^x x \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )+e^x (1-x) \log (x-1)+e^x (x-1) \log (x) \log (x-1)+4^{4 e^{-x}} \left (e^x (x-1)+e^x (1-x) \log (x)\right )\right )}{\left (x^2-x\right ) \log (x)} \, dx\)

\(\Big \downarrow \) 2026

\(\displaystyle \int \frac {e^{-x} \left (\left (4^{4 e^{-x}} \left (4 x^2-4 x\right ) \log (4) \log (x)+e^x x \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )+e^x (1-x) \log (x-1)+e^x (x-1) \log (x) \log (x-1)+4^{4 e^{-x}} \left (e^x (x-1)+e^x (1-x) \log (x)\right )\right )}{(x-1) x \log (x)}dx\)

\(\Big \downarrow \) 7293

\(\displaystyle \int \left (4^{e^{-x} \left (e^x+4\right )} e^{-x} \log (4) \log \left (\frac {2 x}{\log (x)}\right )-\frac {-256^{e^{-x}} x+256^{e^{-x}}+x \log (x-1)+256^{e^{-x}} x \log (x)-x \log (x-1) \log (x)-x \log (x) \log \left (\frac {2 x}{\log (x)}\right )-\log (x-1)-256^{e^{-x}} \log (x)+\log (x-1) \log (x)}{(x-1) x \log (x)}\right )dx\)

\(\Big \downarrow \) 2009

\(\displaystyle -\int \frac {\log (x-1)}{x \log (x)}dx+\int \frac {\log \left (\frac {2 x}{\log (x)}\right )}{x-1}dx+\operatorname {PolyLog}(2,1-x)+\log (x-1) \log (x)-4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )\)

input
Int[(E^x*(1 - x)*Log[-1 + x] + E^x*(-1 + x)*Log[-1 + x]*Log[x] + 4^(4/E^x) 
*(E^x*(-1 + x) + E^x*(1 - x)*Log[x]) + (E^x*x*Log[x] + 4^(4/E^x)*(-4*x + 4 
*x^2)*Log[4]*Log[x])*Log[(2*x)/Log[x]])/(E^x*(-x + x^2)*Log[x]),x]
 
output
$Aborted
 

3.8.73.3.1 Defintions of rubi rules used

rule 2009
Int[u_, x_Symbol] :> Simp[IntSum[u, x], x] /; SumQ[u]
 

rule 2026
Int[(Fx_.)*(Px_)^(p_.), x_Symbol] :> With[{r = Expon[Px, x, Min]}, Int[x^(p 
*r)*ExpandToSum[Px/x^r, x]^p*Fx, x] /; IGtQ[r, 0]] /; PolyQ[Px, x] && Integ 
erQ[p] &&  !MonomialQ[Px, x] && (ILtQ[p, 0] ||  !PolyQ[u, x])
 

rule 7293
Int[u_, x_Symbol] :> With[{v = ExpandIntegrand[u, x]}, Int[v, x] /; SumQ[v] 
]
 
3.8.73.4 Maple [C] (warning: unable to verify)

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

Time = 0.76 (sec) , antiderivative size = 261, normalized size of antiderivative = 10.44

\[\left (-\ln \left (-1+x \right )+256^{{\mathrm e}^{-x}}\right ) \ln \left (\ln \left (x \right )\right )+\ln \left (x \right ) \ln \left (-1+x \right )+\frac {i 256^{{\mathrm e}^{-x}} \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )}{2}+\frac {i 256^{{\mathrm e}^{-x}} \pi \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{3}}{2}-\frac {i 256^{{\mathrm e}^{-x}} \pi \,\operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}-\frac {i \ln \left (-1+x \right ) \pi \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{3}}{2}-\frac {i 256^{{\mathrm e}^{-x}} \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}+\frac {i \ln \left (-1+x \right ) \pi \,\operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}+\frac {i \ln \left (-1+x \right ) \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}-\frac {i \ln \left (-1+x \right ) \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )}{2}+\ln \left (-1+x \right ) \ln \left (2\right )-256^{{\mathrm e}^{-x}} \ln \left (2\right )-256^{{\mathrm e}^{-x}} \ln \left (x \right )\]

input
int(((2*(4*x^2-4*x)*ln(2)*ln(x)*exp(8*ln(2)/exp(x))+x*exp(x)*ln(x))*ln(2*x 
/ln(x))+((1-x)*exp(x)*ln(x)+(-1+x)*exp(x))*exp(8*ln(2)/exp(x))+(-1+x)*exp( 
x)*ln(-1+x)*ln(x)+(1-x)*exp(x)*ln(-1+x))/(x^2-x)/exp(x)/ln(x),x)
 
output
(-ln(-1+x)+256^exp(-x))*ln(ln(x))+ln(x)*ln(-1+x)+1/2*I*256^exp(-x)*Pi*csgn 
(I*x)*csgn(I/ln(x))*csgn(I*x/ln(x))+1/2*I*256^exp(-x)*Pi*csgn(I*x/ln(x))^3 
-1/2*I*256^exp(-x)*Pi*csgn(I/ln(x))*csgn(I*x/ln(x))^2-1/2*I*ln(-1+x)*Pi*cs 
gn(I*x/ln(x))^3-1/2*I*256^exp(-x)*Pi*csgn(I*x)*csgn(I*x/ln(x))^2+1/2*I*ln( 
-1+x)*Pi*csgn(I/ln(x))*csgn(I*x/ln(x))^2+1/2*I*ln(-1+x)*Pi*csgn(I*x)*csgn( 
I*x/ln(x))^2-1/2*I*ln(-1+x)*Pi*csgn(I*x)*csgn(I/ln(x))*csgn(I*x/ln(x))+ln( 
-1+x)*ln(2)-256^exp(-x)*ln(2)-256^exp(-x)*ln(x)
 
3.8.73.5 Fricas [A] (verification not implemented)

Time = 0.24 (sec) , antiderivative size = 25, normalized size of antiderivative = 1.00 \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=-{\left (2^{8 \, e^{\left (-x\right )}} - \log \left (x - 1\right )\right )} \log \left (\frac {2 \, x}{\log \left (x\right )}\right ) \]

input
integrate(((2*(4*x^2-4*x)*log(2)*log(x)*exp(8*log(2)/exp(x))+x*exp(x)*log( 
x))*log(2*x/log(x))+((1-x)*exp(x)*log(x)+(-1+x)*exp(x))*exp(8*log(2)/exp(x 
))+(-1+x)*exp(x)*log(-1+x)*log(x)+(1-x)*exp(x)*log(-1+x))/(x^2-x)/exp(x)/l 
og(x),x, algorithm=\
 
output
-(2^(8*e^(-x)) - log(x - 1))*log(2*x/log(x))
 
3.8.73.6 Sympy [F(-1)]

Timed out. \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\text {Timed out} \]

input
integrate(((2*(4*x**2-4*x)*ln(2)*ln(x)*exp(8*ln(2)/exp(x))+x*exp(x)*ln(x)) 
*ln(2*x/ln(x))+((1-x)*exp(x)*ln(x)+(-1+x)*exp(x))*exp(8*ln(2)/exp(x))+(-1+ 
x)*exp(x)*ln(-1+x)*ln(x)+(1-x)*exp(x)*ln(-1+x))/(x**2-x)/exp(x)/ln(x),x)
 
output
Timed out
 
3.8.73.7 Maxima [F]

\[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\int { \frac {{\left ({\left (x - 1\right )} e^{x} \log \left (x - 1\right ) \log \left (x\right ) - {\left (x - 1\right )} e^{x} \log \left (x - 1\right ) - {\left ({\left (x - 1\right )} e^{x} \log \left (x\right ) - {\left (x - 1\right )} e^{x}\right )} 2^{8 \, e^{\left (-x\right )}} + {\left (8 \, {\left (x^{2} - x\right )} 2^{8 \, e^{\left (-x\right )}} \log \left (2\right ) \log \left (x\right ) + x e^{x} \log \left (x\right )\right )} \log \left (\frac {2 \, x}{\log \left (x\right )}\right )\right )} e^{\left (-x\right )}}{{\left (x^{2} - x\right )} \log \left (x\right )} \,d x } \]

input
integrate(((2*(4*x^2-4*x)*log(2)*log(x)*exp(8*log(2)/exp(x))+x*exp(x)*log( 
x))*log(2*x/log(x))+((1-x)*exp(x)*log(x)+(-1+x)*exp(x))*exp(8*log(2)/exp(x 
))+(-1+x)*exp(x)*log(-1+x)*log(x)+(1-x)*exp(x)*log(-1+x))/(x^2-x)/exp(x)/l 
og(x),x, algorithm=\
 
output
(log(2) + log(x) - log(log(x)))*log(x - 1) - integrate(-(8*x*log(2)^2*log( 
x) + 8*x*log(2)*log(x)^2 - 8*x*log(2)*log(x)*log(log(x)) - (log(x) - 1)*e^ 
x)*e^(8*e^(-x)*log(2) - x)/(x*log(x)), x)
 
3.8.73.8 Giac [F]

\[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\int { \frac {{\left ({\left (x - 1\right )} e^{x} \log \left (x - 1\right ) \log \left (x\right ) - {\left (x - 1\right )} e^{x} \log \left (x - 1\right ) - {\left ({\left (x - 1\right )} e^{x} \log \left (x\right ) - {\left (x - 1\right )} e^{x}\right )} 2^{8 \, e^{\left (-x\right )}} + {\left (8 \, {\left (x^{2} - x\right )} 2^{8 \, e^{\left (-x\right )}} \log \left (2\right ) \log \left (x\right ) + x e^{x} \log \left (x\right )\right )} \log \left (\frac {2 \, x}{\log \left (x\right )}\right )\right )} e^{\left (-x\right )}}{{\left (x^{2} - x\right )} \log \left (x\right )} \,d x } \]

input
integrate(((2*(4*x^2-4*x)*log(2)*log(x)*exp(8*log(2)/exp(x))+x*exp(x)*log( 
x))*log(2*x/log(x))+((1-x)*exp(x)*log(x)+(-1+x)*exp(x))*exp(8*log(2)/exp(x 
))+(-1+x)*exp(x)*log(-1+x)*log(x)+(1-x)*exp(x)*log(-1+x))/(x^2-x)/exp(x)/l 
og(x),x, algorithm=\
 
output
integrate(((x - 1)*e^x*log(x - 1)*log(x) - (x - 1)*e^x*log(x - 1) - ((x - 
1)*e^x*log(x) - (x - 1)*e^x)*2^(8*e^(-x)) + (8*(x^2 - x)*2^(8*e^(-x))*log( 
2)*log(x) + x*e^x*log(x))*log(2*x/log(x)))*e^(-x)/((x^2 - x)*log(x)), x)
 
3.8.73.9 Mupad [F(-1)]

Timed out. \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\int -\frac {{\mathrm {e}}^{-x}\,\left ({\mathrm {e}}^{8\,{\mathrm {e}}^{-x}\,\ln \left (2\right )}\,\left ({\mathrm {e}}^x\,\left (x-1\right )-{\mathrm {e}}^x\,\ln \left (x\right )\,\left (x-1\right )\right )+\ln \left (\frac {2\,x}{\ln \left (x\right )}\right )\,\left (x\,{\mathrm {e}}^x\,\ln \left (x\right )-2\,{\mathrm {e}}^{8\,{\mathrm {e}}^{-x}\,\ln \left (2\right )}\,\ln \left (2\right )\,\ln \left (x\right )\,\left (4\,x-4\,x^2\right )\right )-\ln \left (x-1\right )\,{\mathrm {e}}^x\,\left (x-1\right )+\ln \left (x-1\right )\,{\mathrm {e}}^x\,\ln \left (x\right )\,\left (x-1\right )\right )}{\ln \left (x\right )\,\left (x-x^2\right )} \,d x \]

input
int(-(exp(-x)*(exp(8*exp(-x)*log(2))*(exp(x)*(x - 1) - exp(x)*log(x)*(x - 
1)) + log((2*x)/log(x))*(x*exp(x)*log(x) - 2*exp(8*exp(-x)*log(2))*log(2)* 
log(x)*(4*x - 4*x^2)) - log(x - 1)*exp(x)*(x - 1) + log(x - 1)*exp(x)*log( 
x)*(x - 1)))/(log(x)*(x - x^2)),x)
 
output
int(-(exp(-x)*(exp(8*exp(-x)*log(2))*(exp(x)*(x - 1) - exp(x)*log(x)*(x - 
1)) + log((2*x)/log(x))*(x*exp(x)*log(x) - 2*exp(8*exp(-x)*log(2))*log(2)* 
log(x)*(4*x - 4*x^2)) - log(x - 1)*exp(x)*(x - 1) + log(x - 1)*exp(x)*log( 
x)*(x - 1)))/(log(x)*(x - x^2)), x)