A240447-OEIS公司

A240447型

2n的分区数，使得（重数为1的部分之和）=所有其他部分之和。

1, 0, 1, 1, 3, 2, 8, 5, 18, 19, 39, 34, 105, 74, 183, 202, 381, 344, 818, 684, 1459, 1499, 2662, 2578, 5279, 4756, 8835, 9287, 15655, 15538, 28319, 27178, 46709, 49166, 78303, 80747, 135134, 134945, 216255, 231483, 353557, 369918, 581337, 600500, 915010, 987925 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,5`
	评论	`2n+1的分区数，使得（重数为1的部分之和）=所有其他部分之和为0；参见Mathematica程序A240448型用于相关序列。`
	链接	`阿洛伊斯·海因茨，n=0..650时的n、a（n）表（Manfred Scheucher的前64个术语）` `Manfred Scheucher，C代码`
	例子	`a（6）计算12的这8个分区：633、6222、62211、6111111、5331、52221、4332、42111111。`
	MAPLE公司	`f:=过程（L，p）` `a:=0；` `因为我在L do` `如果i=p，则` `a:=a+1；` `结束条件：；` `结束do:` `a；` `结束进程：` `sp1:=过程（L）` `a1:=0；` `ao:=0；` `因为我在L do` `如果f（L，i）=1，则` `a1:=a1+i；` `其他的` `ao:=ao+i；` `结束条件：；` `结束do:` `如果（a1=ao），则` `真；` `其他的` `虚假；` `结束条件：；` `结束进程：` `A240447型：=进程（n）` `a:=0；` `对于组合[分区]（2n）do中的p` `如果sp1（p），那么` `a:=a+1；` `结束条件：；` `结束do:` `a；` `结束进程：#R.J.马塔尔2015年3月6日` `#第二个Maple项目：` b： =proc（n，i，s）选项记忆`if`（n=0，`if`（s=0，1，0）， `如果`（i<1或s>0且i（i+1）/2<s或abs（s）>n，0，加（b（n-ij，i-1，s+`如果`（j=1，-ij）），j=0..n/i）） `结束时间：` `a： =n->b（2*n$2,0）：` `seq（a（n），n=0..70）#阿洛伊斯·海因茨2015年5月31日`
	数学	`ColumnForm[t=Table[Select[Integer Partitions[n]，2 Total[First[Transpose[Select[#，Last[#]==1&]/。{}->{{0，0}}]]&[计数[#]]==n&]，{n，0，30，2}]]（显示分区）` `地图[长度，t](A240447型) (彼得·J·C·摩西2014年4月2日）` `b[n_，i_，s_]：=b[n，i，s]=如果[n==0，如果[s==0，1，0]，如果[i<1\|\|s>0&&i（i+1）/2<s\|\|Abs]>n，0，总和[b[n-ij，i-1，s+如果[j==1，-i，ij]]，{j，0，n/i}]]；a[n]：=b[2n，2n，0]；表[a[n]，{n，0，70}](Jean-François Alcover公司2015年10月28日之后阿洛伊斯·海因茨*)`
	交叉参考	`囊性纤维变性。A240448型,A240449型,A240451型,A240452型。` `上下文中的序列：A336478型 A322845型 A307705型A135992号 A182638号 A172084号` `相邻序列：A240444型 240445美元 A240446型A240448型 A240449型 A240450型`
	关键词	`非n,容易的`
	作者	`克拉克·金伯利2014年4月5日`
	扩展	`更多术语来自曼弗雷德·舒彻2015年5月30日`
	状态	`经核准的`