|
| |
|
| A201052号 |
| a（n）是可以从{1,2，…，n}中选择的最大整数数c，因此所有2^c子集都有不同的和。 |
|
4
|
|
|
|
1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
在基数为c的集合的子集的基数的计数2^c中，包含了空集（总和为0）；2^c是Pascal三角形中第c行的行和。
|
|
|
链接
|
T.霍瓦诺娃，重量拼图序列，SeqFan邮件列表2010年8月24日
|
|
|
例子
|
数字n和显示最大基数c=a（n）的{1..n}子集示例：
1, {1}
2, {1, 2}
3, {1, 2}
4, {1, 2, 4}
5, {1, 2, 4}
6, {1, 2, 4}
7, {3, 5, 6, 7}
8, {1, 2, 4, 8}
9, {1, 2, 4, 8}
10, {1, 2, 4, 8}
11, {1, 2, 4, 8}
12, {1, 2, 4, 8}
13, {3, 6, 11, 12, 13}
14, {1, 6, 10, 12, 14}
15, {1, 6, 10, 12, 14}
16, {1, 2, 4, 8, 16}
17, {1, 2, 4, 8, 16}
18, {1, 2, 4, 8, 16}
|
|
|
MAPLE公司
|
#L的任何子集都是由其总重量唯一决定的吗？
iswts:=进程（L）
局部wtset，s，c，subL，thiswt；
#权重总和必须是唯一的，这样就足以记住集合
wtset：={}；
#对L生成的所有权重子集进行循环
对于从1到nops（L）do的s
c：=组合[选择]（L，s）；
对于c do中的subL
#计算该子集中的权重和
thiswt:=添加（i，i=subL）；
#如果这个权重总和已经出现：不是候选人
如果wtset中有这个wt，那么
返回false；
其他的
wtset：=wtset联合{thiswt}；
结束条件：；
结束do：
结束do：
#所有不同的子集权重都不同：成功
返回true；
结束进程：
#主序列：给定克数1到n，确定子集L
#这样，该子集的每个子集具有不同的和。
重量：=程序（n）
局部s、c、L；
#从n（最大尺寸优先）到1选择尺寸，
#因此，根据拼图的要求，首先检测最大值。
s从n到1乘以-1 do
#s个不同g的子集的所有组合
c：=组合[选择]（[seq（i，i=1..n）]，s）；
对于c do中的L
#检查这些是否符合要求，如果是，打印
#然后返回
如果iswts（L），则
打印（n，L）；
返回nops（L）；
结束条件：；
结束do：
结束do：
打印（n，“-”）；
结束进程：
#具有最大n的权重的循环
从1到n do
重量（n）；
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
