n=0..1000时的n,a(n)表%F A182747 a(n)=p(2*n+1)-p(2*n),其中p是配分函数,a00041。-2011年8月14日,年8月14日,;%p A182747B:=proc(n,i)选项记住;;%p A182747 if n<0 the0 the0;%p A182747 if n<0 the0 the0;%p A182747 elif n=0 the0 the1;%p A182747 elif i<2然后0;%p A182747 elif i<2 the0;%p A182747 elb(n,i-1)+b(n-i,i);%p A182747 fi;%p A182747 fi;%p A182747结束:;%p A18274747 a:=n->b(2*2*2*b(2*b(2*b n+1,2*n+1):p A182747序列(a(n),n=0..40),2010年12月01日2010年12月01日2010年12月1日,%t A182747 f[n[u]:=Table[PartitionsP[2 k+1]-PartitionsP[2 k],{k,0,n}](*乔治.乔治.贝克,2011年8月14日,2011年8月14日*);%t A182747(*也*)。%t A182747表[计数[整数分割[2 n],p_/;MemBeq[p,Length[p]]],{n,20}](*U克拉克金柏林金伯利,2014年3月2日,2014年3月2日*),%t A182747474747%t A18274747%t A1827474747[计数[计数[计数7 b[nˉ,iˉ]:=b[n,i]=其中[n<0,0,n==0,1,i<2,0,真,b[n,i-1]+b[n-i,i]];a[n[uu]:=b[2*n+1,2*n+1];表[a[n],{n,0,40}](*_Jean-franco弗朗索瓦Alcover_,2016年8月29日,继_Aloisp.Heinz_*);%Y A182747 Cf.A000041,A002865,A058695,A135010,A135010,A138121,A182740,A182742,A182742,A182743,A182746.A182746.
%K A18282828282743,A182746.
%K A182747 A182747 A182746 747不,简单
%O A182747 0,3
%a A182747
%u Omar E.Pol,2010年12月1日
%E A182747更多条款来自_AloisP.Heinz,2010年12月1日
%E A182747更多条款