Plot[x^2E^(2x)(Log[E^x+1/x]-Sqrt[x^2+2E^-x]),{x,1,30}]