A244395-OEIS公司

A244395号

n个分区的数量，其中最大和的频率为1，次大和的频率最多为2，第三大和的频次最多为3，依此类推。

三

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=0..2000时的n，a（n）表

例子

对于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）：

seq（a（n），n=0..60）#阿洛伊斯·海因茨2014年7月3日

数学

nend=20；

对于[n=1，n<=nend，n++，

计数[n]=0；

Ip=整数分区[n]；

对于[i=1，i<=长度[Ip]，i++，

m=最大值[Ip[[i]]]；

条件=真；

Tip=计数[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]；

a/@范围[0，60](*Jean-François Alcover公司2021年6月6日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A100471号,A100883号,A244393号,A295261型.

上下文中的顺序：A207890型 A008825号 A261629型*1978年2月 A333347飞机 A302592型

相邻序列：244392英镑 A244393号 A244394号*A244396号 A244397号 A244398号

关键词

非n

作者

大卫·S·纽曼，2014年7月3日

扩展

更多术语来自阿洛伊斯·海因茨2014年7月3日

状态

经核准的