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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A007474号 具有n个弦的圆弦图的数量,直至旋转对称。
(原名M1800)
10
1, 0, 1, 2, 7, 36, 300, 3218, 42335, 644808, 11119515, 213865382, 4537496680, 105270612952, 2651295555949, 72042968876506, 2100886276796969, 65446290562491916, 2169090198219290966, 76211647261082309466, 2829612806029873399561 (列表图表参考历史文本内部格式)
抵消
0,4
参考文献
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
链接
Dror Bar-Natan,关于Vassiliev结不变量《拓扑》34(1995)423-472。
E.Krasko、A.Omelchenko、,无环和和平行弦的弦图枚举,arXiv预印本arXiv:1601.05073[math.CO],2016。
E.Krasko、A.Omelchenko、,无环和和平行弦的弦图枚举《组合数学电子杂志》,24(3)(2017),第3.43页。
数学
m=20;清除[M];M[_,_]=0;Mget[n_,k_]:=其中[n<0,0,n==0,1,n==1,1-模式[k,2],n==2,k-模式[k、2],真,M[n,k]];Mset[n_,k_,v_]:=(M[n,k]=v);Minit[]=(tmp=0;对于[n=3,n<=2*m,n++,对于[k=1,k<=2*m,k++,tmp=If[Mod[k,2]==1,k*(n-1)*Mget[n-2,k]+Mget[n-4,k],Mget[n-1,k]+k*(n-1)*Mget[n-2,k]-Mget[n-3,k]+Mget[n-4,k]];Mset[n,k,tmp]]];);a[n_]:=除数和[2*n,EulerPhi[#]*(Mget[2*n/#,#]-Mget[2*n/#-2,#])&]/(2*n);迷你[];预备[阵列[a,m],1](*Jean-François Alcover公司2017年4月24日,之后Gheorghe Coserea公司*)
黄体脂酮素
(平价)
N=20;M=矩阵(2*N,2*N);
Mget(n,k)={如果(n<0,0,n==0,1,n==1,1-(k%2),n==2,k-(k%2,M[n,k])};
Mset(n,k,v)={M[n,k]=v;};
Minit()={
我的(tmp=0);
对于(n=3,2*n,对于(k=1,2*n,
tmp=如果(k%2,k*(n-1)*Mget(n-2,k)+Mget(n-4,k),
Mget(n-1,k)+k*(n-1)*Mget(n-2,k)-Mget(n-3,k)+Mget(n-4,k));
Mset(n,k,tmp));
};
a(n)=总和(2*n,d,eulerphi(d)*(Mget(2*n/d,d)-Mget(2*n/d-2,d)))/(2*n);
Minit();
concat(1,向量(N,N,a(N))\\Gheorghe Coserea公司2016年12月10日
交叉参考
关键词
非n,美好的
作者
状态
经核准的

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

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

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