|
|
A241036型 |
| 将n中的p划分为不同部分的数量,使得max(p)>=2*min(p)。 |
|
7
|
|
|
0, 0, 0, 1, 1, 1, 3, 3, 4, 6, 8, 9, 12, 15, 19, 23, 28, 33, 42, 49, 58, 70, 82, 97, 115, 134, 156, 182, 212, 245, 285, 328, 376, 434, 497, 568, 651, 742, 845, 962, 1090, 1236, 1401, 1584, 1788, 2019, 2273, 2556, 2875, 3227, 3618, 4055, 4538, 5074, 5670, 6327
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,7
|
|
链接
|
|
|
例子
|
a(11)对这9个分区进行计数:{10,1}、{9,2}、}8,3}、[2]、}7,3,1},{6,4,1}和{6,3,2]、{5,4,2]和{5,3,2,1}。
|
|
数学
|
z=70;f[n_]:=f[n]=选择[Integer Partitions[n],Max[Length/@Split@#]==1&];
表[计数[f[n],p_/;最大[p]<2*最小[p]],{n,0,z}](*A240874型*)
表[计数[f[n],p_/;最大[p]==2*最小[p]],{n,0,z}](*A241035型*)
表[计数[f[n],p_/;最大[p]>=2*最小[p]],{n,0,z}](*A241036型*)
表[计数[f[n],p_/;最大[p]>2*最小[p]],{n,0,z}](*A241037型*)
|
|
交叉参考
|
|
|
关键词
|
非n,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|