DSolve[Derivative[1][y][x] == (-a/2 - x/2 - (a*x)/2 - x^2/2 + Sqrt[a^2 + 2*a*x + x^2 + 4*y[x]])/(1 + x),y[x],x]