|
| |
|
| A117433号 |
| 所有零件尺寸不同的n个平面分区的数量。 |
|
26
|
|
|
|
1, 1, 1, 3, 3, 5, 9, 11, 15, 21, 35, 41, 59, 75, 103, 149, 187, 243, 321, 413, 527, 735, 895, 1165, 1467, 1885, 2335, 2997, 3853, 4765, 5977, 7473, 9269, 11531, 14255, 17537, 22201, 26897, 33233, 40613, 50027, 60637, 74459, 89963, 109751, 134407, 162117, 195859
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0.4
|
|
|
评论
|
比赛A072706号对于n<10，因为单峰组合成不同的部分可以作为钩子唯一放置。从n=10开始，可以使用其他分区（从[4,3|2,1]和[4,2|3,1]开始）。
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
a（10）=35个严格平面分区（a=10）：
甲64 73 82 532 91 541 631 721 4321
.
9 54 63 72 432 8 53 71 431 7 43 52 61 421 6 42 51
1 1 1 1 1 2 2 2 2 3 21 3 3 3 4 31 4
.
7 6 5 43 42 5 41
2 3 4 2 3 3 3
1 1 1 1 1 2 2
.
4
三
2
1
（结束）
|
|
|
MAPLE公司
|
b： =proc（n，i）b（n，i）：=`if`（n=0，[1]，`if`）（i<1，[]，zip（（x，y）
->x+y，b（n，i-1），`if`（i>n，[]，[0，b（n-i，i-1，[]]），0））
结束时间：
g： =程序（n）g（n）：=`if`（n<2，1，（n-1）*g（n-2）+g（n-1
a： =程序（n）b（n，n）；添加（%[i]*g（i-1），i=1..nops（%））结束：
|
|
|
数学
|
prs2mat[prs_]：=表[Count[prs，{i，j}]，{i、Union[First/@prs]}，{j、Union[Plast/@prs]}]；
multsubs[set_，k_]：=如果[k==0，｛｛｝｝，Join@@Table[Prepend[#，set[[i]]&&@multsubs[Drop[set，i-1]，k-1]，{i，Length[set]}]]；
表[Length[Select[multsubs[Tuples[Range[n]，2]，n]，And[Union[First/@#]=Range[Max@@First/@@#]，Union[Last/@#]=Range[Max@@Last/@@#]，UnsameQ@@DeleteCases[Join@@prs2mat[#]，0]，And@@（OrderedQ[#，Greater]和/@prs2mat[#]），And@@](*古斯·怀斯曼2018年11月15日*）
zip[f_，x_List，y_List（列表），z_]：=使用[{m=Max（长度[x]，长度[y]]}），f[PadRight[x，m，z]，PadRight[y，m，z]]]；
b[n_，i_]：=b[n，i]=如果[n==0，{1}，如果[i<1，{}，zip[Plus，b[n、i-1]，如果[i>n，{}，连接[{0}，b[n-i，i-1]]，0]]；
g[n_]：=g[n]=如果[n<2，1，（n-1）*g[n-2]+g[n-1]]；
a[n_]：=与[{bn=b[n，n]}，和[bn[[i]]*g[i-1]，{i，1，长度[bn]}]；
|
|
|
交叉参考
|
囊性纤维变性。A001970号,A007716号,A068313号,A114736号,A120733号,A319646型,321645美元,A321652型,A321653型,321655英镑,A321659型,A321660型.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
