3.15.7 \(\int \frac {e^{\frac {2 (4 x-36 x^2+(3-108 x) \log (\log (\frac {e^x}{x})))}{x+3 \log (\log (\frac {e^x}{x}))}} (18 x^2-18 x^3+(2 x^3-72 x^4) \log (\frac {e^x}{x})+(30 x^2-432 x^3) \log (\frac {e^x}{x}) \log (\log (\frac {e^x}{x}))+(18 x-648 x^2) \log (\frac {e^x}{x}) \log ^2(\log (\frac {e^x}{x})))}{x^2 \log (\frac {e^x}{x})+6 x \log (\frac {e^x}{x}) \log (\log (\frac {e^x}{x}))+9 \log (\frac {e^x}{x}) \log ^2(\log (\frac {e^x}{x}))} \, dx\) [1407]

3.15.7.1 Optimal result
3.15.7.2 Mathematica [A] (verified)
3.15.7.3 Rubi [F]
3.15.7.4 Maple [A] (verified)
3.15.7.5 Fricas [A] (verification not implemented)
3.15.7.6 Sympy [F(-1)]
3.15.7.7 Maxima [F(-2)]
3.15.7.8 Giac [A] (verification not implemented)
3.15.7.9 Mupad [F(-1)]

3.15.7.1 Optimal result

Integrand size = 189, antiderivative size = 30 \[ \int \frac {e^{\frac {2 \left (4 x-36 x^2+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} \left (18 x^2-18 x^3+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x^2 \log \left (\frac {e^x}{x}\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )} \, dx=e^{2-2 x \left (36-\frac {3}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right )} x^2 \]

output
exp(1-(36-3/(3*ln(ln(exp(x)/x))+x))*x)^2*x^2
 
3.15.7.2 Mathematica [A] (verified)

Time = 0.29 (sec) , antiderivative size = 46, normalized size of antiderivative = 1.53 \[ \int \frac {e^{\frac {2 \left (4 x-36 x^2+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} \left (18 x^2-18 x^3+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x^2 \log \left (\frac {e^x}{x}\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )} \, dx=e^{\frac {8 (1-9 x) x+(6-216 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} x^2 \]

input
Integrate[(E^((2*(4*x - 36*x^2 + (3 - 108*x)*Log[Log[E^x/x]]))/(x + 3*Log[ 
Log[E^x/x]]))*(18*x^2 - 18*x^3 + (2*x^3 - 72*x^4)*Log[E^x/x] + (30*x^2 - 4 
32*x^3)*Log[E^x/x]*Log[Log[E^x/x]] + (18*x - 648*x^2)*Log[E^x/x]*Log[Log[E 
^x/x]]^2))/(x^2*Log[E^x/x] + 6*x*Log[E^x/x]*Log[Log[E^x/x]] + 9*Log[E^x/x] 
*Log[Log[E^x/x]]^2),x]
 
output
E^((8*(1 - 9*x)*x + (6 - 216*x)*Log[Log[E^x/x]])/(x + 3*Log[Log[E^x/x]]))* 
x^2
 
3.15.7.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 {\left (-18 x^3+18 x^2+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right ) \exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right )}{x^2 \log \left (\frac {e^x}{x}\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )} \, dx\)

\(\Big \downarrow \) 7292

\(\displaystyle \int \frac {\left (-18 x^3+18 x^2+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right ) \exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right )}{\log \left (\frac {e^x}{x}\right ) \left (x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )^2}dx\)

\(\Big \downarrow \) 7293

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

\(\Big \downarrow \) 2009

\(\displaystyle 2 \int \exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right ) xdx-72 \int \exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right ) x^2dx+18 \int \frac {\exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right ) x^2}{\log \left (\frac {e^x}{x}\right ) \left (x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )^2}dx+6 \int \frac {\exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right ) x^2}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}dx-6 \int \frac {\exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right ) x^3}{\left (x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )^2}dx-18 \int \frac {\exp \left (\frac {2 \left (-36 x^2+4 x+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}\right ) x^3}{\log \left (\frac {e^x}{x}\right ) \left (x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )^2}dx\)

