A335343 Number of k-colored graphs on n nodes with restricted labels.
1, 1, 3, 17, 193, 4385, 199233, 18104449, 3290333441, 1195981275649, 869438472061953, 1264105507046557697, 3675850064599476867073, 21377762572680129683660801, 248654719090254548473238011905, 5784437834927690918603693712506881
Offset: 0
Keywords
Programs
-
Mathematica
nn = 15; e[x_] := Sum[x^n/2^Binomial[n, 2], {n, 0, nn}]; Table[2^Binomial[n, 2], {n, 0, nn}] CoefficientList[Series[1/(1 - (e[x] - 1)), {x, 0, nn}], x]
Formula
Let E(x)=Sum_n>=0 x^n/2^C(n,2). Then 1/(1-(E(x)-1)) = Sum_n>=0 a(n)*x^n/2^C(n,2).
Comments