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.

Showing 1-10 of 10 results.

A326209 Number of nesting labeled digraphs with vertices {1..n}.

Original entry on oeis.org

0, 0, 4, 408, 64528
Offset: 0

Views

Author

Gus Wiseman, Jun 19 2019

Keywords

Comments

Two edges (a,b), (c,d) are nesting if a < c and b > d or a > c and b < d.
Also unsortable digraphs with vertices {1..n}, where a digraph is sortable if, when the edges are listed in lexicographic order, their targets are weakly increasing.
Also the number of semicrossing digraphs with vertices {1..n}, where two edges (a,b), (c,d) are semicrossing if a < c and b < d or a > c and b > d. For example, the a(2) = 4 semicrossing digraph edge-sets are:
{11,22}
{11,12,22}
{11,21,22}
{11,12,21,22}

Examples

			The a(2) = 4 nesting digraph edge-sets:
  {12,21}
  {11,12,21}
  {12,21,22}
  {11,12,21,22}
		

Crossrefs

Non-nesting digraphs are A326237.
Nesting set partitions are A016098.
MM-numbers of nesting multiset partitions are A326256.
MM-numbers of unsortable multiset partitions are A326258.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Tuples[Range[n],2]],!OrderedQ[Last/@#]&]],{n,4}]

Formula

A002416(n) = a(n) + A326237(n).

A326237 Number of non-nesting digraphs with vertices {1..n}, where two edges (a,b), (c,d) are nesting if a < c and b > d or a > c and b < d.

Original entry on oeis.org

1, 2, 12, 104, 1008, 10272, 107712, 1150592
Offset: 0

Views

Author

Gus Wiseman, Jun 19 2019

Keywords

Comments

These are digraphs with the property that, if the edges are listed in lexicographic order, the sequence of targets is weakly increasing. For example, the digraph with lexicographically ordered edge set {(1,2),(2,1),(3,1),(3,2)} is nesting because the targets are (2,1,1,2), a sequence that is not weakly increasing.
Also the number of non-semicrossing digraphs with vertices {1..n}, where two edges (a,b), (c,d) are semicrossing if a < c and b < d or a > c and b > d. For example, the a(2) = 4 non-semicrossing digraph edge-sets are:
{}
{11}
{12}
{21}
{22}
{11,12}
{11,21}
{12,21}
{12,22}
{21,22}
{11,12,21}
{12,21,22}
Apparently a duplicate of A152254. - R. J. Mathar, Jul 12 2019

Examples

			The a(2) = 12 non-nesting digraph edge-sets:
  {}
  {11}
  {12}
  {21}
  {22}
  {11,12}
  {11,21}
  {11,22}
  {12,22}
  {21,22}
  {11,12,22}
  {11,21,22}
		

Crossrefs

Nesting digraphs are A326209.
Non-nesting set partitions are A000108.
Non-capturing set partitions are A054391.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Tuples[Range[n],2]],OrderedQ[Last/@#]&]],{n,4}]

Formula

A002416(n) = a(n) + A326209(n).

A007080 Number of labeled Eulerian digraphs with n nodes.

Original entry on oeis.org

1, 2, 10, 152, 7736, 1375952, 877901648, 2046320373120, 17658221702361472, 569773219836965265152, 69280070663388783890248448, 31941407692847758201303724506112, 56121720938871110502272391300032261120, 377362438996731353329256282026362716827887616, 9744754031799754169218003376206941877943086188308480, 969342741943194323476512925742876053501022995325734477987840
Offset: 1

Views

Author

Keywords

Comments

Includes disconnected graphs. - Felix A. Pahl, Jul 15 2018
Loops and parallel edges are not allowed, but 2-cycles (in other words, edges A --> B and B --> A existing simultaneously) are allowed. - Mikhail Lavrov, Mar 04 2025

Examples

			For n=3, the a(n) = 10 solutions are: (A . B . C), (A <--> B . C), (A <--> C . B), (B <--> C . A), (A --> B --> C --> A), (A --> C --> B --> A), (A <--> B <--> C), (A <--> C <--> B), (B <--> A <--> C), and (A <--> B <--> C <--> A). - _Mikhail Lavrov_, Mar 04 2025
		

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A058338 (unlabeled), A229865 (loops allowed), A054957 (connected) - Mikhail Lavrov, Mar 04 2025

Programs

  • Mathematica
    a[n_]:=Coefficient[Expand[Product[Product[x[i]+x[j],{j, 1, n}],{i, 1,n}]],Product[x[k]^n,{k,1,n}]]/2^n (* practically unusable for n>7 *)
    a[n_]:=N[(Sqrt[n]/E^(1/4))*(2^n/Sqrt[n*Pi])^(n-1)*(1+3/(16*n)+1/(7*n^2)+3/(20*n^3))]
    (* four digit accuracy for n>7 *) (* Thomas Curtright, Apr 12 2017 *)

Formula

a(n) ~ e^(-1/4)*sqrt(n)(2^n/sqrt(Pi*n))^(n-1)*(1+O(1/sqrt(n))) [B. D. McKay, 1990]. - Thomas Curtright, Apr 11 2017

Extensions

Terms a(12) and beyond from McKay (1983), added by Thomas Curtright, Apr 12 2017

A326252 Number of digraphs with vertices {1..n} whose increasing edges are crossing.

Original entry on oeis.org

0, 0, 0, 0, 16384, 22020096, 62679678976, 556181084962816
Offset: 0

Views

Author

Gus Wiseman, Jun 30 2019

Keywords

Comments

A directed edge (a,b) is increasing if a < b. Two edges (a,b), (c,d) are crossing if a < c < b < d or c < a < d < b.

Crossrefs

Simple graphs whose edges are crossing are A326210.
Digraphs whose increasing edges are not crossing are A326251.
Digraphs whose edges are not crossing are A326237.

Programs

  • Mathematica
    croXQ[eds_]:=MatchQ[eds,{_,{x_,y_},_,{z_,t_},_}/;x
    				

Formula

a(n) = 2^(n * (n + 1)/2) * A326210(n).

A308111 Isomorphism classes of Eulerian digraphs with n vertices, allowing loops.

Original entry on oeis.org

1, 2, 6, 24, 160, 2512, 129816, 22665792, 13056562208, 24953006054144, 160860329639968800, 3555065836569542246400, 273147301191314006316868352, 73832333258502021627712839197696, 70920540648597652305602460997787710080, 244186544390677638132290202415190606165938176, 3036252267734950687777830287721323374283100639476736
Offset: 0

Views

Author

Brendan McKay, May 11 2019

Keywords

Comments

Eulerian means that for every vertex the in-degree equals the out-degree.

Examples

			For n=2 the a(2)=6 solutions are: two non-adjacent vertices with or without loops (3 cases), two vertices with or without loops connected by edges in each direction (3 cases).
		

Crossrefs

For labeled digraphs rather than isomorphism classes see A229865.
For isomorphism classes with loops forbidden see A058338.
Cf. A308128 (connected version of this).

Formula

Euler transform of A308128.

Extensions

Terms a(10) and beyond from Andrew Howroyd, Apr 12 2020

A326251 Number of digraphs with vertices {1..n} whose increasing edges are not crossing.

Original entry on oeis.org

1, 2, 16, 512, 49152, 11534336, 6039797760, 6768868458496, 15885743998107648, 77083611222073409536, 767126299049285413502976, 15572324598183490228037091328, 642316330843573124053884695740416, 53681919993405760099480940765478125568
Offset: 0

Views

Author

Gus Wiseman, Jun 30 2019

Keywords

Comments

A directed edge (a,b) is increasing if a < b. Two edges (a,b), (c,d) are crossing if a < c < b < d or c < a < d < b.
Conjecture: Also the number of non-nesting digraphs with vertices {1..n} whose increasing edges are not crossing, where two edges (a,b), (c,d) are nesting if a < c < d < b or c < a < b < d.

Crossrefs

Simple graphs whose edges are non-crossing are A054726.
Digraphs whose edges are not crossing are A326237.
Digraphs whose increasing edges are crossing are A326252.

Programs

  • Mathematica
    croXQ[eds_]:=MatchQ[eds,{_,{x_,y_},_,{z_,t_},_}/;x
    				

Formula

a(n) = 2^(n * (n + 1)/2) * A054726(n).

A245290 Number of normalized graph Laplacian matrices of nonempty labeled graphs of 2n vertices that are separable in C^2 X C^n as density matrices in quantum mechanics.

Original entry on oeis.org

1, 31, 5119, 9961471, 259577085951, 94554701453852671, 494214691850093043122175, 37747948215762478445361018961919, 42694960288928350006693371507341885702143, 722273364120299921501331975953872089285372151857151
Offset: 1

Views

Author

Chai Wah Wu, Jul 16 2014

Keywords

Comments

Since separability is not invariant under graph isomorphism, all 2^(n(2n-1))-1 nonzero Laplacian matrices are treated as different. A nonzero Laplacian matrix different from the complete graph is separable in C^2 X C^n if and only if its complement is. Since the complete graph is separable, this means that a(n) is odd for all n.

Crossrefs

Formula

a(n) + A245291(n) = 2^(n*(2*n-1))-1.
a(n) = 2^(n*(n-1))*A229865(n)-1.

A245291 Number of normalized graph Laplacian matrices of nonempty labeled graphs of 2n vertices that are entangled in C^2 x C^n as density matrices in quantum mechanics.

Original entry on oeis.org

0, 32, 27648, 258473984, 34924795002880, 73692421593384353792, 2475385863878910456755126272, 1329190247836700110425361699261382656, 11417938846687390120116281062224453749176270848, 1569274711573306070659025854469940650153499575743856771072
Offset: 1

Views

Author

Chai Wah Wu, Jul 16 2014

Keywords

Comments

Since entanglement is not invariant under graph isomorphism, all 2^(n(2n-1))-1 nonzero Laplacian matrices are treated as different. A nonzero Laplacian matrix not equal to the complete graph is entangled in C^2 x C^n if and only if its complement is. Since the complete graph is not entangled, this means that a(n) is even for all n.

Crossrefs

Formula

A245290(n) + a(n) = 2^(n*(2*n-1))-1.
a(n) = 2^(n*(2*n-1))-2^(n*(n-1))*A229865(n).

A308128 Isomorphism classes of connected Eulerian digraphs with n vertices, allowing loops.

Original entry on oeis.org

1, 2, 3, 14, 112, 2174, 124501, 22400498, 13010949171, 24926846389076, 160810397320789069, 3554744065897655673978, 273140190737719436311559660, 73831786956788218320014098284918, 70920392983384812245087697080226658475, 244186402549448674084991238687021028510453186
Offset: 0

Views

Author

Alois P. Heinz, May 14 2019, following a suggestion from Brendan McKay

Keywords

Crossrefs

Formula

Inverse Euler transform of A308111.

Extensions

Terms a(10) and beyond from Andrew Howroyd, Apr 12 2020

A326253 Number of sequences of distinct ordered pairs of positive integers up to n.

Original entry on oeis.org

1, 2, 65, 986410, 56874039553217, 42163840398198058854693626, 1011182700521015817607065606491025592595137, 1653481537585545171449931620186035466059689728986775126016505970
Offset: 0

Views

Author

Gus Wiseman, Jun 21 2019

Keywords

Examples

			The a(2) = 65 sequences:
  ()  (11)  (11,12)  (11,12,21)  (11,12,21,22)
      (12)  (11,21)  (11,12,22)  (11,12,22,21)
      (21)  (11,22)  (11,21,12)  (11,21,12,22)
      (22)  (12,11)  (11,21,22)  (11,21,22,12)
            (12,21)  (11,22,12)  (11,22,12,21)
            (12,22)  (11,22,21)  (11,22,21,12)
            (21,11)  (12,11,21)  (12,11,21,22)
            (21,12)  (12,11,22)  (12,11,22,21)
            (21,22)  (12,21,11)  (12,21,11,22)
            (22,11)  (12,21,22)  (12,21,22,11)
            (22,12)  (12,22,11)  (12,22,11,21)
            (22,21)  (12,22,21)  (12,22,21,11)
                     (21,11,12)  (21,11,12,22)
                     (21,11,22)  (21,11,22,12)
                     (21,12,11)  (21,12,11,22)
                     (21,12,22)  (21,12,22,11)
                     (21,22,11)  (21,22,11,12)
                     (21,22,12)  (21,22,12,11)
                     (22,11,12)  (22,11,12,21)
                     (22,11,21)  (22,11,21,12)
                     (22,12,11)  (22,12,11,21)
                     (22,12,21)  (22,12,21,11)
                     (22,21,11)  (22,21,11,12)
                     (22,21,12)  (22,21,12,11)
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[k!*Binomial[n^2,k],{k,0,n^2}],{n,0,4}]

Formula

a(n) = A000522(n^2).
Showing 1-10 of 10 results.