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年(包括该序列)。
链接
Gheorghe Coserea,
n=0..300时的n,a(n)表
Dror Bar-Natan,
关于Vassiliev结不变量
《拓扑》34(1995)423-472。
D.Bar-Natan,
瓦西里耶夫不变量书目
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日
交叉参考
上下文中的序列:
A012363号
A012717号
A072236号
*
A002724号
A348106型
A292206型
相邻序列:
A007471号
A007472号
A007473号
*
A007475型
A007476号
A007477号
关键词
非n
,
美好的
作者
N.J.A.斯隆
状态
经核准的
查找
|
欢迎光临
|
维基
|
注册
|
音乐
|
地块2
|
演示
|
索引
|
浏览
|
更多
|
网络摄像头
贡献新序列。
或评论
|
格式
|
样式表
|
变换
|
超级搜索
|
最近
OEIS社区
|
维护人
OEIS基金会。
许可协议、使用条款、隐私政策。
.
最后修改时间:美国东部时间2024年6月5日04:27。
包含373102个序列。
(在oeis4上运行。)