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
.
