搜索： 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=j或i in m或j in p，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、44555856、39855808、164203236、216675811、447273890、730795760、11544555882
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
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.006秒内完成
|
