%I#31 2021年3月5日07:49:17
%S 0,1,1,2,1,2,1,1,3,2,1,3,2,1,3,2,2,4,3,3,2,2,2,1,4,33,2,2,1,5,4,3,
%温度3,3,2,3,2,2,1,5,4,3,4,4,2,33,2,2,2,1,6,5,5,4,1,4,3,3,2,
%U 4,3,3,2,2,2,1,6,5,4,5,5,4],4,4,3,1,3,4,2,3,2,2,2,1
%N行读取的三角形:T(N,k)=N的第k个分区中不包含1部分的部分数,分区按字典顺序排列。
%H Alois P.Heinz,<a href=“/A194548/b194548.txt”>第n=1..33行,扁平</a>
%H Tilman Piesk,A194602的<a href=“/A194602/A194602.txt”>表</a>,显示了非一加数。
%e写为三角形:
%e 0;
%e 1;
%e 1;
%e 2,1;
%e 2,1;
%e 3,2,2,1;
%e 3,2,2,1;
%e 4,3,3,2,2,1;
%e 4,3,3,2,3,2,2,1;
%e 5,4,4,3,3,2,3,2,2,2,2,1;
%e 5,4,4,3,4,5,2,3,3,3,1,2,2,2,1;
%e 6,5,5,4,4,4,3,4,3,3,3,3,2,4,3,1;
%e 6,5,5,4,5,4,4,3,4,4,4,3,3,3,1,2,4,3,1;
%p T:=proc(n)局部b,l;
%p b:=进程(n,i,t)
%p如果n=0,则l:=l,t
%p elif i>n那么
%p其他b(n-i,i,t+1);b(n,i+1,t)
%功率因数
%p端;
%p如果n<2,则0,否则l:=NULL;b(n,2,0);l fi(低频)
%p结束:
%p序列(T(n),n=1..15);#_Alois P.Heinz,2011年12月19日
%t t[n_]:=模块[{b,l},b[n0_,i_,t_]:=
%t如果[n0==0,l=Append[l,t],
%t如果[i>n0,b[n0-i,i,t+1];b[n0,i+1,t]];
%t如果[n<2,{0},l={};b[n,2,0];l] ];
%t表[t[n],{n,1,15}]//扁平(*_Jean-François Alcover_,2021年3月5日,在_Alois P.Heinz_*之后)
%Y行总和为A138135。第n行的长度为A187219(n)。
%Y参见A002865、A135010、A138121、A193173、A194546、A19454、A19459。
%K nonn,标签
%O 1,4型
%2011年12月11日,A_Omar E.Pol_
%E来自_Alois P.Heinz的更多条款,2011年12月19日
|