A097631 Number of unrooted directed trees on n nodes with a green root.

0, 1, 5, 58, 907, 19046, 496869, 15578130, 570573623, 23929861102, 1131235173433, 59529368839898, 3451899685313523, 218712237867226182, 15034642075916533997, 1114519318895861250082, 88631119148029975177327, 7526795487859400166772958, 679859967684397018073935617

Offset: 1

Author

Ralf Stephan, Aug 17 2004

Keywords

• nonn

Links

• C. Banderier, J.-M. Le Bars and V. Ravelomanana, Generating functions for kernels of digraphs, arXiv:math/0411138 [math.CO], 2004.

Crossrefs

Equals A097629(n) - A097630(n).

Programs

Mathematica

(* Note: Mathematica's ProductLog is the Lambert W function. *)
a[n_] := SeriesCoefficient[-ProductLog[-ProductLog[-2x]/2]/n - ProductLog[-2x] (ProductLog[-2x] + 2)/4, {x, 0, n}] n!;
Array[a, 17] (* Jean-François Alcover, Feb 24 2019 *)

Formula

a(n) ~ 2^(n-1) * n^(n-2) * (1 - LambertW(1/2)) / (1 + LambertW(1/2)). - Vaclav Kotesovec, Feb 24 2019