OFFSET
0,3
REFERENCES
K. K.-H. Butler and G. Markowsky, Enumeration of finite topologies, Proc. 4th S-E Conf. Combin., Graph Theory, Computing, Congress. Numer. 8 (1973), 169-184.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
C. M. Bender et al., Combinatorics and field theory, arXiv:quant-ph/0604164, 2006.
Gunnar Brinkmann and Brendan D. McKay, Posets on up to 16 Points, Order 19(2) (2002), 147-179. See Table II, up to 18 points.
Kim Ki-Hang Butler and George Markowsky, Enumeration of finite topologies, Proc. 4th S-E Conf. Combin., Graph Theory, Computing, Congress. Numer. 8 (1973), 169-184.
Kim Ki-Hang Butler and George Markowsky, Enumeration of finite topologies, Proc. 4th S-E Conf. Combin., Graph Theory, Computing, Congress. Numer. 8 (1973), 169-184. [Annotated scan of pages 180 and 183 only]
Sangmin Chun, Gangyong Lee, Mauricio Medina-Barcenas, and Cosmin S. Roman, Rudimentary Structural Matrix Rings, J. Alg. Appl. (2026). See p. 12.
Marcel Erné, Struktur- und Anzahlformeln für Topologien auf Endlichen Mengen, Manuscripta Math., 11 (1974), 221-259.
Marcel Erné, Struktur- und Anzahlformeln für Topologien auf Endlichen Mengen, Manuscripta Math. 11 (1974), 221-259. (Annotated scanned copy)
Marcel Erné and Kurt Stege, Counting Finite Posets and Topologies, Order 8 (1991), 247-265.
N. J. A. Sloane, List of sequences related to partial orders, circa 1972
J. A. Wright, There are 718 6-point topologies, quasiorderings and transgraphs, Preprint, 1970 [Annotated scanned copy]
J. A. Wright, Letter to N. J. A. Sloane, Apr 06 1972, listing 18 sequences.
FORMULA
E.g.f.: log(B(x)) where B(x) is e.g.f. of A001035.
MATHEMATICA
A001035 = {1, 1, 3, 19, 219, 4231, 130023, 6129859, 431723379, 44511042511, 6611065248783, 1396281677105899, 414864951055853499, 171850728381587059351, 98484324257128207032183, 77567171020440688353049939, 83480529785490157813844256579, 122152541250295322862941281269151, 241939392597201176602897820148085023};
max = Length[A001035]-1;
B[x_] = Sum[A001035[[k+1]]*x^k/k!, {k, 0, max}];
A[x_] = 1 + Log[B[x]];
CoefficientList[A[x] + O[x]^(max-1), x]*Range[0, max-2]! (* Jean-François Alcover, Apr 17 2014, updated Aug 30 2018 *)
CROSSREFS
KEYWORD
nonn,nice,hard
AUTHOR
EXTENSIONS
More terms from Christian G. Bower, Dec 12 2001
a(17)-a(18) using data from A001035 from Alois P. Heinz, Aug 30 2018
STATUS
approved
