%I#40 2021年3月2日03:31:35

%S 1,5,16,491293418332029476011068251825688126661280169，

%电话：61389313738628937936232013133526072849755260580905128368080，

%电话：271153740571224871120029863125164832605264785310109936310342291550818647688470005

%N A126441或A161924中第N列的行和。

%C摘自德国电子报，2017年9月6日：（开始）

%C三角形A161919的行和。

%C a（n）=n个分区的高架桥编号之和。整数分区的高架路编号定义如下。考虑整数分区的费雷尔斯板的东南边界，并考虑通过将每个东阶梯替换为1而每个北阶梯（最后一个除外）替换为0而获得的二进制数。根据定义，相应的十进制形式是给定整数分区的高架桥编号。“Viabin”是由“via binary”创造的。例如，考虑5的整数分区[3,1,1]。费雷尔板块的东南边界产量为10011，通往19号高架桥。（结束）

%H Alois P.Heinz，n的表格，n=1..60的a（n）</a>

%e值8,9,6,11,15分别对应于1111211,22,31,4；所以a（4）=8+9+6+11+15=49。

%p with（combinet）：a:=proc（n）local ff，partovi:ff:=prog（X）local s:s:=[1，seq（0，j=1..X[2]）]：s:=map（convert，s，string）：return cat（op（s））end proc:partovi:=proc（p）local X，n，Y，i:X:=convert（p，multiset）：n:=X[-1][1]：Y:=map（proc（t）options操作符，箭头：t[1]end proc，X）：for i到n do if成员（i，Y）=false则X:=[op（X），[i，0]]end if end do:X:=排序（X，proc（s，t）选项运算符，箭头：evalb（s[1]<t[1]）end proc）：X:=映射（ff，X）；X:=cat（op（X））：n:=parse（X）：n==convert（n，decimal，binary）：（1/2）*n结束进程：add（partovi（partition（n）[j]），j=1。。numbpart（n））结束进程：seq（a（n），n=1。。27); # 子程序partovi（由于W.Edwin Clark）生成给定分区的高架桥编号。#_Emeric Deutsch，2017年9月6日

%p#第二个Maple程序：

%p b:=proc（n，i，l，r）选项记忆`如果`（n＝0，r，`如果`（i＞n，0，

%pb（n，i+1，l，r）+b（n-i，i$2，（（x->2*x+1）@@（i-l））（2*r））

%p端：

%pa:=n->b（n，1，0$2）：

%p序列（a（n），n=1..30）；#_Alois P.Heinz_，2021年3月1日

%tb[n_，i_，l_，r]：=b[n，i，l，r]=如果[n==0，r，如果[i>n，0，

%tb[n，i+1，l，r]+b[n-i，i，i；嵌套[2#+1&，2r，i-l]]]；

%t a[n]：=b[n，1，0，0]；

%t数组[a，30]（*_Jean-François Alcover_，2021年3月2日，在_Alois P.Heinz_*之后）

%Y参考A161924，A171429。

%K容易，不是

%O 1,2号机组

%A Alford Arnold，2009年12月12日

%E第九学期修正人：Alford Arnold，2010年1月22日

%E偏移量从2017年9月6日德国电子版改为1和a（17）-a（27）

%E a（28）-a（30）来自_Alois P.Heinz，2017年9月7日