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