sps[{}]:={{}};sps[set:{i_,___}]:=联接@@函数[s,前缀[#,s]和/@sps[Complement[set,s]]/@Cases[子集[set],{i,___}];
nrmmats[n_]:=Join@@Table[Table[Table[Position[stn,{i,j}][[1,1]],{i、d},{j,n/d}],{stn,Join@@Permutations/@sps[Tuples[{Range[d],Range[n/d]}]}],[d,Divisors[n]}];
颈垫Q[m_]:=m==第一个[Union@@Table[RotateLeft[m,{i,j}],{i;长度[m]},{j,长度[First[m]]}];
表[Length[Select[nrmmats[n],neckmatQ]],{n,6}]
|