A332281-OEIS公司

A332281型

运行长度不是单峰的n的整数分区数。

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 4, 6, 10, 16, 24, 33, 51, 70, 100, 137, 189, 250, 344, 450, 597, 778, 1019, 1302, 1690, 2142, 2734, 3448, 4360, 5432, 6823, 8453, 10495, 12941, 15968, 19529, 23964, 29166, 35525, 43054, 52173, 62861, 75842, 91013, 109208

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

抵消

0,13

如果正整数序列是弱递增序列和弱递减序列的串联，则该序列是单峰的。

链接

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

埃里克·魏斯坦的数学世界，单峰序列

例子

a（10）=1到a（15）=10分区：

(33211) (332111) (44211) (44311) (55211) (44322)

(3321111) (333211) (433211) (55311)

(442111) (443111) (443211)

(33211111) (3332111) (533211)

(4421111) (552111)

(332111111) (4332111)

(4431111)

(33321111)

(44211111)

(3321111111)

MAPLE公司

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

`如果`（i<1，0，加上（b（n-i*j，i-1，j，t和j>=m），

j=1..分钟（`if`（t，[][]，m），n/i））+b（n，i-1，m，t））

结束时间：

a： =n->组合[numbpart]（n）-b（n$2,0，true）：

seq（a（n），n=0..65）#阿洛伊斯·海因茨2020年2月20日

数学

unimodQ[q_]：=或[Length[q]<=1，如果[q[[1]]<=q[2]]，unimodQ[静止[q]]，有序q[反转[q]]]

表[Length[Select[Integer Partitions[n]！unimodQ[Length/@Split[#]]&]]，{n，0，30}]

（*第二个节目：*）

b[n_，i_，m_，t_]：=b[n，i，m，t]=如果[n==0，1，如果[i<1，0，和[b[n-i*j，i-1，j，t&&j>=m]，{j，1，最小值[If[t，无穷大，m]，n/i]}]+b[n、i-1，m，t]]；

a[n_]：=分区P[n]-b[n，n，0，True]；

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

交叉参考

补码按A332280.

这些分区的Heinz编号为A332282型.

相反的版本是A332639飞机.

单峰成分包括A001523号.

非单峰排列是A059204号.

非单峰成分为A115981号.

非单峰正态序列为A328509型.

囊性纤维变性。A007052号,A025065美元,A072706号,A100883号,A332283型,A332284型,A332286型,A332287型,A332579型,A332638型,A332640架,A332641飞机,A332642飞机.

上下文中的序列：A279715型 A132212号 A327047型*A241903型 A261204型 A374145型

相邻序列：A332278型 A332279型 A332280型*A332282 A332283型 A332284型

关键字

非n

作者

古斯·怀斯曼2020年2月19日

状态

经核准的