#来自在线整数序列百科全书的问候!http://oeis.org/; 搜索:id:a240012 正在展示1-1的1个1 ;%I a240012;%S a240012 1,0,0,1,1,1,2,2,2,4,4,4,6,8,10,14,17,17,23,27,38,43,43,59,69,91106106139162207,;;%T a240012 245162207,;%T a240012 245209364449495346505734713341341592182188722526526526523155,;%U a240012 3700543915151960757086474797201124325325325325325334133159218218872255126523126523155,;%U a240012 21505179782096524272 %N a240012 N的分区数,其中奇数部分数与偶数部分数之差为3。 %C A240012,偏移6个分区数n,其中奇数部分数与偶数部分数之差为-3。 %H A240012 Alois P.Heinz,n=3..1000的n,a(n)表%p A240012 b:=proc(n,i,t)选项记得;`如果`(abs(abs(t)>n,0,0,;%p A240012 `如果(n=0,1,`如果`(i<1,0,b(n,i-1,1,t)+;p A240012 ` if `(i>n,0,b(n-i,i,i,t+(2*irem(i,2,2)-1(1(1))));%p A240012终点: %p A240012 a:;%p A240012 a:=n->b(n$2,-1,3): %p A240012 a:=n->b(n$2,-3):(10,—3):(i>n n;%p A240012序列(a(n),n=3..80); %t A240012 b[n_u,i_u,t]:=b[n,i,t]=如果[abs[t]>n,0,如果[n==0,1,如果[i<1,[[n,i-1,t]+如果[i>n,0,b[n-i,i,i,t+2 Mod[i,2]-1]1]]]]; %t A240012 a[n[n[u]:=b[n,n,-3]; %t A240012a/@范围[3,80](*\u Jean-franco弗朗索瓦Alcover_2020年12月10日,2020年12月10日,在Alois P.Heinz U*)之后,;%Y A240012列k=3列A240009的3.20年12月10日,k=3.A240009的3. %k A240012非10.非10非10.范围[10.范围[10.20.A240012 3,5%a A240012海因茨,2014年3月30日 #内容根据OEIS最终用户许可协议提供:http://OEIS.org/License