cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-22 of 22 results.

A322066 Number of e-positive antichains of sets spanning n vertices.

Original entry on oeis.org

1, 1, 2, 8, 64, 1299
Offset: 0

Views

Author

Gus Wiseman, Nov 25 2018

Keywords

Comments

A stable partition of a hypergraph or set system is a set partition of the vertices where no non-singleton edge has all its vertices in the same block. The chromatic symmetric function is given by X_G = Sum_pi m(t(pi)) where the sum is over all stable partitions pi of G, t(pi) is the integer partition whose parts are the block-sizes of pi, and m is the basis of augmented monomial symmetric functions (see A321895). A hypergraph or set system is e-positive if, in the expansion of its chromatic symmetric function in terms of elementary functions, all coefficients are nonnegative.

Examples

			The a(3) = 8 e-positive antichains:
  {{1},{2,3}}
  {{2},{1,3}}
  {{3},{1,2}}
  {{1,2},{1,3}}
  {{1,2},{2,3}}
  {{1,3},{2,3}}
  {{1},{2},{3}}
  {{1,2},{1,3},{2,3}}
The antichain {{1,2,3}} is not e-positive, as its chromatic symmetric function is -3e(3) + 3e(21).
		

Crossrefs

A371633 Number of ways to choose a simple labeled graph on [n], then partition the vertex set into independent sets, then choose a vertex from each independent set.

Original entry on oeis.org

1, 1, 4, 35, 740, 34629, 3581894, 802937479, 386655984648, 396751196145673, 862046936883049482, 3946154005780155709451, 37896676657907955726032908, 760791471852690599411320471565, 31830237745009483676211065390546958, 2768049771339996987073597682850993569807
Offset: 0

Views

Author

Geoffrey Critzer, Jun 06 2024

Keywords

Comments

An independent set is a set of vertices in a graph, no two of which are adjacent.

Crossrefs

Programs

  • Mathematica
    nn = 14; B[n_] := n! 2^Binomial[n, 2];ggf[egf_] := Normal[Series[egf, {x, 0, nn}]] /.Table[x^i -> x^i/2^Binomial[i, 2], {i, 0, nn}];Table[B[n], {n, 0, nn}] CoefficientList[Series[Exp[ggf[x Exp[x]]], {x, 0, nn}], x]

Formula

Sum_{n>=0} a(n)*x^n/A011266(n) = exp(f(x)) where f(x) = Sum_{n>=1} n*x^n/A011266(n).
Previous Showing 21-22 of 22 results.