DSolve[4 + 2*x - y[x] + (7 + x + 2*y[x])*Derivative[1][y][x] == 0,y[x],x]