Series[(Cot[z])^4, {z, 0, 4}]