a={1};对于[n=1,n<=14,n++,k=i=j=1;M[i,j]=k++;对于[h=1,h<n,h++,如果[i==j==1,M[i,++j]=k++;对于[c=1,c<=h,c++,M[++i,j]=k++;M[i,--j]=k++],如果[j==1&&i!=1,M[++i,j]=k++;对于[c=1,c<=h,c++,M[i,++j]=k++];对于[c=1,c<=h,c++,M[--i,j]=k++],如果[i==1&j!=1,M[i,++j]=k++;对于[c=1,c<=h,c++,M[++i,j]=k++];对于[c=1,c<=h,c++,M[i,--j]=k++]]]];附加到[a,永久[表[M[i,j],{i,n},{j,n}]]];一