%I#14 2019年4月27日05:22:18
%S 6,10,15,20,21,28,35,36,45,55,56,70,78,84,91105120126136,
%电话:153165171190210210220231252253276286300325330351364,
%电话:3784064354554646549549652856056159563066680703715741780792816820861903924
%N按排序顺序为2≤k≤m/2的二项式系数二项式(m,k)。
%C与A006987相反,此处不删除重复项。因此,120=二项式(10,3)=二项式(16,2)出现两次。
%H Robert Israel,<a href=“/A319382/b319382.txt”>n的表,a(n)表示n=1.-10000</a>
%F a(n)=二项式(A022911(n),A022912(n))。
%e前三项是二项式(4,2)=6,二项式。
%p N:=10^3:#获得项<=N
%p Res:=空:
%当n*(n-1)/2<=n do
%p代表k从2到n/2do
%pv:=二项式(n,k);
%p如果v>N,则打破fi;
%p分辨率:=分辨率,v
%日期:
%p排序([Res]);
%t M=10^3;
%t Reap[对于[n=2,n(n-1)/2<=M,n++,对于[k=2,k<=n/2,k++,v=二项式[n,k];如果[v>N,中断[]];Sow[v]]][[2,1]]]//排序(*_Jean-François Alcover_,2019年4月27日,来自Maple*)
%Y参考A003015、A006987、A022911(m值)、A022912(k值)。
%K nonn公司
%O 1,1号机组
%2018年9月18日以色列罗贝尔特
|