提出
经核准的
编辑
b[n]:=b[n]=如果[n<2,1,((3*(n-1))*b[n-2]+(1+2*n)*b[n-1])/(n+2)];
a[n]:=a[n]=和[b[j]*b[n-j],{j,0,n/2}]-如果[OddQ[n],0,函数[t,t*(t+1)/2][b[n/2]]];
表[a[n],{n,0,40}](*Jean-François Alcover公司2017年5月16日,之后阿洛伊斯·海因茨*)
模拟模拟属于A275166型用Motzkin数代替连通图计数。
0, 1, 2, 6, 14, 38, 96, 256, 672, 1805, 4846, 13162, 35874, 98469, 271384, 751656, 2089640, 5831451, 16325950, 45847770, 129106738, 364498596, 1031480792, 2925337352, 8313200232, 23668977163, 67507731786, 192859753310, 551821286374,1581188102590
b: =proc(n)选项记住`如果`(n<2,1,
((3*(n-1))*b(n-2)+(1+2*n)*b
结束时间:
a: =proc(n)选项记忆;加上(b(j)*b(n-j),j=0..n/2)-
`如果`(n::奇数,0,(t->t*(t+1)/2)(b(n/2))
seq(a(n),n=0..40)#阿洛伊斯·海因茨2016年7月19日
Alois P.Heinz,<a href=“/A275208型/b275208.txt“>n表,n=0..1000时为a(n)</a>
囊性纤维变性。A275207型,A026940美元.