Demo that (e^(λ x))>(x^n) for large enough x

Module[{is=400,x,xc,ymin=-1,ymax=1,ydiff=10},
Manipulate[
ymin=Log[xmax/ydiff];
ymax=ymin+Log[ydiff];
xc= Max[
Quiet[
x/.Solve[λ x==n Log[x],x],
{Solve::ifun}
]
];
(*Print[xc];*)
Column[{
Plot[{
(λ/n) x,
Log[x]
},{x,0,xmax}
,PlotRange->{{0,xmax},{ymin,ymax}}
,PlotLegends->{"(λ/n)x","ln(x)"}
,ImageSize->is
,Epilog->{
PointSize[Large],
Point[{{xc,(λ/n) xc}}]
}
],
Plot[{
(λ/n) x,
Log[x]
},{x,0,xmax}
,PlotRange->{{0,xmax},{0,Log[ydiff]/3}}
,PlotLegends->{"(λ/n)x","ln(x)"}
,AspectRatio->0.2
,ImageSize->is
]
}],
{{λ,0.1},Appearance->"Labeled"},
{{n,10},1,1000, Appearance->"Labeled"},
{{xmax,10},Appearance->"Labeled"},
{xmax,Button["Find it",xmax=2xc]&}
]
]