AlgebraicNumberPolynomial

AlgebraicNumberPolynomial[a, x] gives the polynomial in x corresponding to the AlgebraicNumber object a.

Examples

Get the minimal polynomial:

AlgebraicNumberPolynomial[AlgebraicNumber[Sqrt[2], {1, 1}], x]
(* 1 + x *)

Please visit the official Wolfram Language Reference for more details.