提出
已批准
编辑
b[n_,i_,t_]:=b[n,i,t]=如果[Abs[t]>n,0,如果[n==0,1,如果[i<1,0,b[n、i-1,t]+如果[i>n,0,b[n-i,i,t+2 Mod[i,2]]];
a[n]:=b[n,n,-2];
a/@范围[2,80](*Jean-François Alcover公司2020年12月10日之后阿洛伊斯·海因茨*)
a(10)=5:[9,1],[7,3],[5,5],[4,2,1,1,1,1],[3]。
a(11)=8:[8,1,1,1],[7,2,1,1],[6,3,1,1]。
Alois P.Heinz,<a href=“/A240011型/b240011型_1.txt“>n,a(n)表,n=2..1000</a>
OEIS服务器:以b240011.txt的形式安装了新的b文件。旧的b文件现在是b240011_1.txt。
``如果`(n=0,1,`如果`(i<1,0,b(n,i-1,t)+
``如果`(i>n,0,b(n-i,i,t+(2*irem(i,2)-1))))
b: =proc(n,i,t)选项记忆`如果`(abs(t)>n,0,
`如果`(n=0,1,`如果`(i<1,0,b(n,i-1,t)+
`如果`(i>n,0,b(n-i,i,t+(2*irem(i,2)-1))))
结束时间:
a: =n->b(n$2,-2):
seq(a(n),n=2..80);
偏移量为4,分区数为n,其中奇数部分数与偶数部分数之差为-2。