|
| |
|
| A182743号 |
| 不包含1作为奇数整数部分的分区表。 |
|
24
|
|
|
|
3, 5, 2, 4, 2, 2, 7, 3, 2, 2, 3, 2, 2, 2, 2, 6, 3, 2, 2, 2, 2, 5, 3, 3, 2, 2, 2, 2, 9, 4, 2, 2, 2, 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, 2, 2, 4, 3, 2, 2, 2, 2, 2, 2, 2, 2
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
数组开始：
3,2,2,2,2,2,2,2,2,2,2,
5,2,2,2,2,2,2,2,2,2,
4,3,2,2,2,2,2,2,2,2,
7,2,2,2,2,2,2,2,2,2,2,2,2，
3,3,3,2,2,2,2,2,2,2,
6,3,2,2,2,2,2,2,2,
5,4,2,2,2,2,2,2,2,
9,2,2,2,2,2,2,2,
5,3,3,2,2,2,2,2,2,
4,4,3,2,2,2,2,2,2,
8,3,2,2,2,2,2,2,
7,4,2,2,2,2,2,2,
6,5,2,2,2,2,2,2,
11,2,2,2,2,2,2,
4,3,3,3,2,2,2,2,2，
7,3,3,2,2,2,2,2,
6,4,3,2,2,2,2,2,
5,5,3,2,2,2,2,2,
10,3,2,2,2,2,2,
5,4,4,2,2,2,2,2,
9,4,2,2,2,2,2,
8,5,2,2,2,2,2,
7,6,2,2,2,2,2,
|
|
|
MAPLE公司
|
cmpL:=proc（a，b）局部i；对于i从1到min（nops（a），nops（b）），如果op（i，a）<op（i、b），则返回-1；elif op（i，a）>op（i、b）然后返回1；结束条件：；结束do；如果nops（a）>nops（b），则返回1；elif nops（a）<nops（b），然后返回-1；否则返回0；结束条件：；结束进程：
pShell最小值：=proc（p）局部idx，j；idx：=1；对于从2到nops（p）的j，如果cmpL（op（j，p），op（idx，p））＜0，则idx:=j；结束条件：；结束do；返回idx；结束进程：
A141285rowf:=进程（n）局部p；如果n<=1，则[n]；else psort：=[]；p:=组合[分区]（n）；当nops（p）>0时，做m：=pShellMin（p）；mmi:=最小值（op（op（m，p）））；如果mmi>1，则mma:=最大值（op（op（m，p）））；psort：=[op（psort），排序（op（m，p），`>`）]；结束条件：；p：=亚p（m=空，p）；结束do:psort；结束条件：；结束进程：
对于从1到17乘2的n，做shl:=A141285rowf（n）；对于shl-do中的r，对于r-do printf中的k（“%d，”，k）；结束操作：打印f（“\n”）；结束操作：打印f（“\n”）；结束do：#R.J.马塔尔2010年12月3日
|
|
|
交叉参考
|
|
|
|
关键字
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
