# How to prevent fractions in polynomial quotients?

(This was a hard question to give a succinct title to, so feel free to edit it.)

When I divide polynomials, I would like Mathematica to NOT create negative powers of variables. For example:

expr = c*(p^2) + p^4 + c^2 + 2*p + 3*c + 1;
PolynomialQuotientRemainder[expr, c*(p^2) + c, p]
PolynomialQuotientRemainder[expr, c*(p^2) + c, c]


Results:

$\left\{\frac{p^2}{c}-\frac{1}{c}+1,c^2+2 c+2 p+2\right\}$

$\left\{\frac{c}{p^2+1}+\frac{p^2}{p^2+1}+\frac{3}{p^2+1},p^4+2 p+1\right\}$

I don't want fractions with variables in the quotients.

Desired result:

$\left\{1,c^2+2 c+p^4+2 p+1\right\}$

How can I accomplish this?

• In:= PolynomialReduce[c*(p^2) + p^4 + c^2 + 2*p + 3*c + 1, c*(p^2) + c, {c, p}] Out= {{1}, 1 + 2 c + c^2 + 2 p + p^4} – Daniel Lichtblau Jan 13 '16 at 0:39

Daniel Lichtblau has supplied the answer in a comment: use PolynomialReduce, rather than PolynomialQuotientRemainder. As such:
PolynomialReduce[expr, c*(p^2) + c, {c, p}]