TPISDC15 := (1+14*k-14*m)*z+(-49+140*m-420*k)*z^2+(-1218*m+721+2562*k)*z^3+(-5756*k+1520*m-2569)*z^4+(4201+4442*k-2382*m)*z^5+(-2976*k-724*m-1801)*z^6+(-1542*m+1929-698*k)*z^7+(-1542*k+1119-1116*m)*z^8+(-722*m+1329-1116*k)*z^9+(-722*k+919-320*m)*z^10+(521-102*m-320*k)*z^11+(211-20*m-102*k)*z^12+(-2*m+61-20*k)*z^13+(11-2*k)*z^14+z^15:

TPISDC15:=expand(TPISDC15/z):

st:=time():
ANS:=resultant(TPISDC15,diff(TPISDC15,z),z):
time()-st;