提出
经核准的
编辑
A[n_,k_]:=A[n,k]=如果[n==0,0,永久[表[If[Abs[i-j]>=k,1,0],{i,1,n},{j,1,n}]];
T[n_,k_]:=A[n,k]-A[n,k+1];
表[T[n,k],{n,0,14},{k,0,n/2}]//压扁(*Jean-François Alcover公司2019年5月1日,第二届枫叶计划*)
...
T(n,k)=邮编:306543(n,k)-邮编:306543对于n>0。
囊性纤维变性。A000166号,A001883号,A075851号,A075852号,A129118号,A130152号,邮编:306543.