A244393-OEIS公司

A244393号

n的分区数，其中最大的部分称为m，出现一次，m-1最多出现两次，m-2最多出现三次，依此类推。

1, 1, 1, 2, 3, 4, 6, 9, 13, 17, 25, 33, 45, 61, 82, 106, 142, 183, 238, 306, 395, 499, 638, 804, 1014, 1268, 1586, 1967, 2447, 3018, 3721, 4566, 5598, 6827, 8328, 10108, 12257, 14812, 17884, 21508, 25856, 30980, 37076, 44261, 52776, 62768, 74578, 88407, 104681, 123703, 146018, 172019, 202445, 237830, 279087, 326991, 382706

(列表;图表;参考;听;历史;文本;内部格式)

抵消

0,4

链接

阿洛伊斯·海因茨，n=0..1000时的n，a（n）表

例子

对于n=6，计算的分区为6、51、42、411、321、3111

a（9）=17，这样9个分区是：

01: [ 3 2 2 1 1 ]

02: [ 4 2 1 1 1 ]

03: [ 4 2 2 1 ]

04: [ 4 3 1 1 ]

05: [ 4 3 2 ]

06: [ 5 1 1 1 1 ]

07: [ 5 2 1 1 ]

08: [ 5 2 2 ]

09: [ 5 3 1 ]

10: [ 5 4 ]

11: [ 6 1 1 1 ]

12: [ 6 2 1 ]

13: [ 6 3 ]

14: [ 7 1 1 ]

15: [ 7 2 ]

16: [ 8 1 ]

17: [ 9 ]

MAPLE公司

b： =proc（n，i，t）选项记忆`如果`（n=0，1，

`if`（i<1，0，b（n，i-1，` if`（t=1，1，t+1））+加法(

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）#阿洛伊斯·海因茨，2017年7月29日

数学

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++，

条件=条件&&（提示[[j]][2]]<=m-Tip[[j]][[1]]+1）]；

如果[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==1，1，t+1]]+总和[

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月5日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A244395号.

上下文中的序列：A240079型 A240727型 A123648号*286929英镑 A255525型 129632英镑

相邻序列：A244390型 A244391号 244392英镑*A244394号 A244395号 A244396号

关键字

非n

作者

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

扩展

更多术语来自乔格·阿恩特2014年7月3日

状态

经核准的