|
|
A088326号
|
| 三角形T(n,k)(n>=1,1<=k<=n)按行读取,给出了Piet Hut的“挂衣架”排列的数量:有n条边和k个连接组件的有根树的未标记森林,其中每个节点的伸出度<=2,对称组作用于组件。
(历史;已发布版本)
|
|
|
#14通过阿洛伊斯·海因茨2018年6月11日星期一14:29:23 EDT |
|
|
|
#13通过阿洛伊斯·海因茨2018年6月11日星期一10:16:26 EDT |
|
|
|
#12通过布鲁诺·贝塞利2018年6月11日星期一09:31:30 EDT |
|
|
|
#11通过Jean-François Alcover公司2018年6月11日星期一美国东部夏令时08:55:15 |
|
|
|
#10个通过Jean-François Alcover公司2018年6月11日星期一美国东部夏令时08:55:11 |
| 数学
|
g[n_]:=g[n]=如果[n<2,n,如果[OddQ[n],0,函数[t,t*(1-t)/2][g[n/2]]+和[g[i]*g[n-i],{i,1,n/2}]];
b[n_,i_,p]:=b[n,i,p]=如果[p>n,0,如果[n==0,1,如果[Min[i,p]<1,0,总和[b[n-i*j,i-1,p-j]*二项式[g[i+1]+j-1,j],{j,0,Min[n/i,p]}]];
T[n_,k_]:=b[n,n,k];
表[T[n,k],{n,1,14},{k,1,n}]//展平(*Jean-François Alcover公司2018年6月11日之后阿洛伊斯·海因茨*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#9通过阿洛伊斯·海因茨2017年9月11日星期一11:26:14 EDT |
|
|
|
#8通过阿洛伊斯·海因茨2017年9月11日星期一11:19:25 EDT |
|
|
|
#7通过阿洛伊斯·海因茨2017年9月11日星期一11:14:25 EDT |
| 链接
|
Alois P.Heinz,<a href=“/A088326号/b088326.txt“>行n=1..141,扁平</a>
|
|
|
|
#6通过阿洛伊斯·海因茨2017年9月11日星期一11:10:34 EDT |
| MAPLE公司
|
g: =proc(n)选项记忆`if`(n<2,n,`if`(n::奇数,0,
(t->t*(1-t)/2)(g(n/2)))+加(g(i)*g(n-i),i=1..n/2)
结束时间:
b: =proc(n,i,p)选项记忆`if`(p>n,0,`if`(n=0,1,
`如果`(min(i,p)<1,0,加上(b(n-i*j,i-1,p-j)*二项式(
g(i+1)+j-1,j),j=0..分钟(n/i,p))
结束时间:
T: =(n,k)->b(n$2,k):
seq(seq(T(n,k),k=1..n),n=1..14)#阿洛伊斯·海因茨2017年9月11日
|
| 状态
|
经核准的
编辑
|
|
|
|
#5通过查尔斯·格里特豪斯四世美国东部时间2013年5月10日星期五12:45:27 |
| 扩展
|
更多术语来自 _弗拉德塔·约沃维奇(弗拉德塔(自动变速箱)尤内.无线电),_,2003年11月6日
|
|
|
讨论
|
5月10日星期五
| 12:45
| OEIS服务器: https://oeis.org/edit/global/1911
|
|
|
|