|
|
|
|
#20通过阿洛伊斯·海因茨2021年5月11日星期二06:15:38 EDT |
|
|
|
#19通过Jean-François Alcover公司2021年5月11日星期二04:21:42 |
|
|
|
#18通过Jean-François Alcover公司2021年5月11日星期二04:21:35 EDT |
| 数学
|
(*第二个节目:*)
h[n_,s_]:=模[{i,m=n},Do[m=BitOr[m,i],{i,s}];{m} ];
g[n_,s_]:=函数[w,如果[w=={},s~并~{n},(s~补~w)~并~
h[n,w]]][选择[s,BitAnd[n,#]>0&]];
b[n_,i_,s_]:=b[n,i,s]=如果[n==0,如果[Length[s]>1,0,1],
如果[i<1,0,b[n,i-1,s]+b[n-i,Min[i,n-i],g[i,s]]];
a[n]:=b[n,n,{}];
a/@范围[0,50](*Jean-François Alcover公司2021年5月11日之后阿洛伊斯·海因茨*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#17通过N.J.A.斯隆2019年7月27日星期六14:57:51 EDT |
| 评论
|
两个正整数的二进制进位是1在其反向二进制中位置的重叠数字膨胀如果顶点为部分且边为二进制进位的图是连通的,则整数分区是二进制进位连通的。
|
|
|
讨论
|
7月27日星期六
| 14:57
| OEIS服务器: https://oeis.org/edit/global/2822
|
|
|
|
#16通过阿洛伊斯·海因茨美国东部时间2019年3月29日星期五13:05:12 |
|
|
|
#15通过阿洛伊斯·海因茨2019年3月29日星期五13:05:09 EDT |
| MAPLE公司
|
g: =(n,s)->(w->`if`(w={},s并集{n},s-减去w 联盟
联盟 h(n,w)))(选择(x->Bits[And](n,x)>0,s):
|
| 状态
|
经核准的
编辑
|
|
|
|
#14通过阿洛伊斯·海因茨2019年3月29日星期五13:04:02 EDT |
|
|
|
#13通过阿洛伊斯·海因茨2019年3月29日星期五13:03:59 EDT |
| MAPLE公司
|
b: =proc(n,i,s)选项记住`如果`(n=0, `如果`(无操作系统(秒)>1,0,,1),
`如果`(无操作系统(秒)>1,0,1), ``如果`(i<1,0,b(n,i-1,秒)+b条(n个-我,最小值(我,n个-我),克(我,秒)+))))
b(n-i,最小值(i,n-i),g(i,s))
|
| 状态
|
经核准的
编辑
|
|
|
|
#12通过阿洛伊斯·海因茨2019年3月29日星期五13:02:53 EDT |
|
|
|
#11通过阿洛伊斯·海因茨2019年3月29日星期五13:02:50 EDT |
| MAPLE公司
|
h: =proc(n,s)局部i,m;m: =n;
对于s中的i,do m:=位[或](m,i)od;{米}
结束时间:
g: =(n,s)->(w->`if`(w={},s并集{n},s-减去w
联合h(n,w)))(选择(x->Bits[And](n,x)>0,s):
b: =proc(n,i,s)选项记忆`如果`(n=0,
`如果`(nops(s)>1,0,1),`如果`(i<1,0、b(n,i-1,s)+
b(n-i,最小值(i,n-i),g(i,s))
结束时间:
a: =n->b(n$2,{}):
seq(a(n),n=0..50)#阿洛伊斯·海因茨2019年3月29日
|
| 状态
|
经核准的
编辑
|
|
|
|