|
| |
|
| A330676型 |
| 原子覆盖正整数初始区间的重量为n且深度最大的平衡约化多系统的数目。 |
|
9
|
|
|
|
1, 1, 2, 8, 70, 1012, 21944, 665708, 26917492, 1399033348, 90878863352, 7214384973908, 687197223963640, 77354805301801012, 10158257981179981304, 1539156284259756811748, 266517060496258245459352, 52301515332984084095078308, 11546416513975694879642736152
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
平衡约化多系统或者是有限多集，或者是具有平衡约化多重系统的至少两个部分（并非所有部分都是单子）的多集划分。原子的重量是1，而多集的重量是其元素的重量之和。
如果有限多集覆盖正整数的初始区间，则它是正规的。
|
|
|
链接
|
|
|
|
例子
|
a（0）=1到a（3）=8多系统：
{} {1} {1,1} {{1},{1,1}}
{1,2} {{1},{1,2}}
{{1},{2,2}}
{{1},{2,3}}
{{2},{1,1}}
{{2},{1,2}}
{{2},{1,3}}
{{3},{1,2}}
|
|
|
数学
|
allnorm[n_]：=如果[n<=0，{{}}，函数[s，数组[Count[s，y_/；y<=#]+1&，n]]/@子集[Range[n-1]+1]]；
sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；
mps[set_]：=联合[Sort[Sort/@（#/.x_Integer:>set[[x]]）]&/@sps[Range[Length[set]]]；
totm[m_]：=前缀[Join@@Table[totm[p]，{p，选择[mps[m]，1<长度[#]<长度[m]&]}]，m]；
表[Sum[Length[Select[totm[m]，Depth[#]==If[n<=1，2，n]&]]，{m，allnorm[n]}]，{n，5}]
|
|
|
黄体脂酮素
|
（PARI）EulerT（v）={Vec（exp（x*Ser（dirmul（v，vector（#v，n，1/n）））-1，-#v）}
R（n，k）={my（v=向量（n），u=向量（n））；v[1]=k；对于（n=1，#v，对于（i=n，#v、u[i]+=v[i]*（-1）^（i-n）*二项式（i-1，n-1））；v=EulerT（v））；u}
seq（n）={concat（[1]，sum（k=1，n，R（n，k）*sum（R=k，n，二项式（R，k）*（-1）^（R-k））}\\安德鲁·霍罗伊德2020年12月30日
|
|
|
交叉参考
|
囊性纤维变性。A000669号,A001055号,A005121号,A005804号,A318812型,A330469型,A330474型,A330654型,A330664型,A330677型,A330679型.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
已批准
|
| |
|
|
