|
| |
|
| A241839号 |
| n个节点上不规则的简单连通图的数量。 |
|
2
|
|
|
|
0, 0, 1, 4, 19, 107, 849, 11100, 261058, 11716404, 1006700026, 164059811497, 50335907479783, 29003487412533265, 31397381139819043520, 63969560111526659139866, 245871831681641239553413008, 1787331725248249110678608976294, 24636021429399437942454151113206764
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
链接
|
T.Hoppe和A.Petrone，从小图中发现整数序列，arXiv预印本arXiv:1408.3644[math.CO]，2014。
|
|
|
公式
|
|
|
|
数学
|
A005177号= {1, 1, 1, 1, 2, 2, 5, 4, 17, 22, 167, 539, 18979, 389436, 50314796, 2942198440, 1698517036411};
mob[m_，n_]：=如果[Mod[m，n]==0，MoebiusMu[m/n]，0]；
EULERi[b_]：=模[{a，c，i，d}，c={}；对于[i=1，i<=长度[b]，i++，c=Append[c，i*b[i]]-求和[c[[d]]*b[[i-d]]，{d，1，i-1}]]；a={}；对于[i=1，i<=长度[b]，i++，a=Append[a，（1/i）*Sum[mob[i，d]*c[[d]]，{d，1，i}]]；返回[a]]；
permcount[v_]：=模[{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] ；
边[v_]：=和[GCD[v[i]]，v[[j]]]，{i，2，长度[v]}，{j，1，i-1}]+总[v，2]；
a88[n_]：=模块[{s=0}，Do[s+=permcount[p]*2^边[p]，{p，整数分区[n]}]；序号！]；
A001349号=连接[{1}，EULERi[Array[a88，terms]]]；
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
