|
|
A052112号 |
| n个节点上的自互补有向2-多重图的个数。 |
|
三
|
|
|
1, 2, 14, 159, 7629, 599456, 226066304, 139178815861, 410179495378288, 2055126126323159298, 48234291396964332998082, 2016523952125103590736221923, 382812826011951187177138562992638, 135681830960694827549160289095792266106
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
二重图类似于普通图,只是任意两个节点之间有0、1或2条边(不允许自循环)。
|
|
链接
|
|
|
数学
|
permcount[v_List]:=模块[{m=1,s=0,k=0,t},对于[i=1,i<=长度[v],i++,t=v[i]];k=如果[i>1&&t==v[[i-1]],k+1,1];m*=t*k;s+=t];s/m] ;
edges[v_List]:=2 Sum[Sum[If[EvenQ[v[[i]]v[[j]],GCD[v[[i]],v[[j]],0],{j,1,i-1}],{i,2,Length[v]}]+Sum[If[EvenQ[v[[i]],v[[i]]-1,0],{i,1,Length[v]}];
a[n_]:=模块[{s=0},Do[s+=permcount[p]*3^edges[p],{p,IntegerPartitions[n]}];序号!];
|
|
黄体脂酮素
|
(PARI)
permcount(v)={my(m=1,s=0,k=0,t);对于(i=1,#v,t=v[i];k=if(i>1&&t==v[i-1],k+1,1);m*=t*k;s+=t);s!/m}
边(v)={2*sum(i=2,#v,sum(j=1,i-1,if(v[i]*v[j]%2==0,gcd(v[i],v[j]))+和(i=1,#v,if
a(n)={my(s=0);对于部分(p=n,s+=permcount(p)*3^边(p));s/n!}\\安德鲁·霍罗伊德2018年9月16日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|