搜索： a336032-编号：a336033
|
| |
| |
|
|
|
1, 0, 2, 2, 2, 3, 5, 4, 7, 7, 13, 16, 19, 23, 33, 34, 44, 58, 63, 80, 101, 112, 139, 171, 196, 234, 288, 328, 394, 478, 545, 658, 777, 881, 1050, 1236, 1414, 1666, 1936, 2216, 2592, 3018, 3428, 3992, 4604, 5243, 6069, 6986, 7951, 9139, 10447, 11892, 13625
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
|
|
|
链接
|
|
|
|
示例
|
a（2）=2到a（9）=7分区：
(2) (3) (4) (5) (6) (7) (8) (9)
(11) (111) (1111) (32) (33) (43) (44) (54)
(11111) (42) (52) (53) (63)
(222) (1111111) (62) (72)
(111111) (2222) (432)
(3311) (222111)
(11111111) (111111111)
（结束）
|
|
|
MAPLE公司
|
b： =proc（n，i，p，m）选项记忆`如果`（n=0，1，
`如果`（i<1，0，b（n，i-1，p，select（x->x<i，m））+
将（‘if’（i＝m中的j或i或p中的j，0，b（n-i*j，i-1，
选择（x->x<=n-i*j，p联合{i}），
选择（x->x<i，m联合{j}）），j=1..n/i）））
结束时间：
a： =n->b（n$2，{}$2）：
|
|
|
数学
|
b[n_，i_，p_，m_]：=b[n，i，p，m]=如果[n==0，1，如果[i<1，0，b[n、i-1，p，选择[m，#<i&]]+求和[If[i==j||MemberQ[m，i]||MemberQ[p，j]，0，b[n-i*j，i-1，选择[p~并集~{i}，#<=n-i*j&]，选择[m~并集{j}，#<i&]]，{j，1，n/i}]]]；a[n]：=b[n，n，{}，{}]；表[a[n]，{n，0，40}](*Jean-François Alcover公司2017年2月5日之后阿洛伊斯·海因茨*)
表[Length[Select[Integer Partitions[n]，Intersection[#，Length/@Split[#]]=={}&]]，{n，0，30}](*古斯·怀斯曼2019年4月2日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 1, 0, 0, 4, 3, 4, 0, 5, 1, 70, 120, 122, 130, 446, 0, 277, 726, 370, 1064, 13751, 38913, 41272, 81168, 137014, 84448, 300642, 490540, 517806, 341033, 1467180, 425328, 2403512, 2916863, 4455856, 39855808, 164203236, 216675811, 447273890, 730795760, 1154455982
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,5
|
|
|
链接
|
|
|
|
MAPLE公司
|
b： =proc（n，i，p，f，g）选项记忆`如果`（n=0，`if`（f=g，p！，0），
`如果`（i<1，0，加上（b（n-i*j，i-1，p+j，`如果`（j=0，f，{f[]，i}），
`如果`（j=0，g，{g[]，j}））/j！，j=0..n/i））
结束时间：
a： =n->b（n$2，0，{}$2）：
seq（a（n），n=0..32）；
|
|
|
数学
|
b[n_，i_，p_，f_，g_]：=b[n，i，p，f，g]=如果[n==0，如果[f==g，p！，0]，
如果[i<1，0，总和[b[n-i*j，i-1，p+j，
如果[j==0，f，联合@附加[f，i]]，
如果[j==0，g，联合@附加[g，j]]/j！，{j，0，n/i}]]；
a[n]：=b[n，n，0，{}，{}]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
