%I#19 2019年9月5日08:35:07

%S 1,2,5,12,351083931666854354190436740456545062930604，

%电话：115627774828509174012946786816168424488004987442573207315483554，

%电话：2111803007351189542349047319472982435457595985559406756000872707827560669587718290

%N具有N个顶点、没有孤立顶点和一个可分辨的二部块的二部图的数目，直到同构。

%C也是n个顶点上的连通分割图的数量（参见A048194）_Falk Hüffner_，2015年12月1日

%C逆欧拉变换为A007776_安德鲁·霍罗伊，2018年10月3日

%H Alois P.Heinz，n的表格，n=2..40的a（n）</a>

%tb[n_，i_]：=b[n，i]=如果[n==0，{0}，如果[i<1，{}，展平@表[Map[Function[{p}，p+j*x^i]，b[n-i*j，i-1]]，{j，0，n/i}]]；

%t g[n_，k_]：=g[n，k]=总和[Sum[2^Sum[Sum[GCD[i，j]*系数[s，x，i]*系数[t，x，j]，{j，1，指数[t，x]}]，{i，1，指标[s，x]{]/乘积[i^系数[s、x，i]*系数[s，x、i]！，{i，1，指数[s，x]}]/乘积[i^系数[t，x，i]*系数[t，x，i]！，{i，1，指数[t，x]}]，{t，b[n+k，n+k]}，{s，b[n，n]}]；

%t A[n_，k_]：=g[最小值[n，k]，绝对值[n-k]]；

%t A049312[d_]：=总和[A[n，d-n]，{n，0，d}]；

%t差异[表[A049312[n]，{n，0，23}]，2]（*Jean-François Alcover_，2019年9月5日，在A049312中的_Alois P.Heinz_之后*）

%Y等于A049312的第二个差值。

%Y参见A007776、A024206、A055609、A055082、A055083、A055084。

%Y行A056152和A122083的总和。

%K nonn公司

%氧2,2

%A _Vladeta Jovovic_，2000年6月18日