编辑

经核准的

A003056号：=进程（n）

地板（平方米（1+8*n）-1）/2）；

结束进程：

nDiffParts:=进程（L）

nops（转换（L，集合））；

结束进程：

116608年：=进程（n，k）

局部a，L；

a:=0；

对于组合[分区]（n）do中的L

如果nDiffParts（L）=k，则

a:=a+1；

结束条件：；

结束do：

a；

结束进程：

经核准的

编辑

检验过的

经核准的

提出

检验过的

编辑

提出

nmax=30；T=Rest[系数列表[#，T]]和/@Rest[系数列表[-1+产品[1+T x^j/（1-x^j），{j，1，nmax}]+O[x]^（nmax+1），x]]；

表[n*T[[n]]，{n，1，nmax}]//展平(*Jean-François Alcover公司2018年5月19日*）

经核准的

编辑

检验过的

经核准的

提出

检验过的

编辑

提出

1;

4;

6,,三；

12,,8;

10,,25;

24,,36, 6;

14,,77, 14;

32,,104, 40;

27,,153, 90;

40,,220, 150, 10;

22,,297, 275, 22;

72,,348, 444, 60;

26,,481, 676, 130;

56,,616, 938, 280;

60,,660, 1455, 450, 15;

80,,880, 1872, 832, 32;

34,,1003, 2618, 1309, 85;

108, 1224, 3312, 2106, 180;

38,,1349, 4465, 3078, 380;

...

...

经核准的

编辑