%I#35 2017年4月22日23:26:12
%S 0,1,2,6,10,21,33,59,901452133284676849591361186625883490,
%电话47416311842211067145791941246303170340788520196631583891,
%电话:1060341331821670452083972596373218953984912956047257490800800
%N N的所有隔墙的均匀诱导部分之和。
%C也是n的所有分区的一半的楼层之和,因为对于一个分区,一种分区的和等于共轭分区的另一种分区之和。此外,这概括为取m个指数并除以m.-_George Beck,2017年4月15日
%H Alois P.Heinz,n的表格,n=1..1000时的a(n)</a>
%F a(n)=A066186(n)-A207381(n)=A207381(n)-A066897(n)。
%e对于n=5,写下5的分区和下面的分区,写下其均匀诱导部分的总和:
%e、。5
%e、。3+2
%e、。4+1
%e、。2+2+1
%e、。3+1+1
%e、。2+1+1+1
%e、。1+1+1+1+1
%e(电子)------------
%e。8 + 2 = 10
%e均匀诱导部分的总和为10,因此a(5)=10。
%e来自George Beck,2017年4月15日:(开始)
%e或者,将各部分的楼层总和除以2:
%e、。2
%e、。1+1
%e、。2+0
%e、。1+1+0
%e、。1+0+0
%e、。1+0+0+0
%e、。0+0+0+0+0
%e总和是10,所以a(5)=10。(结束)
%p b:=proc(n,i)选项记住;局部g,h;
%p如果n=0,则[1,0$2]
%p elif i<1,然后[0$3]
%p其他g:=b(n,i-1);h: =`if`(i>n,[0$3],b(n-i,i));
%p[g[1]+h[1],g[2]+h[3],g[3]+h[2]+i*h[1]
%功率因数
%p端:
%pa:=n->b(n,n)[2]:
%p序列(a(n),n=1..50);#_Alois P.Heinz,2012年3月12日
%t b[n,i_]:=b[n,i]=模块[{g,h},其中[n=0,{1,0,0},i<1,{0,0,0},True,g=b[n,i-1];h=如果[i>n,{0,0,0},b[n-i,i]];{g[[1]]+h[[1]],g[[2]]+h[3],g[[3]]+h[2]]+i*h[1]]}];a[n]:=b[n,n][2]];表[a[n],{n,1,50}](*_Jean-François Alcover_,2017年2月3日,在_Alois P.Heinz_*之后)
%t a[n]:=总计@扁平@商[Integer Partitions[n],2];
%t表[a[n],{n,1,50}](*乔治·贝克,2017年4月15日*)
%Y有关更多信息,请参见A206563。
%Y参见A066186、A066897、A06689、A181187、A194714、A206283、A207031、A20703、A207381。
%K nonn公司
%O 1,3
%2012年2月17日,A_Omar E.Pol_
%E更多条款,来自_Alois P.Heinz,2012年3月12日
|