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