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