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