A240452-OEIS公司

A240452型

n的分区数p，使得（重数为1的部分之和）>=（所有其他部分之和。

1, 1, 1, 2, 3, 4, 6, 8, 13, 17, 22, 28, 43, 55, 71, 87, 124, 153, 202, 243, 332, 401, 511, 608, 828, 984, 1236, 1458, 1903, 2245, 2826, 3301, 4245, 4963, 6119, 7108, 9064, 10508, 12837, 14834, 18584, 21442, 26150, 30028, 37139, 42599, 51356, 58742, 72370

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

抵消

0,4

链接

n，a（n）的表，n=0..48。

配方奶粉

a（n）+A240449型（n）=A000041号（n）对于n>=0。

例子

a（6）统计这6个分区：6、51、42、411、321、3111。

数学

z=30；p[n_]：=p[n]=整数分区[n]；f[p_]：=f[p]=第一个[转座[p]]；

ColumnForm[t=表[Select[p[n]，2 Total[f[Select[#，Last[#]==1&]/。{}->{{0，0}}]]&[计数[#]]<n&]，{n，0，z}]]（*显示分区*）

地图[长度，t](*A240448型*)

ColumnForm[t=表[Select[p[n]，2 Total[f[Select[#，Last[#]==1&]/。{}->{{0，0}}]]&[Tally[#]]<=n&]，{n，0，z}]]（*显示分区*）

地图[长度，t](*A240449型*)

ColumnForm[t=表[Select[p[n]，2 Total[f[Select[#，Last[#]==1&]/。{}->{{0，0}}]]&[Tally[#]]==n&]，{n，0，z}]]（*显示分区*）

地图[长度，t](*A240447型交替使用0的*）

ColumnForm[t=表格[Select[p[n]，2总计[f[Select[#，Last[#]==1&]/。{}->{{0，0}}]]&[Tally[#]]>n&]，{n，0，z}]]（*显示分区*）

地图[长度，t](*A240451型*)

ColumnForm[t=表[Select[p[n]，2 Total[f[Select[#，Last[#]==1&]/。{}->{{0，0}}]]&[Tally[#]]>=n&]，{n，0，z}]]（*显示分区*）

地图[长度，t](*240452英镑*)

(*彼得·J·C·摩西2014年4月2日*）

交叉参考

囊性纤维变性。A240448型,A240447型,A240449型,A240451型,A000041号.

上下文中的顺序：A294342号 A094372号 A039880型*A263359型 A246905型 A000029号

相邻序列：A240449型 A240450型 A240451型*A240453型 240454英镑 240455英镑

关键词

非n,容易的

作者

克拉克·金伯利2014年4月5日

状态

经核准的