DSolve[-((a0 + a1*x + a2*x^2 + a3*x^3)/(a0 + a1*y[x] + a2*y[x]^2 + a3*y[x]^3))^(2/3) + Derivative[1][y][x] == 0,y[x],x]