%I#34 2020年4月12日05:32:07
%S 1,1,2,2,2,3,4,1,2,10,4,4,12,14,2,22,29,10,1,4,26,36,6,3,34100,
%电话:86,31,2,4,44148200,99,16,1,2,54230374278,78,8,6,58322680654,
%U 274,52,2,7444611221390814225,22,1,4,88573179627142058813136,10,4,8877826944927号
%N行读取的三角形:T(N,k)是N组成非零部分的数量,其中k部分后面紧跟着不同的部分,N>=0,0<=k<=A004523(N-1)。
%C与A238130相同,省略零。
%C行中的最后一个元素是1、1、2、2、1、4、2、1,6、2、1,8。。。带有g.f.-(x^6+x^4-2*x^2-x-1)/(x^6-2*x^3+1)。
%C对于n>0,也表示n与k+1的组合数_Gus Wiseman_,2020年4月10日
%H Joerg Arndt和Alois P.Heinz,<a href=“/A238279/b238279.txt”>n=0..180行,扁平</a>
%e三角形开始:
%e 00:1;
%e 01:1;
%e 02:2;
%e 03:2、2;
%e 04:3、4、1;
%e 05:2、10、4;
%e 06:4、12、14、2;
%e 07:2、22、29、10、1;
%e 08:4、26、56、36、6;
%e 09:3、34、100、86、31、2;
%e 10:4、44、148、200、99、16、1;
%e 11:2、54、230、374、278、78、8;
%e 12:6、58、322、680、654、274、52、2;
%e 13:2、74、446、1122、1390、814、225、22、1;
%e 14:4、88、573、1796、2714、2058、813、136、10;
%电子邮箱:4、88、778、2694、4927、4752、2444、618、77、2;
%电子邮箱:5、110、953、3954、8531、9930、6563、2278、415、28、1;
%e。。。
%e行n=5是2,10,4,因为在5的16个成分中
%e##:[组成]变更数量
%e 01:[1 1 1 1 1]0
%e 02:[1 1 1 2]1
%e 03:[1 1 2 1]2
%e 04:[1 1 3]1
%e 05:[1 2 1 1]2
%e 06:[1 2 2]1
%e 07:[1 3 1]2
%e 08:[1 4]1
%e 09:[2 1 1 1]1
%e 10:[2 1 2]2
%e 11:[2 2 1]1
%e 12:[2 3]1
%e 13:[3 1 1]1
%e 14:【3 2】1
%e 15:[4 1]1
%e 16:[5]0
%e有2个没有变化,10个有一个变化,4个有两个变化。
%p b:=proc(n,v)选项记住`如果`(n=0,1,展开(
%p加(b(n-i,i)*`如果`(v=0或v=i,1,x),i=1..n))
%p端:
%pT:=n->(p->seq(系数(p,x,i),i=0..度(p)))(b(n,0)):
%p序列(T(n),n=0..14);
%tb[n_,v_]:=b[n,v]=如果[n==0,1,展开[Sum[b[n-i,i]*如果[v==0|v==i,1,x],{i,1;T[n_]:=函数[{p},表[系数[p,x,i],{i,0,指数[p,x]}][b[n,0]];表[T[n],{n,0,14}]//Flatten(*_Jean-François Alcover_,2015年2月11日,以Maple命名*)
%t表[If[n==0,1,Length[Select[Join@@Permutations/@IntegerPartitions[n],Length[Split[#]]==k+1&]],{n,0,12},{k,0,If[n==0,0,Floor[2*(n-1)/3]]}](*_Gus Wiseman_,2020年4月10日*)
%Y列k=0-10给出:A000005(对于n>0)、2*A002133、A244714、A24471、A2447.16、A2441717、A2447、A244、718、A244.719、A244720、A244和721、A244722。
%Y行长度为A004523。
%Y行总和为A011782。
%Y相邻相等部分的计数版本为A106356。
%Y上升/下降版本为A238343。
%Y弱上升/下降的版本是A333213。
%Y按标准顺序排列的第k个组成具有A124762(k)个相邻相等部分、A124767(k)个最大游程、A333382(k)个相邻不相等部分和A333381(k)个最大反游程。
%Y参见A064113、A333214和A333216。
%K nonn,标签
%0、3
%A _Joerg Arndt_和_Alois P.Heinz,2014年2月22日
|