DSolve[-4*x^2*Sqrt[E^x/x^x] + (-8 + 2*x + x^2*Log[x]^2)*y[x] + 4*x^2*Log[x]*Derivative[1][y][x] + 4*x^2*Derivative[2][y][x] == 0,y[x],x]