How to get a factor extracted from a list? v = {1/Sqrt[2], 1/Sqrt[2]}; c = PolynomialGCD @@ v; c*Defer @@ {v/c} {1, 1}/Sqrt[2]