|
| |
|
| 2015年3月 |
| n的整数分区数，其不同部分没有二进制包含。 |
|
13
|
|
|
|
1, 1, 2, 3, 4, 5, 8, 10, 12, 15, 18, 23, 28, 32, 41, 52, 57, 66, 76, 90, 99, 117, 131, 157, 172, 194, 216, 255, 276, 313, 358, 410, 447, 511, 546, 630, 677, 750, 818, 945, 990, 1108, 1200, 1338, 1429, 1606, 1713, 1928, 2062, 2263, 2412, 2725, 2847, 3142, 3389
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
如果第一个逆二进制展开式中的1的位置是第二个逆二进制扩展式中1的位置的子集，则一对正整数是二进制包含。
|
|
|
链接
|
|
|
|
例子
|
a（1）=1到a（8）=12分区：
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (21) (22) (41) (33) (43) (44)
(111) (211) (221) (42) (52) (53)
(1111) (2111) (222) (61) (422)
(11111) (411) (421) (611)
(2211) (2221) (2222)
(21111) (4111) (4211)
（111111）（22111）（22211）
(211111) (41111)
(1111111) (221111)
(2111111)
(11111111)
|
|
|
MAPLE公司
|
c： =proc（）选项记住；局部i，x，y；
x、 y：=映射（n->位[分割]（n），[参数]）[]；
对于i到nops（x）do
如果x[i]=1且y[i]=0，则返回假fi
od；真的
结束时间：
b： =proc（n，i，s）选项记忆`如果`（n=0，1，`如果`（i<1，0，
b（n，i-1，s）+`if`（ormap（j->c（i，j），s），0，加(
b（n-i*j，i-1，s并集{i}），j=1..n/i））
结束时间：
a： =n->b（n$2，{}）：
|
|
|
数学
|
binpos[n_]：=连接@@Position[Reverse[IntegerDigits[n，2]]，1]；
稳定Q[u_，Q_]：=！应用[Or，Outer[#1=！=#2&&Q[#1，#2]&，u，u，1]，{0，1}]；
表[Length[Select[Integer Partitions[n]，stableQ[#，SubsetQ[binpos[#1]，binpos[#2]&]&]]，{n，0，15}]
（*第二个节目：*）
c[args_List]：=c[args]=模块[{i，x，y}，{x，y{反转@整数位数[#，2]和/@args；对于[i=1，i<=长度[x]，i++，如果[x[i]]==1&y[[i]]==0，则返回[False]]]；正确]；
b[n_，i_，s_List]：=b[n，i，s]=If[n=0，1，If[i<1，0，b[n，i-1，s]+If[AnyTrue[s，c[{i，#}]&]，0，Sum[b[n-i*j，i-1，s~Union~{i｝]，{j，1，n/i｝]]]；
a[n]：=b[n，n，{}]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
