\(\int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} (5 e^x+5 x)} (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} (-50 e^{2+x}-50 e^2 x)))}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} (5 e^x+5 x)}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} (5 e^x+5 x)}} \, dx\) [2567]

Optimal result

Integrand size = 174, antiderivative size = 28 \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=\frac {e^2}{3+e^{5 \left (e^{e^{e^{10 x}}}+x\right ) \left (e^x+x\right )}} \]

[Out]

exp(2)/(exp(5*(exp(x)+x)*(x+exp(exp(exp(5*x)^2))))+3)

Rubi [A] (verified)

Time = 8.97 (sec) , antiderivative size = 33, normalized size of antiderivative = 1.18, number of steps used = 3, number of rules used = 3, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.017, Rules used = {6873, 6843, 32} \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=-\frac {e^2}{3 \left (3 e^{-5 \left (x+e^{e^{e^{10 x}}}\right ) \left (x+e^x\right )}+1\right )} \]

[In]

Int[(E^(5*E^x*x + 5*x^2 + E^E^E^(10*x)*(5*E^x + 5*x))*(E^(2 + x)*(-5 - 5*x) - 10*E^2*x + E^E^E^(10*x)*(-5*E^2
- 5*E^(2 + x) + E^(E^(10*x) + 10*x)*(-50*E^(2 + x) - 50*E^2*x))))/(9 + 6*E^(5*E^x*x + 5*x^2 + E^E^E^(10*x)*(5*
E^x + 5*x)) + E^(10*E^x*x + 10*x^2 + 2*E^E^E^(10*x)*(5*E^x + 5*x))),x]

[Out]

-1/3*E^2/(1 + 3/E^(5*(E^E^E^(10*x) + x)*(E^x + x)))

Rule 32

Int[((a_.) + (b_.)*(x_))^(m_), x_Symbol] :> Simp[(a + b*x)^(m + 1)/(b*(m + 1)), x] /; FreeQ[{a, b, m}, x] && N
eQ[m, -1]

Rule 6843

Int[(u_)*((a_.)*(v_)^(p_.) + (b_.)*(w_)^(q_.))^(m_.), x_Symbol] :> With[{c = Simplify[u/(p*w*D[v, x] - q*v*D[w
, x])]}, Dist[c*p, Subst[Int[(b + a*x^p)^m, x], x, v*w^(m*q + 1)], x] /; FreeQ[c, x]] /; FreeQ[{a, b, m, p, q}
, x] && EqQ[p + q*(m*p + 1), 0] && IntegerQ[p] && IntegerQ[m]

Rule 6873

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

Rubi steps \begin{align*} \text {integral}& = \int \frac {e^{5 \left (e^{e^{e^{10 x}}}+x\right ) \left (e^x+x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{\left (3+e^{5 \left (e^{e^{e^{10 x}}}+x\right ) \left (e^x+x\right )}\right )^2} \, dx \\ & = \frac {1}{3} e^2 \text {Subst}\left (\int \frac {1}{(1+x)^2} \, dx,x,3 e^{-5 \left (e^{e^{e^{10 x}}}+x\right ) \left (e^x+x\right )}\right ) \\ & = -\frac {e^2}{3 \left (1+3 e^{-5 \left (e^{e^{e^{10 x}}}+x\right ) \left (e^x+x\right )}\right )} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.30 (sec) , antiderivative size = 28, normalized size of antiderivative = 1.00 \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=\frac {e^2}{3+e^{5 \left (e^{e^{e^{10 x}}}+x\right ) \left (e^x+x\right )}} \]

[In]

Integrate[(E^(5*E^x*x + 5*x^2 + E^E^E^(10*x)*(5*E^x + 5*x))*(E^(2 + x)*(-5 - 5*x) - 10*E^2*x + E^E^E^(10*x)*(-
5*E^2 - 5*E^(2 + x) + E^(E^(10*x) + 10*x)*(-50*E^(2 + x) - 50*E^2*x))))/(9 + 6*E^(5*E^x*x + 5*x^2 + E^E^E^(10*
x)*(5*E^x + 5*x)) + E^(10*E^x*x + 10*x^2 + 2*E^E^E^(10*x)*(5*E^x + 5*x))),x]

[Out]

E^2/(3 + E^(5*(E^E^E^(10*x) + x)*(E^x + x)))

Maple [A] (verified)

Time = 97.84 (sec) , antiderivative size = 23, normalized size of antiderivative = 0.82

method	result	size
risch	\(\frac {{\mathrm e}^{2}}{{\mathrm e}^{5 \left ({\mathrm e}^{{\mathrm e}^{{\mathrm e}^{10 x}}}+x \right ) \left ({\mathrm e}^{x}+x \right )}+3}\)	\(23\)
parallelrisch	\(\frac {{\mathrm e}^{2}}{{\mathrm e}^{\left (5 \,{\mathrm e}^{x}+5 x \right ) {\mathrm e}^{{\mathrm e}^{{\mathrm e}^{10 x}}}+5 \,{\mathrm e}^{x} x +5 x^{2}}+3}\)	\(37\)

[In]

int((((-50*exp(2)*exp(x)-50*exp(2)*x)*exp(5*x)^2*exp(exp(5*x)^2)-5*exp(2)*exp(x)-5*exp(2))*exp(exp(exp(5*x)^2)
)+(-5*x-5)*exp(2)*exp(x)-10*exp(2)*x)*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)/(exp((5*exp(x)
+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)^2+6*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)+9),
x,method=_RETURNVERBOSE)

[Out]

exp(2)/(exp(5*(exp(exp(exp(10*x)))+x)*(exp(x)+x))+3)

Fricas [F(-1)]

Timed out. \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=\text {Timed out} \]

