A094251-OEIS公司

A094251号

n个标记元素的所有集合分区之间的单元素转换数。

0, 0, 2, 18, 104, 580, 3282, 19236, 117672, 753048, 5041880, 35283402, 257718540, 1961679824, 15534932350, 127788932430, 1090212468512, 9632275777296, 88013486026710, 830637659785996, 8087069127986020, 81132805319035260, 837852685505824120, 8897619270153977254

(列表;图表;参考;听;历史;文本;内部格式)

抵消

0,3

链接

阿洛伊斯·海因茨，n=0..70时的n，a（n）表

例子

a（3）=18，因为n=3个元素的集合分区之间有18个单元素转换（[x，z，y，…]表示元素1属于集合x，元素2属于集合z，元素3属于集合y）：

[1, 1, 1] -> [1, 1, 2]; [1, 1, 1] -> [1, 2, 1]; [1, 1, 1] -> [1, 2, 2];

[1, 1, 2] -> [1, 1, 1]; [1, 1, 2] -> [1, 2, 1]; [1, 1, 2] -> [1, 2, 2];

[1, 1, 2] -> [1, 2, 3]; [1, 2, 1] -> [1, 1, 1]; [1, 2, 1] -> [1, 1, 2];

[1, 2, 1] -> [1, 2, 2]; [1, 2, 1] -> [1, 2, 3]; [1, 2, 2] -> [1, 1, 1];

[1, 2, 2] -> [1, 1, 2]; [1, 2, 2] -> [1, 2, 1]; [1, 2, 2] -> [1, 2, 3];

[1, 2, 3] -> [1, 1, 2]; [1, 2, 3] -> [1, 2, 1]; [1, 2, 3] -> [1, 2, 2];

MAPLE公司

a： =proc（m）局部b，r；

b： =proc（n，i，p，l）局部g，h，k；

如果i=0，那么如果n=0，则g:=l[1]；h： =l[2]；k： =l[3]+g+h；

r： =r+p*（g*（g-1）/2+g*（k-g）+h*（1+2*（k-1））+（m-g-2*h）*k）fi

else b（n，i-1，p，`if`（i<3，[0，l[]]，l））；

seq（b（n-i*j，i-1，p*n！/（i！）^j/（n-i*j）/j！，

`如果`（i＜3，[j，l[]]，[l[]+j]）），j＝1..n/i）

菲

结束；

r： =0；b（m，最大值（m，2），1，[0]）；第页

结束时间：

seq（a（n），n=0..25）#阿洛伊斯·海因茨2012年4月13日

数学

a[m_]：=模[{b，r}，b[n_，i_，p_，l_List]：=模块[{g，h，k}，如果[i==0，如果[n==0、g=l[1]；h=l[2]；k=l[[3]]+g+h；r=r+p（g（g-1）/2+g（k-g）+h（1+2（k-1））+（m-g-2h）k）]，b[n，i-1，p，If[i<3，前缀[l，0]，l]]；表[b[n-ij，i-1，pn！/（i！）^j/（n-ij）！/j！，如果[i<3，前缀[l，j]，l+j]]，{j，1，n/i}]]；r=0；b[m，最大[m，2]，1，{0}]；r] ；

a/@范围[0，25](*Jean-François Alcover公司2020年11月18日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A093694号,A093695号.

上下文中的序列：A267691型 A219758号 A005969号*A345969型 A101570型 A006043号

相邻序列：A094248号 A094249号 A094250型*A094252号 A094253号 A094254号

关键词

非n

作者

托马斯·维德，2004年4月25日

扩展

a（6）-a（23）来自阿洛伊斯·海因茨2012年4月12日

状态

经核准的