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