I have a polynomial p(x) with integer coefficients and a prime p. I want to reduce the exponents of this polynomial mod p. So for example, if p(x) = 1 + x^3 + x^17 + x^19 and p is 17. Then I want Maple to output 1+x^3+1+x^2.

I know how to reduce the coefficients mod p, but not the exponents. Can someone suggest how I might go about doing this. Thank you very much for your help.