DSolve[a + 2*x*y[x] - 6*y[x]^2 + (-x + 6*y[x])^2*Derivative[1][y][x] == 0,y[x],x]