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