%I#19 2020年12月26日11:09:30
%S 0,1,0,1,2,3,7,11,26,52120266401509370290902278157452,
%电话:14678337357978342255061166902421763385546705333124227015,
%电话:331757697889207207239147824764518804151745721472947363110968
%N具有N个节点的中心6价树的数量。
%H E.M.Rains和N.J.A.Sloane,<A href=“https://cs.uwaterloo.ca/journals/JIS/cayley.html“>关于Cayley的烷烃(或4-价树)计数,J.Integer Sequences,Vol.2(1999),Article 99.1.1。
%H<a href=“/index/Tra#trees”>为与树相关的序列索引条目</a>
%F a(n)=A036653(n)-A036652(n)。
%t n=20;(*来自Rains和Sloane的算法*)
%tS5[f,h,x_]:=f[h,x]^5/120+f[h、x]^3f[h和x^2]/12+f[h]^2f[h的,x^3]/6+f[h,x]f[h;
%t S6[f_,h,x_]:=f[h,x]^6/720+f[h,x]^4 f[h,x^2]/48+f[h,x]^3 f[h,x^3]/18+f[h,x]^2 f[h,x^2]^2/16+f[h,x]^2 f[h,x^4]/8+f[h,x]f[h,x^2]f[h,x^3]/6+f[h,x]f[h,x^5]/5+f[h,x ^2]^3/48+f[h,x^2]f[h,x^4]/8+f[h,x^3]^2/18+f[h,x^6]/6;
%tT[-1,z_]:=1;T[h_,z_]:=T[h,z]=表[z^k,{k,0,n}]。取[系数表[z^(n+1)+1+S5[T,h-1,z]z,z],n+1];
%t总和[Take[CoefficientList[z^(n+1)+S6[t,h-1,z]z-S6[t,h-2,z]z-(t[h-1,z]-t[h-2,z])(t[h-1,z]-1),z],n+1],{h,1,n/2}]+PadRight[{0,1},n+1)(*_Robert A.Russell_,2018年9月15日*)
%Y参考A036652、A036653。
%K nonn公司
%0、6
%A _N.J.A.斯隆_
|