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