检验过的
经核准的
提出
编辑
dmax=12;
mmax=2^(dmax+3);
col[k_]:=col[k]=选择[Range[mmax],Divisible[k^#+1,#]&];
A[n_,k_]:=如果[n>2&&k==1,0,col[k][[n]]];
表[A[n,d-n+1],{d,1,dmax},{n,1,d}]//展平(*Jean-François Alcover公司2021年1月5日*)
囊性纤维变性。A333432飞机.
方阵A(n,k)开始:
Alois P.Heinz,<a href=“/A333429/b333429.txt“>反对角线n=1..20,扁平</a>