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