OFFSET
0,3
COMMENTS
In other words, a(n) is the total number of nodes in one maximal component of each of the graphs in A006125.
MATHEMATICA
nn = 15; a = Sum[2^Binomial[n, 2] x^n/n!, {n, 0, nn}]; b =
Total[(Range[0, nn]! CoefficientList[Series[ Log[a], {x, 0, nn}],
x]) Table[x^i/i!, {i, 0, nn}]]; Map[Total, Transpose[
Table[Range[0, nn]! CoefficientList[Series[n (Exp[b[[1 ;; n]]] - Exp[b[[1 ;; n - 1]]]), {x, 0, nn}], x], {n, 1, nn}]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jan 18 2016
STATUS
approved