OFFSET
0,2
COMMENTS
Every graph paired with the empty set is included in this count. Every graph paired with a single vertex is also included.
a(n)/(2^binomial(n,2)*2^n) is the probability that a random simple labeled graph contains a random subset of its vertices in a single connected component.
EXAMPLE
a(2)=7 because every such ordered pair is counted except (G,{1,2}) where G is the disconnected graph on 2 labeled nodes.
MATHEMATICA
nn = 16; f[list_] :=
Table[Sum[list[[i, j]]*Binomial[i, j], {j, 1, i}] + list[[i, 1]], {i,
1, Length[list]}];
a[x_] := Sum[2^Binomial[n, 2] x^n/n!, {n, 0, nn + 100}];
c[x_] := Log[a[x]]; Prepend[
f[Table[Table[
PadLeft[Range[0, nn]! CoefficientList[
Series[ D[c[ x], {x, n}] a[x], {x, 0, nn}], x], nn + n], {n,
1, nn}][[All, j]], {j, 1, nn}]], 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Nov 04 2014
STATUS
approved