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-2 of 2 results.

A366396 Number of labeled directed graphs on [n] with self loops allowed such that the following implication holds for all x,y in [n]. If x and y are in distinct strongly connected components and y is reachable from x then there is a directed edge from x to y.

Original entry on oeis.org

1, 2, 16, 368, 34624, 19194752, 47730489856, 452968293106688, 16282682505688059904, 2253889950034687424110592, 1219139359408849690950674415616, 2601990460616856808147727573494857728, 22041041736721298233193355574294486210576384
Offset: 0

Views

Author

Geoffrey Critzer, Oct 08 2023

Keywords

Crossrefs

Programs

  • Mathematica
    nn = 12; posets = Select[Import["https://oeis.org/A001035/b001035.txt", "Table"],
       Length@# == 2 &][[All, 2]];p[x_] := Total[posets Table[x^i/i!, {i, 0, 18}]]; strong = Select[Import["https://oeis.org/A003030/b003030.txt", "Table"],
       Length@# == 2 &][[All, 2]]; s[x_] := Total[Prepend[strong Table[x^i/i!, {i, 1, 58}], 1]];Table[n!, {n, 0, nn}] CoefficientList[Series[p[s[2 x] - 1], {x, 0, nn}], x]

Formula

E.g.f.: p(s(2x)-1) where p(x) is the e.g.f. for A001025 and s(x) is the e.g.f. for A003030.

A369397 Number of binary relations R on [n] such that the (unique) idempotent in {R,R^2,R^3,...} is an equivalence relation.

Original entry on oeis.org

1, 1, 5, 157, 26345, 18218521, 47136254765, 451286947588597, 16264532016440908625, 2253156851039460378774961, 1219026648017155982267265596885, 2601923405098893502520360223043594957, 22040885615442635622424409144799379027505465
Offset: 0

Views

Author

Geoffrey Critzer, Jan 22 2024

Keywords

Comments

Equivalently, a(n) is the number of binary relations R on [n] such that the Frobenius normal form has no 0-blocks on the diagonal and all off diagonal blocks are 0-blocks.

Crossrefs

Cf. A366866 (binary relations R on [n] such that the (unique) idempotent in {R,R^2,R^3,...} is a quasiorder), A365534, A366218, A365590, A355612, A365593, A366252, A366350, A366218.

Programs

  • Mathematica
    nn = 12; strong =Select[Import["https://oeis.org/A003030/b003030.txt", "Table"],
       Length@# == 2 &][[All, 2]]; s[x_] := Total[strong Table[x^i/i!, {i, 1, 58}]];
    Table[n!, {n, 0, nn}] CoefficientList[Series[Exp [s[2 x] - x], {x, 0, nn}], x]

Formula

E.g.f.: exp(s(2x)-x) where s(x) is the e.g.f. for A003030.
Showing 1-2 of 2 results.