Factor fails on a simple expression
This bug in Factor
has been addressed as of version 11.3.0.
While the example may take some seconds to run, it will not hang
AbsoluteTiming[res1 = Simplify[exp];]
AbsoluteTiming[res2 = Factor[exp];]
Simplify[res1 - res2]
(* {0.060817, Null} *)
(* {13.5211, Null} *)
(* 0 *)
AbsoluteTiming[res2 = exp // FactorTerms // Factor]
gives 0.03 seconds for me using Mathematica 12.0.