#来自在线整数序列百科全书的问候!本次搜索:id:A108499 %S A1088949 展示1-1的1个1个;;%I A1084949;%S A1084949 0,0,0,1,0,0,2,1,1,0,2,1,3,3,3,6,7,10,14,19,26,26,33,45,58,58,77,971271271612055259326,26,;;%T A1084949 411510610106786969801119714821800216267677327539394247475749,;%U A1088949 69518309951912142591692424242424242424232392676773275394247475749,;%U A108;%U A12628402335593968746767551206478076110,89222 %N A108949 N的偶数部分多于奇数部分的分区数。 %C A108949 a(N)=A171966(N)-A045931(N)=A171967(N)-A108950(N)。-_Reinhard Zumkeller,2010年1月21日 %C A108949 a(n)=总和{k=-楼层(n/2)+(n mod 2)…-1}A240009(n,k)。-2014年3月30日, %H A108949 Alois P.Heinz,n=0..1000时的n,a(n)表%A108499 a(6)=3:{[6]、[4,2,2]、[2,2,2]};a(7)=3:{[4,2,1]、[3,2,2,2]、[2,2,2]、[2,2,2,1]}。;%p A108949与(combinat,partition):;%p A108949 evnbigrodd:=proc(n::nonnegint) %p A1088949当地的偶数,oddcount,bigcount,parts,i,j;;%p A108499 bigcount:=0;;%p A108499 bigcount:=0;;%p A108499 9 9 9 9 9 9 9 9 9 9 9 9 n);%p A108949 for i from 1 to nops(partitions)do %p A108949 evencount:=0; %p A108949奇数:=0; %p A108949用于从1到nops的j(分区[i])do %p A108949 if(op(j,partitions[i])mod 2<>0),则 %p A108949 oddcount:=oddcount+1 %p A108949 fi; %p A108949 if(op(j,partitions[i])mod 2=0)然后;%p A108499 fi;%p A108499均匀计数:=均匀计数+1;%p A1084949 fi;%p A1084949 fi;%p A1084949如果(evencount>oddcount)then;%p A108949 BiCount:=bigcount+1 %p A108949 fi;%p A1089449 fi;%p A1089449 od;;;%p A1089449返回(BI计数);%p A1089449 end proc;;%p A1089449终proc;;%p A108499 9 9 9 9 49顺序(evnbigrodd(i,i,i=1..42);%p;(p p p p p p p)p A10849A108949第二个枫树计划: %pA108499 b:=proc(n,i,t)选项记住;`如果`(n=0, %p A1084949 `如果(t<0,1,0),`如果(i<1,0,0,b(n,i-1,t,t)+;%p A108499 `如果`(i>n,0,b(n-i,i,t+(2*irem(i,2)-1(1(2))))的;%p A1084949结束: %p A1084949结束: %p A1088949结束:;%p A1084949 a:=n->b(n$2,0), %p A10849499 9 a:=n->b(n$2,0),(10 49序列(a(n),n=0..80);#u Alois p.Heinz ,2014年3月30日 %t A108949 p[n_9]:=p[n]=选择[整数分置[n],伯爵?OddQ]==计数?[p[n],{n,0,10}](*A045931*)(*分区n n withා奇数parts=#偶数部分#偶数部分*) %t A108499 TableForm[t](*分区,垂直格式*) %t A1084949表[长度[p[n]],{n,0,30}](*A045931*)(*A045931**)%t A108499(*美国彼得J.C.摩西年3月10日*) %t A108499 b[n[n U,i UU,t t t t t A1084949 b[n[n[n[n[n[n[n[n[_]:=b[n,i,t]=如果[n==0,如果[t<0,1,0],如果[i<1,0,b[n,i-1,t]+[[i>n,0,b[n-i,i,t+(2*Mod[i,2,2]]]]]];a[n n[uu]:=b[n,n,0];表[a[a[n],{n,0,80}](*u Jean-François Alcover_年11月2日,2015年11月2日,在Alois P.Heinz U*)之后,;%o A1088949(PARI)a(n)a(n)={nb=0;对于部分(P=n,nb+=(2#选择(选择(x->x->x->x#(选择(x->x->x->x:x%2,Vec(P)))<#P););nb;}\\\\\\\\\\ Michel Marcus,2015年11月2日 %Y a08949 Cf.A045931 for#偶数部分=#奇数部分,A108950偶数部分<奇数部分。 %Y A108949参见A171966,A130780。-_Reinhard Zumkeller,2010年1月21日 %K A108949 nonn %O A108949 0,5 %A A108949 Len Smiley_,2005年7月21日 %E A108949更多条款来自_JoergArndt_2012年10月4日 %K根据OEIS最终用户许可协议提供内容:http://OEIS.org/License