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