login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A051337 Number of strongly connected tournaments on n nodes. 3

%I #25 Sep 12 2019 08:14:23

%S 1,1,0,1,1,6,35,353,6008,178133,9355949,884464590,152310149735,

%T 48234782263293,28304491788158056,30964247546702883729,

%U 63468402142317299907481,244785748571033855024746438,1782909084196274276970660380187,24602074618353524534591008760307017

%N Number of strongly connected tournaments on n nodes.

%C A tournament is strongly connected (or strong) if there is a directed path between any pair of points.

%D F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 127, Eq. (5.2.4);

%D J. L. Gross and J. Yellen, eds., Handbook of Graph Theory, CRC Press, 2004; p. 523.

%H Andrew Howroyd, <a href="/A051337/b051337.txt">Table of n, a(n) for n = 0..50</a>

%H John W. Moon, <a href="http://www.gutenberg.org/ebooks/42833">Topics on tournaments</a>, Holt, Rinehard and Winston (1968)

%H Peter Steinbach, <a href="/A000664/a000664_11.pdf">Field Guide to Simple Graphs, Volume 4</a>, Part 11 (For Volumes 1, 2, 3, 4 of this book see A000088, A008406, A000055, A000664, respectively.)

%H Raphael Yuster, <a href="https://doi.org/10.1137/1.9781611975482.75">Vector clique decompositions</a>, Proceedings of the Thirtieth Annual ACM-SIAM Symposium on Discrete Algorithms (2019), 1221-1238.

%F G.f.: = 2 - 1/B(x) where B(x) = g.f. for A000568.

%t m = 20;

%t permcount[v_] := Module[{m = 1, s = 0, k = 0, t}, For[i = 1, i <= Length[v], i++, t = v[[i]]; k = If[i > 1 && t == v[[i - 1]], k + 1, 1]; m *= t*k; s += t]; s!/m];

%t edges[v_] := Sum[Sum[GCD[v[[i]], v[[j]]], {j, 1, i - 1}], {i, 2, Length[v]}] + Sum[Quotient[v[[i]], 2], {i, 1, Length[v]}];

%t oddp[v_] := (For[i = 1, i <= Length[v], i++, If[BitAnd[v[[i]], 1] == 0, Return[0]]]; 1);

%t b[n_] := b[n] = (s = 0; Do[If[oddp[p] == 1, s += permcount[p]*2^edges[p]], {p, IntegerPartitions[n]}]; s/n!);

%t B[x_] = Sum[b[k] x^k, {k, 0, m}];

%t A[x_] = 2 - 1/B[x];

%t A[x] + O[x]^m // CoefficientList[#, x]& (* _Jean-François Alcover_, Sep 12 2019, after _Andrew Howroyd_ in A000568 *)

%Y Cf. A000568, A054946.

%K nonn,nice,easy

%O 0,6

%A _Vladeta Jovovic_

%E a(0)=1 prepended and a(18)-a(19) from _Andrew Howroyd_, Sep 10 2018

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 22:56 EDT 2024. Contains 370952 sequences. (Running on oeis4.)