搜索： a295261-编号：a295262
|
| |
|
|
A244395号
|
| n个分区的数量，其中最大和的频率为1，次大和的频率最多为2，第三大和的频次最多为3，依此类推。 |
|
+10
三
|
|
|
|
1, 1, 1, 2, 3, 4, 5, 8, 11, 15, 20, 26, 34, 46, 59, 78, 101, 129, 163, 209, 261, 329, 412, 517, 641, 798, 986, 1216, 1493, 1829, 2229, 2721, 3303, 4000, 4841, 5841, 7034, 8458, 10144, 12137, 14512, 17306, 20596, 24483, 29045, 34391, 40680, 48032, 56627, 66666
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
偏移
|
0,4
|
|
|
链接
|
|
|
|
例子
|
对于n=6，计算的分区为：6、51、42、411、321。
|
|
|
MAPLE公司
|
b： =proc（n，i，t）选项记忆`如果`（n=0，1，`如果`（i<1，0，
b（n，i-1，t）+加（b（n-i*j，i-1、t+1），j=1..分钟（t，n/i））
结束时间：
a： =n->b（n$2,1）：
|
|
|
数学
|
nend=20；
对于[n=1，n<=nend，n++，
计数[n]=0；
Ip=整数分区[n]；
对于[i=1，i<=长度[Ip]，i++，
m=最大值[Ip[[i]]]；
条件=真；
提示=理货[Ip[[i]]]；
对于[j=1，j<=长度[Tip]，j++，
condition=condition&&（提示[[j]][2]]<=j）]；
如果[condition，count[n]++（*；Print[Ip[[i]]*）]]；
]
表[count[i]，{i，1，nend}]
（*第二个节目：*）
b[n_，i_，t_]：=b[n，i，t]=如果[n==0，1，如果[i<1，0，
b[n，i-1，t]+和[b[n-i*j，i-1、t+1]，{j，1，最小[t，n/i]}]]；
a[n]：=b[n，n，1]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.007秒内完成
|