input
Int[(E^((2*(4*x - 36*x^2 + (3 - 108*x)*Log[Log[E^x/x]]))/(x + 3*Log[Log[E^ 
x/x]]))*(18*x^2 - 18*x^3 + (2*x^3 - 72*x^4)*Log[E^x/x] + (30*x^2 - 432*x^3 
)*Log[E^x/x]*Log[Log[E^x/x]] + (18*x - 648*x^2)*Log[E^x/x]*Log[Log[E^x/x]] 
^2))/(x^2*Log[E^x/x] + 6*x*Log[E^x/x]*Log[Log[E^x/x]] + 9*Log[E^x/x]*Log[L 
og[E^x/x]]^2),x]
 
output
$Aborted
 

3.15.7.3.1 Defintions of rubi rules used

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

rule 7292
Int[u_, x_Symbol] :> With[{v = NormalizeIntegrand[u, x]}, Int[v, x] /; v =! 
= u]
 

rule 7293
Int[u_, x_Symbol] :> With[{v = ExpandIntegrand[u, x]}, Int[v, x] /; SumQ[v] 
]
 
3.15.7.4 Maple [A] (verified)

Time = 172.43 (sec) , antiderivative size = 46, normalized size of antiderivative = 1.53

method result size
parallelrisch \(x^{2} {\mathrm e}^{\frac {2 \left (-108 x +3\right ) \ln \left (\ln \left (\frac {{\mathrm e}^{x}}{x}\right )\right )-72 x^{2}+8 x}{3 \ln \left (\ln \left (\frac {{\mathrm e}^{x}}{x}\right )\right )+x}}\) \(46\)
risch \(x^{2} {\mathrm e}^{-\frac {2 \left (108 \ln \left (-\ln \left (x \right )+\ln \left ({\mathrm e}^{x}\right )-\frac {i \pi \,\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right ) \left (-\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right )+\operatorname {csgn}\left (\frac {i}{x}\right )\right ) \left (-\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right )+\operatorname {csgn}\left (i {\mathrm e}^{x}\right )\right )}{2}\right ) x +36 x^{2}-3 \ln \left (-\ln \left (x \right )+\ln \left ({\mathrm e}^{x}\right )-\frac {i \pi \,\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right ) \left (-\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right )+\operatorname {csgn}\left (\frac {i}{x}\right )\right ) \left (-\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right )+\operatorname {csgn}\left (i {\mathrm e}^{x}\right )\right )}{2}\right )-4 x \right )}{3 \ln \left (-\ln \left (x \right )+\ln \left ({\mathrm e}^{x}\right )-\frac {i \pi \,\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right ) \left (-\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right )+\operatorname {csgn}\left (\frac {i}{x}\right )\right ) \left (-\operatorname {csgn}\left (\frac {i {\mathrm e}^{x}}{x}\right )+\operatorname {csgn}\left (i {\mathrm e}^{x}\right )\right )}{2}\right )+x}}\) \(205\)

input
int(((-648*x^2+18*x)*ln(exp(x)/x)*ln(ln(exp(x)/x))^2+(-432*x^3+30*x^2)*ln( 
exp(x)/x)*ln(ln(exp(x)/x))+(-72*x^4+2*x^3)*ln(exp(x)/x)-18*x^3+18*x^2)*exp 
(((-108*x+3)*ln(ln(exp(x)/x))-36*x^2+4*x)/(3*ln(ln(exp(x)/x))+x))^2/(9*ln( 
exp(x)/x)*ln(ln(exp(x)/x))^2+6*x*ln(exp(x)/x)*ln(ln(exp(x)/x))+x^2*ln(exp( 
x)/x)),x,method=_RETURNVERBOSE)
 
output
x^2*exp(((-108*x+3)*ln(ln(exp(x)/x))-36*x^2+4*x)/(3*ln(ln(exp(x)/x))+x))^2
 
3.15.7.5 Fricas [A] (verification not implemented)

