%我
%第0,1,2,4,8,14,24,41,661051652533835748471238179425733660,
%电话:51707245100871395919196262523571748342651218733116600,
%传真:15503820534327092835616946661060923779290610287641330777217164862207851
%N不包含1的分区数的平分(奇数部分)作为A002865的一部分。
%cA(n+1)=2n的分区p的个数,使得(p的部分数)是p的一部分,因为n>=0。-克拉克金伯利,2014年3月2日
%对于a href=<a1.7,共827页,共827页</a>
%F a(n)=p(2*n+1)-p(2*n),其中p是配分函数,a00041。-乔治•贝克,2011年8月14日
%p b:=proc(n,i)选项记忆;
%p如果n<0则为0
%p elif n=0然后1
%p elif i<2然后为0
%p其他b(n,i-1)+b(n-i,i)
%p fi公司
%p端:
%p a:=n->b(2*n+1,2*n+1):
%p seq(a(n),n=0..40);#u Alois p.Heinz_2010年12月1日
%t f[n_u]:=表[PartitionsP[2k+1]-PartitionsP[2k],{k,0,n}](*\u George Beck_2011年8月14日*)
%t(*也*)
%t表[Count[IntegerPartitions[2n],p_6;MemberQ[p,Length[p]]],{n,20}](*_ClarkKimberling_2014年3月2日*)
%t b[nˉ,iˉu]:=b[n,i]=其中[n<0,0,n==0,1,i<2,0,True,b[n,i-1]+b[n-i,i]];a[n_u]:=b[2*n+1,2*n+1];表[a[n],{n,0,40}](*.*Jean-François AlcoverΞu,2016年8月29日,在ΞAlois P.HeinzΜux之后)
%Y比照A000041、A002865、A058695、A135010、A138121、A182740、A182742、A182743、A182746。
%不,别紧张
%0.3度
%奥马尔E.波尔,2010年12月1日
%更多条款来自2010年12月1日的海因茨
|