%I#18 2019年5月23日04:00:55

%S 4,5,6,6,7,8,7,9,10,11,8,8,13,9,14,15,16,10,9,17,11,19,20,21,10，

%电话：12,22,10,23,24,13,25,26,11,27,14,28,29,30,15,11,31,32,33,16,34,35，

%U 36,37,17,38,13,39,40,12,18,41,42,43,12,44,19,45,14,46,47,48

%N按递增顺序排列非平凡二项式系数C（m，k）（2<=k<=m/2）（不删除重复项）；记录m的顺序。

%C如果重复，m值按降序列出。因此，a（18）=16和a（19）=10对应于二项式（16,2）=二项式_罗伯特·伊斯雷尔，2018年9月18日

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%H Sean A.Irvine，<A href=“https://github.com/archmageirvine/joeis/blob/master/src/irvine/oeis/a022/A022911.java“>Java程序（github）

%F A319382（n）=二项式（a（n），A022912（n））_罗伯特·伊斯雷尔，2018年9月18日

%p N：=10000:#对于二项式（N，k）值<=N

%p分辨率：=空：

%当n*（n-1）/2<=n do

%p代表k从2到n/2do

%p v:=二项式（n，k）；

%p如果v>N，则打破fi；

%p Res:=Res，[v，n，k]

%日期：

%p Res:=排序（[Res]，proc（p，q），如果p[1]<>q[1]，则p[1]<q[1]

%p elif p[2]<>q[2]然后p[2]>q[2]

%p fi结束过程）：

%p映射（t->t[2]，Res）；#_罗伯特·伊斯雷尔，2018年9月18日

%Y参见A003015、A006987、A022912、A319382。

%K nonn公司

%O 1,1号机组

%百灵鸟金伯利_