登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志


提示
问候整数序列的在线百科全书!)
A000 774 n弦和弦弦图的数目,直至旋转对称。
(前M1800)
1, 0, 1、2, 7, 36、300, 3218, 42335、644808, 11119515, 213865382、4537496680, 105270612952, 2651295555949、72042968876506, 2100886276796969, 65446290562491916、216909019821929096、76211647 261082309466、28 列表图表参考文献历史文本内部格式
抵消

0、4

推荐信

S.N.J.A.斯隆和Simon Plouffe,《整数序列百科全书》,学术出版社,1995(包括这个序列)。

链接

Gheorghe Coserean,a(n)n=0…300的表

Dror Bar Natan关于Vasielv结不变量,拓扑34(1995)423-42.

D. Bar NatanVasielv不变量文献目录

E. Krasko,A. Omelchenko,无环和弦和弦图的计数,ARXIV预告ARXIV:1601.05073 [数学,CO],2016。

E. Krasko,A. Omelchenko,无环和弦和弦图的计数《组合数学》电子期刊,24(3)(2017),第3.43页。

Mathematica

m = 20; Clear[M]; M[_, _] = 0; Mget[n_, k_] := Which[n < 0, 0, n == 0, 1, n == 1, 1 - Mod[k, 2], n == 2, k - Mod[k, 2], True, M[n, k]]; Mset[n_, k_, v_] := (M[n, k] = v); Minit[] = (tmp = 0; For[n = 3, n <= 2*m, n++, For[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_] := DivisorSum[2*n, EulerPhi[#] * (Mget[2*n/#, #] - Mget[2*n/# - 2, #])&] / (2*n); Minit[]; Prepend[ Array[a, m], 1] (*让弗兰4月24日2017后格奥吉尔科塞里亚*)

黄体脂酮素

(帕里)

n=20;m=矩阵(2×n,2×n);

MGET(n,k)={if(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;};

MIN()= {

我(TMP=0);

对于(n=3, 2×n,(k=1, 2×n),

TMP= IF(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)=SUMEDIV(2×N,D,Eulelphi(D)*(MGET(2×N/D,D)-MGET(2×N/D2,D)))/(2×N);

分钟();

CONAT(1,向量(n,n,a(n)))格奥吉尔科塞里亚12月10日2016

交叉裁判

语境中的顺序:A012363 A012717 A072266*A000 724 A29 2206 A2039

相邻序列:A000 761 A000 772 A000 733*A000 775 A000 776 A000 777

关键词

诺恩

作者

斯隆.

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改9月23日11:11 EDT 2019。包含327342个序列。(在OEIS4上运行)