Time = 0.25 (sec) , antiderivative size = 45, normalized size of antiderivative = 1.50 \[ \int \frac {e^{\frac {2 \left (4 x-36 x^2+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} \left (18 x^2-18 x^3+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x^2 \log \left (\frac {e^x}{x}\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )} \, dx=x^{2} e^{\left (-\frac {2 \, {\left (36 \, x^{2} + 3 \, {\left (36 \, x - 1\right )} \log \left (\log \left (\frac {e^{x}}{x}\right )\right ) - 4 \, x\right )}}{x + 3 \, \log \left (\log \left (\frac {e^{x}}{x}\right )\right )}\right )} \]

input
integrate(((-648*x^2+18*x)*log(exp(x)/x)*log(log(exp(x)/x))^2+(-432*x^3+30 
*x^2)*log(exp(x)/x)*log(log(exp(x)/x))+(-72*x^4+2*x^3)*log(exp(x)/x)-18*x^ 
3+18*x^2)*exp(((-108*x+3)*log(log(exp(x)/x))-36*x^2+4*x)/(3*log(log(exp(x) 
/x))+x))^2/(9*log(exp(x)/x)*log(log(exp(x)/x))^2+6*x*log(exp(x)/x)*log(log 
(exp(x)/x))+x^2*log(exp(x)/x)),x, algorithm=\
 
output
x^2*e^(-2*(36*x^2 + 3*(36*x - 1)*log(log(e^x/x)) - 4*x)/(x + 3*log(log(e^x 
/x))))
 
3.15.7.6 Sympy [F(-1)]

Timed out. \[ \int \frac {e^{\frac {2 \left (4 x-36 x^2+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} \left (18 x^2-18 x^3+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x^2 \log \left (\frac {e^x}{x}\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )} \, dx=\text {Timed out} \]

input
integrate(((-648*x**2+18*x)*ln(exp(x)/x)*ln(ln(exp(x)/x))**2+(-432*x**3+30 
*x**2)*ln(exp(x)/x)*ln(ln(exp(x)/x))+(-72*x**4+2*x**3)*ln(exp(x)/x)-18*x** 
3+18*x**2)*exp(((-108*x+3)*ln(ln(exp(x)/x))-36*x**2+4*x)/(3*ln(ln(exp(x)/x 
))+x))**2/(9*ln(exp(x)/x)*ln(ln(exp(x)/x))**2+6*x*ln(exp(x)/x)*ln(ln(exp(x 
)/x))+x**2*ln(exp(x)/x)),x)
 
output
Timed out
 
3.15.7.7 Maxima [F(-2)]

Exception generated. \[ \int \frac {e^{\frac {2 \left (4 x-36 x^2+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} \left (18 x^2-18 x^3+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x^2 \log \left (\frac {e^x}{x}\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )} \, dx=\text {Exception raised: RuntimeError} \]

input
integrate(((-648*x^2+18*x)*log(exp(x)/x)*log(log(exp(x)/x))^2+(-432*x^3+30 
*x^2)*log(exp(x)/x)*log(log(exp(x)/x))+(-72*x^4+2*x^3)*log(exp(x)/x)-18*x^ 
3+18*x^2)*exp(((-108*x+3)*log(log(exp(x)/x))-36*x^2+4*x)/(3*log(log(exp(x) 
/x))+x))^2/(9*log(exp(x)/x)*log(log(exp(x)/x))^2+6*x*log(exp(x)/x)*log(log 
(exp(x)/x))+x^2*log(exp(x)/x)),x, algorithm=\
 
output
Exception raised: RuntimeError >> ECL says: In function CAR, the value of 
the first argument is  0which is not of the expected type LIST
 
3.15.7.8 Giac [A] (verification not implemented)

Time = 9.23 (sec) , antiderivative size = 48, normalized size of antiderivative = 1.60 \[ \int \frac {e^{\frac {2 \left (4 x-36 x^2+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} \left (18 x^2-18 x^3+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x^2 \log \left (\frac {e^x}{x}\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )} \, dx=x^{2} e^{\left (-\frac {2 \, {\left (36 \, x^{2} + 108 \, x \log \left (x - \log \left (x\right )\right ) - 4 \, x - 3 \, \log \left (x - \log \left (x\right )\right )\right )}}{x + 3 \, \log \left (x - \log \left (x\right )\right )}\right )} \]

input
integrate(((-648*x^2+18*x)*log(exp(x)/x)*log(log(exp(x)/x))^2+(-432*x^3+30 
*x^2)*log(exp(x)/x)*log(log(exp(x)/x))+(-72*x^4+2*x^3)*log(exp(x)/x)-18*x^ 
3+18*x^2)*exp(((-108*x+3)*log(log(exp(x)/x))-36*x^2+4*x)/(3*log(log(exp(x) 
/x))+x))^2/(9*log(exp(x)/x)*log(log(exp(x)/x))^2+6*x*log(exp(x)/x)*log(log 
(exp(x)/x))+x^2*log(exp(x)/x)),x, algorithm=\
 
output
x^2*e^(-2*(36*x^2 + 108*x*log(x - log(x)) - 4*x - 3*log(x - log(x)))/(x + 
3*log(x - log(x))))
 
3.15.7.9 Mupad [F(-1)]

Timed out. \[ \int \frac {e^{\frac {2 \left (4 x-36 x^2+(3-108 x) \log \left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x+3 \log \left (\log \left (\frac {e^x}{x}\right )\right )}} \left (18 x^2-18 x^3+\left (2 x^3-72 x^4\right ) \log \left (\frac {e^x}{x}\right )+\left (30 x^2-432 x^3\right ) \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+\left (18 x-648 x^2\right ) \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )\right )}{x^2 \log \left (\frac {e^x}{x}\right )+6 x \log \left (\frac {e^x}{x}\right ) \log \left (\log \left (\frac {e^x}{x}\right )\right )+9 \log \left (\frac {e^x}{x}\right ) \log ^2\left (\log \left (\frac {e^x}{x}\right )\right )} \, dx=\int \frac {{\mathrm {e}}^{-\frac {2\,\left (\ln \left (\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\right )\,\left (108\,x-3\right )-4\,x+36\,x^2\right )}{x+3\,\ln \left (\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\right )}}\,\left (\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\,\left (2\,x^3-72\,x^4\right )+18\,x^2-18\,x^3+\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\,\ln \left (\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\right )\,\left (30\,x^2-432\,x^3\right )+\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\,{\ln \left (\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\right )}^2\,\left (18\,x-648\,x^2\right )\right )}{9\,\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\,{\ln \left (\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\right )}^2+x^2\,\ln \left (\frac {{\mathrm {e}}^x}{x}\right )+6\,x\,\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\,\ln \left (\ln \left (\frac {{\mathrm {e}}^x}{x}\right )\right )} \,d x \]

input
int((exp(-(2*(log(log(exp(x)/x))*(108*x - 3) - 4*x + 36*x^2))/(x + 3*log(l 
og(exp(x)/x))))*(log(exp(x)/x)*(2*x^3 - 72*x^4) + 18*x^2 - 18*x^3 + log(ex 
p(x)/x)*log(log(exp(x)/x))*(30*x^2 - 432*x^3) + log(exp(x)/x)*log(log(exp( 
x)/x))^2*(18*x - 648*x^2)))/(9*log(exp(x)/x)*log(log(exp(x)/x))^2 + x^2*lo 
g(exp(x)/x) + 6*x*log(exp(x)/x)*log(log(exp(x)/x))),x)
 
output
int((exp(-(2*(log(log(exp(x)/x))*(108*x - 3) - 4*x + 36*x^2))/(x + 3*log(l 
og(exp(x)/x))))*(log(exp(x)/x)*(2*x^3 - 72*x^4) + 18*x^2 - 18*x^3 + log(ex 
p(x)/x)*log(log(exp(x)/x))*(30*x^2 - 432*x^3) + log(exp(x)/x)*log(log(exp( 
x)/x))^2*(18*x - 648*x^2)))/(9*log(exp(x)/x)*log(log(exp(x)/x))^2 + x^2*lo 
g(exp(x)/x) + 6*x*log(exp(x)/x)*log(log(exp(x)/x))), x)