lynQ[q_]:=数组[Union[{q,RotateRight[q,#]}]=={q,旋转右[q,#]}&,长度[q]-1,1,And];
lynfac[q_]:=如果[Length[q]==0,{},函数[i,前缀[lynfac[Drop[q,i]],Take[q,i]][Last[Select[Range[Length[q]],lynQ[Take[q,#]]&]]];
colynQ[q_]:=数组[Union[{RotateRight[q,#],q}]=={Rotate Right[q,#],q}&,Length[q]-1,1,And];
colynfac[q_]:=如果[Length[q]==0,{},函数[i,前缀[colynfac[Drop[q,i]],Take[q,i]]@Last[Select[Range[Length[q]],colynQ[Take[q,#]]&]]];
表[Length[Select[Join@@Permutations/@Integer Partitions[n],Length[lynfac[#]]==Length[colynfac[#]]&]],{n,10}]