#来自在线整数序列百科全书的问候!本次搜索:id:a005202〈10;展示1-1的1-1的1 ;%I a005202 M32282;%S a005202 M32282;%S a005202 0 05202 0,1,0,0,1,1,1,4,6,6,14,28,28,60125252635581181353535359113922422422429051926,;;%T a005202 11101723775757509404271323452565038015108282872072023291759,;;%U a005202 50105510510510795732325255001151150120127020010809962424423333979,;%U a005202 5012605510510510795732325323253232550011522213165033764628108689506762347699898050728408182,10964904073823708117146625712767906811109354495908;%N A005202总固定点在栽植的树上有N个节点N个节点的固定点总数。;%C A005202来自UR.J.J.Mathar_,2019年4月13日2019:(开始);%C A005202相关三角形相关的三角形H{p,J},p>=1,1<=J<=p,a(N)=Sum{J=1=1..p}J*H{p,J},J},行和在A001678中的行和数,开始:;;;;10;(10;;{10;p;p;C A0050505202;p%C A005202 1; %C A005202 0,0;;%C A005202 1,0,0,0;;%C A005202 1,0,0,0;0;;%C A005202 1,0,1,0,0;0;;%C A005202 1,1,1,1,0,0,0;0;;;%C A005202 2,2,2,1,1,0,1,1,1,1,1,0,0,0;0;;%C A005202 1,4,4,2,2,1,0,0,0;0;;%C A005202 3,4,4,4,5,5,2,0,0,1,0,0,0;;%C A00505202 3,4,4,4,5,2,0,0,0,1,0,0;1,0;(10 7,7,9,4,4,1,0,0,0; %C A005202 5,9,15,14,11,9,3、0、0、1、0、0;;;%C A005202 4、14、23、28、25、19、7、6、6、1、0、0、0、0;;%C A005202 11、15、15、39、46、55、7、6、1、4、55、38、24、14、5、0、1、1、1、1、1、1、32、54、86、97、86、86、64、36、11、9、1、0、0、9、1、0、0、9、1、0、0、9、1、0;;%C A005202(结束);%D A005202(结束);%D A005202 N.J.A.Sloane、Simon Ploufffe、Simon Ploufffe,39、39、39、46、整数序列,学术出版社,1995年(包括这个序列);%H A005202 F.Harary和E.M.Palmer,一棵树的概率是固定点,数学。程序。坎布。菲尔。Soc。85年(1979年)407-415. %H A005202与根树相关的序列的索引项%沪A005202与树相关的序列的索引项%p A005202 Hpj:=proc(Hofxy,p,j);%p A005202 Coefetyl(Hofxy,x=0,p,p);;;%p A005202 Coefetyl(%,y=0,y=0,j);;;%p A005202简化(%);;;;%p A005202结束proc:;%p A005202 Hxy:=proc(x,y,pmax,hxyinit);%p A005202若pmax=0,则;%p A005202若pmax=0,则;%p A005202 x*y;;%p A005202其他;%p A005202 ELY;;%p A005202其他05202其他05202除%;;%p A005202 %p A005202 pp:=1; %p A005202,p从1到pmax do %pA005202 t:=1;;;%p A005202 for j从1到p做做;%p A005202 t:=t*(1+x^p*y^j+add(x^(k*p,k=2..pmax+1))^Hpj(hxyinit,p,j);;;;%p A005202 EndDo:;%p A005202 pp:=pp*t;;%p A005202 EndDo do:;%p A005202 EndDo do:;%p A005202 end do:;%p A005202 x*y*y*%/(1+x*y);;%p A005202 end if;%p A005202 x*y*%/(1+x*y);;(1+p A005;;;%p A005202为pmax从2到20的从2到20的做做做;;%p A005202 hxy:=hxy(x,y,0,0,0);;;%p A005202为pmax从2到20做做做;%p A005202 hxy(x,y,pmax,hxy);;;;%p A005202泰勒(%,x=0,pmax+2);;;%p A005202转换(%,%,波利诺姆);;;%p A005202泰勒(%,y=0,pmax+2);;;%p A005202 hxy:=转换(%,y=0,pmax+2);;%p A005202 hxy:=转换(%%转换(%%转换(%,%,y=转换,多项式); %p A005202用于p从0到pmax do %p A005202 Ap:=0;;%p A005202 Ap:=Ap+j*Hpj*Hpj(hxy,p,p,j);;;;%p A005202 Ap:=Ap+j*Hpj*Hpj(hxy,p,j,j);;;%p A005202 end do:;%p A005202 printff(”%d,,,Ap);;;%p A005202 end do:;%p A005202 print();;;%p A005202 end do:35; U R.j.Mathar UU2019 4月13日,2019年4月13日;%t A005202 Hpj[Hofxxy U,p UUU,j,j[==========p A005seriescoefficient[系列系数[Hofxy,{x,0,p}],{y,0,j} ;;;(10)万人组A005202 Hxy[x(x,y,pMax,pMax UX,hxyinit UU]:=如果[pMax==0,x y x y,pp=1;对于[p=1,p<=pMax,p++,p++,t=1;对于[j=1,j<=p,j++,t=t(1+x^p y^j+Sum[x^(k*p),{k,2,pMax+1}])^Hpj[HXYINITP,p,j]];pp=pp t];x*y*pp/(1+1+1+1+1+p),j(1+x x x<=p,p,j]];pp=pp/(1+p/(1+x y); %t A005202 Hxy=Hxy[x,y,0,0]; %t A005202 Reap[对于[pMax=2,pMax<=terms-1,pMax++,打印[”pMax=“,pMax];sx=系列[Hxy[x,y,pMax,Hxy],{x,0,pMax+2}]//正常;sy=系列[sx,{y,0,pMax+2}]];Hxy=sy//Normal;当[p=0,p<=pMax,p++,Ap=0;当[j=1,j<=p,j++,Ap=Ap=Ap+j Hpj[HXYP,p,j]]];若[pMax==terms-1,打印[Ap];Sow[Ap]]]][[2,1]]]][[2,1]]][[2,1]++++j++,j++,j]]]]][若[pMax==术语1][1(*u Jean-François Alcover,2020年3月22日,在 %Y A005202 Cf.A005200. %K A005202 nonn,easy %O A005202 1,6 %A A005202 _N.J.A.Sloane %E A005202之后 更多条款来自_R.J.Mathar %Y A005202,2019年4月13日 # # %K A005202 nonn N,easy %A A005202 %A A005202 %A A005202