factor PolynomialDiscriminant[x^3+3x^2+5x+1,x]