A138387-OEIS公司

A138387号

具有n个顶点和2个单圈分量的未标记图的数目。

1, 2, 8, 23, 74, 220, 674, 2011, 6038, 17980, 53547, 158907, 471225, 1394786, 4124929, 12185636, 35972082, 106111713, 312835608, 921809509, 2715058701, 7993741597, 23527694230, 69228383367, 203648980297, 598945442071 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`6,2`
	评论	`此序列是表T的第二行A137918号.`
	链接	`n=6..31时的n、a（n）表。`
	配方奶粉	`对于n奇数，a（n）=和（3<=i<=（n-1）/2）{f（i）f（n-i）}；对于n偶数，a（n）=和（3<=i<=n/2-1）{f（i）f（n-i）}+（f（n/2）+1）*fA001429号（k） ●●●●。`
	例子	`a（13）=2011，因为n是奇数，分区是3+10、4+9、5+8和6+7。这给出了657+480+445+429个图形。` `注意，f（4）=2，f（5）=5，f（6）=13，f（7）=33，f（8）=89，f（9）=240，f（10）=657。`
	数学	`nmax=31；` `树Gf[nn_]：=模块[{A}，A=表[1，{nn}]；对于[n=1，n<=nn-1，n++，A[[n+1]]=1/nSum[dA[[d]]，{d，除数[k]}]A[[n-k+1]]，}k，1，n}]]；x A.x^范围[0，nn-1]]；` `seq[n_]：=模[{t，g}，如果[n<3，{}，t=TreeGf[n-2]；g[e_]：=正常[t+O[x]^（商[n，e]+1）]/。x->x^e+O[x]^（n+1）；求和[Sum[EulerPhi[d]g[d]^（k/d），{d，除数[k]}]/k+If[OddQ[k]，g[1]g[2]^商[k，2]，（g[1]^2+g[2]）g[2]^（k/2-1）/2]，{k，3，n}]/2//删除[系数列表[#，x]，3]&]；` `A001429号=seq[nmax]；` `f[k_]：=A001429号[[k-2]；` `a[n_]：=如果[OddQ[n]，和[f[i]f[n-i]，{i，3，（n-1）/2}]，和[f[i]f[n-i]，{i，3，n/2-1}]+（f[n/2]+1）f[n/2]/2]；` `a/@范围[6，nmax](Jean-François Alcover公司，2019年10月5日，使用安德鲁·霍罗伊德的代码A001429号*)`
	交叉参考	`囊性纤维变性。A001429号,A137918号.` `上下文中的序列：A304304 A072842美元 A303861型A354176型 A007346号 A062247号` `相邻序列：A138384号 A138385号 A138386号A138388号 A138389号 A138390型`
	关键字	`容易的,非n`
	作者	`华盛顿·邦菲姆2008年3月18日`
	状态	`经核准的`