%I#16 2016年1月6日12:24:17
%S 1,0,1,2,9,44265185414833434961133496114684570176214841,
%电话:229079293210930505146885203454806424727088681173385630596,
%电话:55608374257922632236882252812447092252298058927418214912027939670924944081326944682648063125696320334912
%N没有固定点的[N]排列p的数量,元素的循环位移受六个限制:p(i)<>i和。
%n≤13时,C a(n)=A000166(n)。
%p a:=n->`如果`(n=0,1,线性代数[永久](矩阵(n,(i,j)->
%p`if`(i≤j和(i-j mod n≤6或j-i mod n≥6),1,0)):
%p序列(a(n),n=0..16);
%t a[n_]:=如果[n==0,1,永久[Table[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日,改编自Maple*)
%Y参见A000166、A260074、A260081、A260092、A260094、A260091、A260115、A257953、A260216。
%Y参考A259779。
%K nonn公司
%0、4
%阿洛伊斯·海因茨,2015年7月16日
|