WMA link
MinimalPolynomial[s, x]
MinimalPolynomial[7, x]
MinimalPolynomial[Sqrt[2] + Sqrt[3], x]
MinimalPolynomial[Sqrt[1 + Sqrt[3]], x]
MinimalPolynomial[Sqrt[I + Sqrt[6]], x]