|
| |
|
| A213385型 |
| a（n）=分区n^1的细化次数。
（原名N0320）
|
|
6
|
|
|
|
1, 2, 3, 7, 15, 43, 131, 468, 1776, 7559, 34022, 166749, 853823, 4682358, 26720781, 161074458, 1004485751, 6576974188, 44322716809, 311440019349, 2247888977510, 16819336465164, 128915407382036, 1021269823516449, 8261243728564640, 68848043979970646
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
考虑中定义的分区的排序偏序集L（n）A002846号.那么a（n）是所有长度为0.1，…，的路径总数，。。。，n-1开始于n^1，结束于偏序集中的节点。
|
|
|
参考文献
|
N.J.A.Sloane，《整数序列手册》，学术出版社，1973年（包括该序列）。
|
|
|
链接
|
R.K.Guy，致N.J.A.Sloane的信，1971年6月24日：前面,后面[经允许的带注释扫描副本]参见标有H的序列。
|
|
|
例子
|
参考中示例中所示的排名偏序集L（5）A002846号，有15条路径从ooooo开始：
终点/路径数
哦哦/1
哦哦/1
哦哦/1
不不不/2
o oo oo/2
o o o o o/4个
o o o o o/4
总计a（5）=15。
|
|
|
MAPLE公司
|
b： =proc（l）选项记住；局部n，i，j，t；n： =nops（l）；
`如果`（l[n]=1和{l[1..n-1][]}减去{0}={}，1，
add（`if`（l[i]=0，0，add（`if`（l[j]=0或i=j且l[j]<2，0，
b（[seq（`if`（t>n，0，l[t]）-`if`，
1，`如果`（t=i+j，-1，0）），t=1..最大值（n，i+j）]），j=i.n）），i=1..n））
结束时间：
g： =进程（n，i，l）
`如果`（n=0且i=0，b（l），`如果`（i=1，b（[n，l[]]），加上（g（n-i*j，i-1，
`如果`（l=[]且j=0，l，[j，l[]]），j=0..n/i）））
结束时间：
a： =n->g（n，n，[]）：
|
|
|
数学
|
b[l_List]：=b[l]=模块[{n，i，j，t}，n=长度[l]；如果[l[[n]]==1&&Union[l[[1；；n-1]]~Complement~{0}=={}，1，Sum[If[l[i]]==0，0，Sum[If[1[[j]]==0||i==j&l[j]]<2，0，b[表[If[t>n，0，l[t]]]-其中[t=i&t==j，2，t=i|t=j，1，t==i+j，-1，True，0]，{t，1，最大值[n，i+j]}]]，{j，i，n}]]；g[n_，i_，l_List]：=如果[n==0&&i==0，b[l]，如果[i==1，b[Join[{n}，l]]，和[g[n-i*j，i-1，如果[l=={}&j==0、l，Join[[j}，l]]]，{j，0，n/i}]]；a[n]：=g[n，n，{}]；表[a[n]，{n，1，25}](*Jean-François Alcover公司2015年2月26日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