[In]

integrate((((-50*exp(2)*exp(x)-50*exp(2)*x)*exp(5*x)^2*exp(exp(5*x)^2)-5*exp(2)*exp(x)-5*exp(2))*exp(exp(exp(5
*x)^2))+(-5*x-5)*exp(2)*exp(x)-10*exp(2)*x)*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)/(exp((5*
exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)^2+6*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^
2)+9),x, algorithm="fricas")

[Out]

Timed out

Sympy [A] (verification not implemented)

Time = 0.45 (sec) , antiderivative size = 34, normalized size of antiderivative = 1.21 \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=\frac {e^{2}}{e^{5 x^{2} + 5 x e^{x} + \left (5 x + 5 e^{x}\right ) e^{e^{e^{10 x}}}} + 3} \]

[In]

integrate((((-50*exp(2)*exp(x)-50*exp(2)*x)*exp(5*x)**2*exp(exp(5*x)**2)-5*exp(2)*exp(x)-5*exp(2))*exp(exp(exp
(5*x)**2))+(-5*x-5)*exp(2)*exp(x)-10*exp(2)*x)*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)**2))+5*exp(x)*x+5*x**2)/(ex
p((5*exp(x)+5*x)*exp(exp(exp(5*x)**2))+5*exp(x)*x+5*x**2)**2+6*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)**2))+5*exp(
x)*x+5*x**2)+9),x)

[Out]

exp(2)/(exp(5*x**2 + 5*x*exp(x) + (5*x + 5*exp(x))*exp(exp(exp(10*x)))) + 3)

Maxima [A] (verification not implemented)

none

Time = 0.45 (sec) , antiderivative size = 38, normalized size of antiderivative = 1.36 \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=\frac {e^{2}}{e^{\left (5 \, x^{2} + 5 \, x e^{x} + 5 \, x e^{\left (e^{\left (e^{\left (10 \, x\right )}\right )}\right )} + 5 \, e^{\left (x + e^{\left (e^{\left (10 \, x\right )}\right )}\right )}\right )} + 3} \]

[In]

integrate((((-50*exp(2)*exp(x)-50*exp(2)*x)*exp(5*x)^2*exp(exp(5*x)^2)-5*exp(2)*exp(x)-5*exp(2))*exp(exp(exp(5
*x)^2))+(-5*x-5)*exp(2)*exp(x)-10*exp(2)*x)*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)/(exp((5*
exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)^2+6*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^
2)+9),x, algorithm="maxima")

[Out]

e^2/(e^(5*x^2 + 5*x*e^x + 5*x*e^(e^(e^(10*x))) + 5*e^(x + e^(e^(10*x)))) + 3)

Giac [F(-1)]

Timed out. \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=\text {Timed out} \]

[In]

integrate((((-50*exp(2)*exp(x)-50*exp(2)*x)*exp(5*x)^2*exp(exp(5*x)^2)-5*exp(2)*exp(x)-5*exp(2))*exp(exp(exp(5
*x)^2))+(-5*x-5)*exp(2)*exp(x)-10*exp(2)*x)*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)/(exp((5*
exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^2)^2+6*exp((5*exp(x)+5*x)*exp(exp(exp(5*x)^2))+5*exp(x)*x+5*x^
2)+9),x, algorithm="giac")

[Out]

Timed out

Mupad [B] (verification not implemented)

Time = 8.66 (sec) , antiderivative size = 41, normalized size of antiderivative = 1.46 \[ \int \frac {e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )} \left (e^{2+x} (-5-5 x)-10 e^2 x+e^{e^{e^{10 x}}} \left (-5 e^2-5 e^{2+x}+e^{e^{10 x}+10 x} \left (-50 e^{2+x}-50 e^2 x\right )\right )\right )}{9+6 e^{5 e^x x+5 x^2+e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}+e^{10 e^x x+10 x^2+2 e^{e^{e^{10 x}}} \left (5 e^x+5 x\right )}} \, dx=\frac {{\mathrm {e}}^2}{{\mathrm {e}}^{5\,x\,{\mathrm {e}}^x}\,{\mathrm {e}}^{5\,x\,{\mathrm {e}}^{{\mathrm {e}}^{{\mathrm {e}}^{10\,x}}}}\,{\mathrm {e}}^{5\,x^2}\,{\mathrm {e}}^{5\,{\mathrm {e}}^{{\mathrm {e}}^{{\mathrm {e}}^{10\,x}}}\,{\mathrm {e}}^x}+3} \]

[In]

int(-(exp(5*x*exp(x) + 5*x^2 + exp(exp(exp(10*x)))*(5*x + 5*exp(x)))*(10*x*exp(2) + exp(exp(exp(10*x)))*(5*exp
(2) + 5*exp(2)*exp(x) + exp(10*x)*exp(exp(10*x))*(50*x*exp(2) + 50*exp(2)*exp(x))) + exp(2)*exp(x)*(5*x + 5)))
/(6*exp(5*x*exp(x) + 5*x^2 + exp(exp(exp(10*x)))*(5*x + 5*exp(x))) + exp(10*x*exp(x) + 10*x^2 + 2*exp(exp(exp(
10*x)))*(5*x + 5*exp(x))) + 9),x)

[Out]

exp(2)/(exp(5*x*exp(x))*exp(5*x*exp(exp(exp(10*x))))*exp(5*x^2)*exp(5*exp(exp(exp(10*x)))*exp(x)) + 3)