%I#26 2021年10月22日11:35:30

%S 1,1,1,5,3453520842120098572849763415361983540815590925440865，

%电话：437358978421001263464535461714821630421106，

%电话：26377321913566036581364467300363258297687000380548275359231

%N N个节点上的连通定向图（即，没有双向边的连通有向图）的数量。

%H Andrew Howroyd，n表，n=0..50的a（n）</a>

%H Musa Demirci、Ugur Ana和Ismail Naci Cangul，<a href=“https://doi.org/10.1007/978-981-16-1402-6“>定向图的特征多项式的性质</a>，Proc.Int'l Conf.Adv.Math.Comp.（ICAMC 2020）Springer，见第61页。

%H查图拉·坎卡纳姆格，<a href=“http://hdl.handle.net/10012/14051“>使用增量子图查询实现多个连续子图查询优化，滑铁卢大学数学硕士论文，2018年。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/OrientedGraph.html“>定向图形</a>

%A001174.-的F逆欧拉变换_安德鲁·霍罗伊，2017年11月3日

%t 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] ；

%t边[v_]：=总和[GCD[v[i]]，v[[j]]]，{i，2，长度[v]}，{j，1，i-1}]+总@商[v-1，2]；

%t a1174[n_]：=模块[{s=0}，Do[s+=permcount[p]*3^边[p]，{p，整数分区[n]}]；序号！]；

%t b=阵列[a1174，15]；

%t mob[m_，n_]：=如果[Mod[m，n]==0，MoebiusMu[m/n]，0]；

%t EULERi[b_]：=模块[｛a，c，i，d｝，c=｛｝；对于[i=1，i<=长度[b]，i++，c=附加[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]]；

%t A086345=欧盟参考文献[b]（*_Jean-François Alcover_，2018年7月6日，在_Andrew Howroyd_*之后）

%Y参考A054941（带标签的箱子）、A001174、A281446（多组）。

%K nonn公司

%0、4

%A _Eric W.Weisstein，2003年7月16日

%E更多条款，摘自Vladeta Jovovic，2003年7月19日

%E a（0）=1由Andrew Howroyd_于2018年9月9日编制