A112956-OEIS公司

A112956号

a（n）=集合{1,2，…，n}可以分裂为具有相等和的适当子集的方法数。

0, 0, 1, 1, 1, 1, 5, 11, 10, 1, 79, 165, 1, 664, 2917, 3308, 9295, 23729, 31874, 301029, 422896, 1, 13716866, 71504979, 100664384, 54148590, 880696661, 498017758, 27450476786, 111911522818, 179459955553, 2144502175213, 59115423982, 45837019664551

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,7

对于n=7，我们有分裂761/5432、752/6431、743/6521、7421/653和7/61/52/43，因此a（7）=5。

a（n）=1<=>n*（n+1）/2是两个素数的乘积-阿洛伊斯·海因茨，2009年9月3日

链接

n=1..34时的n，a（n）表。

配方奶粉

a（n）=A035470型（n） -1-富兰克林·T·亚当斯-沃特斯2006年6月2日

MAPLE公司

with（numtheory）：b:=proc（）选项记住；局部i，j，t`如果`（args[1]=0，`if`（nargs=2，1，b（args[t]$t=2..nargs）），则添加（`if'（args[j]-args[nargs]<0，0，b（sort（[seq（args[2]-`if`）（i=j，args[nargs]，0），i=1..nargs-1）]）[]，args[nargs]-1）），j=1..nargs-1））结束：a:=proc（n）local i，m，x；m： =n*（n+1）/2；添加（b（i$（m/i），n）/（m/i！，i=[选择（x->x>=n，除数（m）减去{m}）[]]）结束：seq（a（n），n=1..25）#阿洛伊斯·海因茨2009年9月3日

数学

b[args_List]：=b[args]=如果[args[[1]]==0，如果[Length[args]==2，1，b[Rest[args]]]，总和[If[args[[j]]-args[[-1]]<0，0，b[Sort[Join[Table[args[[i]]-如果[i=j，args[-1]]，0]，{i，1，Length[args]-1}]]，{args[-1]]，长度[args]-1}]]；b[a1_List，a2_List]：=b[加入[a1，a2]；

a[n_]：=a[n]=与[{m=n*（n+1）/2}，和[b[Append[Array[i&，m/i]，n]]/（m/i）！，{i，选择[Divisors[m]~补码~{m}，#>=n&]}]]；

表[打印[“a（”，n，“）=”，a[n]]；a[n]，{n，1，25}](*Jean-François Alcover公司2017年3月22日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A035470型.

囊性纤维变性。A164977号,A164978号. -阿洛伊斯·海因茨2009年9月3日

上下文中的序列：A075261号 A254766号 A185201型*A258995型 A335554型 A157801号

相邻序列：112953英镑 A112954号 A112955号*112957英镑 A112958号 A112959号

关键词

非n

作者

楼层van Lamoen2005年10月7日

扩展

更多术语来自富兰克林·T·亚当斯-沃特斯2006年6月2日

a（19）-a（33）来自阿洛伊斯·海因茨2009年9月3日

a（34）来自阿洛伊斯·海因茨2016年8月6日

状态

经核准的