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