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]}];
apromatQ[m_]:=取消命名Q@@Join@@Table[RotateLeft[m,{i,j}],{i、Length[m]},{j、Length[First[m]]}];
表[Length[Select[nrmmats[n],apermatQ]],{n,6}]
|