1,5

G. C. Greubel, Table of n, a(n) for n = 1..382

Steven R. Finch, An exceptional convolutional recurrence, arXiv:2408.12440 [math.CO], 22 Aug 2024.

S. Janson, D. E. Knuth, T. Łuczak and B. Pittel, The Birth of the Giant Component, arXiv:math/9310236 [math.PR], 1993.

S. Janson, D. E. Knuth, T. Łuczak and B. Pittel, The Birth of the Giant Component, Random Structures and Algorithms Vol. 4 (1993), 233-358.

E. M. Wright, The Number of Connected Sparsely Edged Graphs, Journal of Graph Theory Vol. 1 (1977), 317-330.

E.g.f.: W4(x) = - 1/11520*T(x)^5*( - 960 - 31632*T(x) - 54144*T(x)^2 + 100976*T(x)^3 - 117368*T(x)^4 + 79520*T(x)^5 - 35793*T(x)^6 + 10069*T(x)^7 - 1626*T(x)^8 + 108*T(x)^9)/(( - 1 + T(x))^12) where T(x) is the e.g.f. for rooted labeled trees (A000169), i.e., T(x) = - LambertW( - x) = x*exp(T(x)).

max=17; t[x_] := -ProductLog[-x]; w4[x_] := -1/11520*t[x]^5*(-960 - 31632*t[x] - 54144*t[x]^2 + 100976*t[x]^3 - 117368*t[x]^4 + 79520*t[x]^5 - 35793*t[x]^6 + 10069*t[x]^7 - 1626*t[x]^8 + 108*t[x]^9) / (-1 + t[x])^12; CoefficientList[ Series[w4[x], {x, 0, max}], x]*Range[0, max]! // Rest (* Jean-François Alcover, Sep 07 2012, from e.g.f. *)

A diagonal of A343088.

Cf. A000169, A000272.

Sequence in context: A391162 A208185 A123377 * A305666 A320307 A225764

Adjacent sequences: A061540 A061541 A061542 * A061544 A061545 A061546

easy,nice,nonn

Ravelomanana Vlady (vlad(AT)lri.fr), May 16 2001

approved