OEIS哀悼西蒙斯并感谢西蒙斯基金会对包括OEIS在内的许多科学分支研究的支持。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A006790号 树的指数,例如fA000055号(n-1)。 1
1, 2, 5, 15, 53, 211, 938, 4582, 24349, 139671, 858745, 5628789, 39145021, 287667582, 2226033629, 18082308403, 153770703339, 1365631349757, 12638233544989, 121640399661294, 1215438543434225, 12587691428792115 (列表图表参考历史文本内部格式)
抵消
0,2
链接
阿洛伊斯·海因茨,n=0..500时的n,a(n)表
MAPLE公司
使用(numtheory):
b: =proc(n)选项记忆`如果`(n<=1,n,加(加(d*
b(d),d=除数(j)*b(n-j),j=1..n-1)/(n-1))
结束时间:
t: =proc(n)选项记忆`如果`(n=0,1,b(n)-(加上(b(k)
*b(n-k),k=0..n)-`if`(irem(n,2)=0,b(n/2),0))/2)
结束时间:
g: =proc(n)选项记忆`如果`(n=0,1,添加(
二项式(n-1,j-1)*t(j-1)*g(n-j),j=1..n))
结束时间:
a: =n->g(n+1):
seq(a(n),n=0..30)#阿洛伊斯·海因茨2015年3月16日
数学
b[n_]:=b[n]=如果[n<=1,n,和[Sum[d*b[d],{d,除数[j]}]*b[n-j],{j,1,n-1}]/(n-1)];t[n_]:=t[n]=如果[n==0,1,b[n]-(总和[b[k]*b[n-k],{k,0,n}]-如果[Mod[n,2]==0、b[n/2],0])/2];g[n]:=g[n]=如果[n==0,1,和[二项式[n-1,j-1]*t[j-1]*g[n-j],{j,1,n}]];a[n]:=g[n+1];表[a[n],{n,0,30}](*Jean-François Alcover公司2015年3月30日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A000055号.
关键词
非n
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

最后修改时间:美国东部时间2024年6月5日04:27。包含373102个序列。(在oeis4上运行。)