%I#13 2014年1月10日10:36:44
%S 0,0,0,1,2,4,7,13,24,43,7814125345581468263747348495,
%电话:1524727361490948809315806328359950884091295616380032938861,
%电话:5272795946022716973125304523805463617498025512175872397315541228566127763
%N受限分区。
%C组分数n=p(1)+p(2)++p(m),其中p(1)=5,p(k)<=2*p(k+1),参见示例。[_Joerg Arndt_,2012年12月18日]
%D Minc,H。;划分中的一个问题:自由交换熵循环群中给定度元素的枚举。程序。爱丁堡数学。Soc.(2)11 1958/1959 223-224。
%H Shimon Even和Abraham Lempel,<a href=“http://dx.doi.org/10.1016/S0019-9958(72)90149-0“>特征和条件所有解的生成和枚举,《信息与控制》21(1972),476-482。
%e摘自Joerg Arndt_2012年12月18日:(开始)
%e有a(10)=13组分10=p(1)+p(2)++p(m),其中p(1)=5,p(k)<=2*p(k+1):
%e[1][5 1 1 1 1 1]
%e[2][5 1 1 1 2]
%e[3][5 1 1 2 1]
%e[4][5 1 2 1 1]
%e【5】【5 1 2 2】
%e【6】【5 2 1 1 1】
%e【7】【5 2 1 2】
%e[8][5 2 2 1]
%e[9][5 2 3]
%e[10][5 3 1 1]
%e[11][5 3 2]
%e[12][5 4 1]
%e[13][5 5]
%e(结束)
%pv:=proc(c,d)选项记忆;局部i;如果d<0或c<0,则0 elif d=c,然后1加上(v(i,d-c),i=1..2*c);fi;结束;[序列(v(5,n),n=1..50)];
%tv[c_,d_]:=v[c,d]=如果[d<0|c<0,0,如果[d==c,1,总和[v[i,d-c],{i,1,2*c}]];表[v[5,n],{n,1,40}](*_Jean-François Alcover_,2014年1月10日,翻译自Maple*)
%Y参考A002572、A002573、A049284、A002574。
%K nonn,简单
%O 1,7型
%A _N.J.A.Sloane,迈克尔·索莫斯
|