|
| |
|
| A196723号 |
| {1..n}（包括空集）的子集数，使得不同元素的成对和都是不同的。 |
|
32
|
|
|
|
1, 2, 4, 8, 15, 28, 50, 86, 143, 236, 376, 594, 913, 1380, 2048, 3016, 4367, 6302, 8974, 12670, 17685, 24580, 33738, 46072, 62367, 83990, 112342, 149734, 198153, 261562, 343210, 448694, 583445, 756846, 976086, 1255658, 1607831, 2053186, 2610560, 3312040, 4183689
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
｛1..n｝的子集的数量，使得每对无序（不一定是不同的）元素都有不同的和A143823号（n） ●●●●。
|
|
|
链接
|
|
|
|
例子
|
a（4）=15:{}，{1}，}2，{3}，[4]，{1,2}，[1,3}。
|
|
|
MAPLE公司
|
b： =proc（n，s）局部sn，m；
m： =无；
sn:=[s[]，n]；
`如果`（n<1，1，b（n-1，s）+`如果`（m*（m+1）/2=nops（（{seq（seq(
sn[i]+sn[j]，j=i+1..m+1），i=1..m）}），b（n-1，sn），0））
结束时间：
a： =proc（n）选项记忆；
b（n-1，[n]）+`如果`（n=0，0，a（n-1））
结束时间：
seq（a（n），n=0..20）；
|
|
|
数学
|
b[n_，s_]：=b[n，s]=模[{sn，m}，m=长度[s]；sn=附加[s，n]；如果[n<1，1，b[n-1，s]+如果[m*（m+1）/2==长度[Union[Flatten[Table[sn[i]]+sn[[j]]，{i，1，m}，{j，i+1，m+1}]]，b[n-1，sn]，0]]；
表[Length[Select[Subsets[Range[n]]，UnsameQ@@Plus@@@子集[#，{2}]&]]，{n，0，10}](*古斯·怀斯曼2019年6月3日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
