提出
经核准的
编辑
a[n]:=If[n==0,1,永久[表[If[i!=j&&(Mod[i-j,n]<=6||Mod[j-i,n]<=6),1,0],{i,1,n},{j,1,n}]];表[an=a[n];打印[“a(”,n,“)=”,an];an,{n,0,16}](*Jean-François Alcover公司2016年1月6日,改编自枫叶*)
没有不动点的[n]的置换数p和受约束的元素的循环位移6六:p(i)<>i和(i-p(i。
囊性纤维变性。A259779号.
囊性纤维变性。A000166号,A260074型,A260081型,A260092型,A260094型,60091加元,A260115型,A257953型, A260216型.
囊性纤维变性。A000166号,A260074型,A260081型,60092加元,A260094型,A260091型,A260115型, A257953型.