Mathematica中的因式分解

Question

我是Mathematica的新手，我需要一些帮助（对不起，如果它是微不足道的，但我还没有找到答案）。我有这个代码

K[Q_, n_Integer] :=   Module[{z, x},    SymmetricReduction[
     SeriesCoefficient[
      Product[ComposeSeries[Series[Q[z], {z, 0, n}], 
        Series[x[i] z, {z, 0, n}]], {i, 1, n}], n], 
     Table[x[i], {i, 1, n}], Table[Subscript[c, i], {i, 1, n}]][[1]]]

然后我称之为：

  K[ Sqrt[#]/Tanh[Sqrt[#]]&, 8] /. c->p

输出是p1，p2 ... p8（在这种情况下）中的多项式，系数写为分数（例如，23412/7538293）。我应该怎么做才能输出每个函数的分子和分母的主要因子分解（最好是分解分母的公约数）？ 谢谢！