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