%I#4 2012年3月30日18:54:34
%S 1,1,0,4,0,36,0576,014400,0518400,025401600,01625702400,0,
%电话:131681894400,013168189440000,01593350922240000,0,
%电话:229442532802560000,03877578043632640000,07600054456551997440000,0
%N a(N)=零和一的N X N矩阵M的永久性,定义如下:如果我们将M的行串联成长度为N^2的向量v,则仅当i=1或2的倍数时,v_i=1。
%F a(1)=a(2)=1,对于n>2:如果n=2*k,a(n)=0^如果n=2*k+1.-,则为2Herman Jamke(hermanjamke(AT)fastmail.fm),2007年5月14日
%o(PARI)permRWNb(a)=n=材料尺寸(a)[1];如果(n==1,返回(a[1,1]));sg=1;in=矢量v(n);x=英寸;x=a[,n]-总和(j=1,n,a[,j])/2;p=触头(i=1,n,x[i]);对于(k=1,2^(n-1)-1,sg=-sg;j=估值(k,2)+1;z=1-2*英寸[j];单位[j]+=z;x+=z*a[,j];p+=触头(i=1,n,x[i],sg);return(2*(2x(n%2)-1)*p)A110947(n)=如果(n==2,1,if(n%2,(n-1)/2)^2) 对于(n=1,42,a=矩阵(n,n,i,j,1-((i-1)*n+j)%2);a[1,1]=1;打印1(permRWNb(a)“,”),用于(n=1,42,打印1(A110947(n)”,“))-Herman Jamke(hermanjamke(AT)fastmail.fm),2007年5月14日
%Y奇数索引项与A001044相同。
%K nonn公司
%O 1.5
%A _西蒙·塞韦里尼,2005年9月25日
%E由Herman Jamke(hermanjamke(AT)fastmail.fm)更正和扩展,2007年5月14日
|