|
|
A046663号 |
| 三角形:T(n,k)=n(>=2)的分区数,其中没有等于k的子集(1<=k<=n-1)。 |
|
56
|
|
|
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 4, 3, 5, 3, 4, 4, 4, 4, 4, 4, 4, 7, 5, 7, 8, 7, 5, 7, 8, 7, 7, 8, 8, 7, 7, 8, 12, 9, 12, 9, 17, 9, 12, 9, 12, 14, 11, 12, 12, 13, 13, 12, 12, 11, 14, 21, 15, 19, 15, 21, 24, 21, 15, 19, 15, 21, 24, 19, 20, 19, 21, 22, 22, 21, 19, 20, 19, 24, 34, 23, 30, 24, 30, 25, 46, 25, 30, 24, 30, 23, 34
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2,4
|
|
链接
|
P.Erdős、J.L.Nicolas和A.sárközy,关于没有给定子项(I)的n的分区数,离散数学。,75(1989),155-166=离散数学年鉴。第43卷,图论与组合数学,1988年,B.Bollobas编辑。
|
|
例子
|
对于n=4,存在两个不包含等于1的分区(4,2+2)、两个不包含等于2的分区(4,3+1)和两个不包含等于3的分区(4,2+2)。
三角形T(n,k)开始于:
1;
1, 1;
2, 2, 2;
2, 2, 2, 2;
4, 3, 5, 3, 4;
4, 4, 4, 4, 4, 4;
7, 5, 7, 8, 7, 5, 7;
8, 7, 7, 8, 8, 7, 7, 8;
12, 9, 12, 9, 17, 9, 12, 9, 12;
...
第n=8行对以下分区进行计数:
(8) (8) (8) (8) (8) (8) (8)
(62) (71) (71) (71) (71) (71) (62)
(53) (53) (62) (62) (62) (53) (53)
(44) (44) (611) (611) (611) (44) (44)
(422) (431) (44) (53) (44) (431) (422)
(332) (422) (521) (422) (332)
(2222) (2222) (5111) (2222) (2222)
(332)
(结束)
|
|
MAPLE公司
|
g: =proc(n,i)选项记忆;
`如果`(n=0,1,`if`(i>1,g(n,i-1),0)+`如果`(i>n,0,g(n-i,i))
结束时间:
b: =proc(n,i,s)选项记忆;
`if`(s中的0或s中的n,0,`if`(n=0或s={},g(n,i),
`如果`(i<1,0,b(n,i-1,s)+`如果`(i>n,0,b(n-i,i,
选择(y->0<=y和y<=n-i,映射(x->[x,x-i][],s)))
结束时间:
T: =(n,k)->b(n,n,{最小(k,n-k)}):
seq(seq(T(n,k),k=1..n-1),n=2..16)#阿洛伊斯·海因茨2012年7月13日
|
|
数学
|
g[n_,i_]:=g[n,i]=如果[n==0,1,如果[i>1,g[n、i-1],0]+如果[i>n,0,g[n-i,i]];b[n_,i_,s_]:=b[n,i,s]=如果[MemberQ[s,0|n],0,如果[n==0|s=={},g[n,i],如果[i<1,0,b[n、i-1,s]+如果[i>n,0,b[n-i,i,选择[展平[s/.x_:>{x,x-i}],0<=#<=n-i&]]]];t[n,k_]:=b[n,n,{最小值[k,n-k]}];表[t[n,k],{n,2,16},{k,1,n-1}]//压扁(*让-弗朗索瓦·奥尔科弗2013年8月20日,翻译自枫叶*)
表[Length[Select[Integer Partitions[n],FreeQ[Total/@Subsets[#],k]&]],{n,2,10},{k,1,n-1}](*古斯·怀斯曼2023年10月11日*)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|