The primitive part of a polynomial is , where is the content.

For a general univariate polynomial , the Wolfram
Language function FactorTermsList[poly,
x] returns a list of three elements, the first being the integer content , the second being the polynomial content,
i.e., a primitive (with respect to all variables) polynomial that does not depend
on and which divides all coefficients of
, and the third element being the
primitive part of .
The original polynomial
is then the product of these three parts. For example, FactorTermsList[9E
x^3 + 3E, x] returns 3, E, 1 + 3x^2.