素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
ptnplane[n_]:=并集[Map[primeMS,Join@@Permutations/@facs[n],{2}]];
表[Sum[Length[Select[ptnplane[Times@@Prime/@y],And@@(LessEqual@@@Transpose[PadRight[#]/.(0->Infinity)])&]],{y,Integer Partitions[n]}],{n,10}]