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

A002724 Number of inequivalent n X n binary matrices, where equivalence means permutations of rows or columns.

Original entry on oeis.org

1, 2, 7, 36, 317, 5624, 251610, 33642660, 14685630688, 21467043671008, 105735224248507784, 1764356230257807614296, 100455994644460412263071692, 19674097197480928600253198363072, 13363679231028322645152300040033513414, 31735555932041230032311939400670284689732948
Offset: 0

Views

Author

Keywords

Comments

A diagonal of the array A(m,n) described in A028657. - N. J. A. Sloane, Sep 01 2013
Also, number of bipartite graphs with both partite sets of size n, one of which is marked. For connected bipartite graphs, see A363846. - Max Alekseyev, Jun 24 2023

References

  • 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).

Crossrefs

Cf. A028657 (this sequence is the diagonal). - N. J. A. Sloane, Sep 01 2013
Column k=2 of A246106.

Programs

  • Maple
    # See Marko Riedel link.
  • Mathematica
    b[n_, i_] := b[n, i] = If[n == 0, {0}, If[i < 1, {}, Union[Flatten[Table[ Function[{p}, p + j*x^i] /@ b[n - i*j, i - 1], {j, 0, n/i}]]]]];
    g[n_, k_] := g[n, k] = Sum[Sum[2^Sum[Sum[GCD[i, j]*Coefficient[s, x, i]* Coefficient[t, x, j], {j, 1, Exponent[t, x]}], {i, 1, Exponent[s, x]}]/ Product[i^Coefficient[s, x, i]*Coefficient[s, x, i]!, {i, 1, Exponent[s, x]}]/Product[i^Coefficient[t, x, i]*Coefficient[t, x, i]!, {i, 1, Exponent[t, x]}], {t, b[n + k, n + k]}], {s, b[n, n]}];
    A[n_, k_] := g[Min[n, k], Abs[n - k]];
    Table[A[n, n], {n, 0, 15}] (* Jean-François Alcover, Aug 10 2018, after Alois P. Heinz *)
  • PARI
    a(n) = A(n,n) \\ A defined in A028657. - Andrew Howroyd, Mar 01 2023

Formula

a(n) = Sum_{1*s_1+2*s_2+...=n, 1*t_1+2*t_2+...=n} (fixA[s_1, s_2, ...;t_1, t_2, ...]/(1^s_1*s_1!*2^s_2*s_2!*...*1^t_1*t_1!*2^t_2*t_2!*...)) where fixA[...] = 2^Sum_{i, j>=1} (gcd(i, j)*s_i*t_j). - Christian G. Bower, Dec 18 2003
a(n) = A028657(2*n, n). - Max Alekseyev, Jun 24 2023

Extensions

More terms from Vladeta Jovovic, Feb 04 2000
a(15) from Herman Jamke (hermanjamke(AT)fastmail.fm), Feb 24 2008

A363845 Triangle read by rows: T(n,k) = number of connected n-node graphs with k nodes in distinguished bipartite block, k = 0..n.

Original entry on oeis.org

1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 2, 1, 0, 0, 1, 4, 4, 1, 0, 0, 1, 6, 13, 6, 1, 0, 0, 1, 9, 34, 34, 9, 1, 0, 0, 1, 12, 76, 150, 76, 12, 1, 0, 0, 1, 16, 155, 558, 558, 155, 16, 1, 0, 0, 1, 20, 290, 1824, 3529, 1824, 290, 20, 1, 0, 0, 1, 25, 510, 5375, 19687, 19687, 5375, 510, 25, 1, 0, 0, 1, 30, 853, 14549, 98726, 194203, 98726, 14549, 853, 30, 1, 0
Offset: 0

Views

Author

Max Alekseyev, Jun 24 2023

Keywords

Comments

Also, rectangular array read by antidiagonals: A(m,n) = number of distinct m X n binary matrices M up to permutations of rows or columns such that M represents the reduced adjacency matrix of a connected bipartite graph.

Examples

			n=0: 1,
n=1: 1, 1,
n=2: 0, 1, 0,
n=3: 0, 1, 1, 0,
n=4: 0, 1, 2, 1, 0,
n=5: 0, 1, 4, 4, 1, 0,
n=6: 0, 1, 6, 13, 6, 1, 0,
n=7: 0, 1, 9, 34, 34, 9, 1, 0,
n=8: 0, 1, 12, 76, 150, 76, 12, 1, 0,
n=9: 0, 1, 16, 155, 558, 558, 155, 16, 1, 0,
...
		

Crossrefs

Inverse bivariate Euler transform of A028657.

A363884 Number of connected bipartite graphs on 2n nodes with a distinguished partite set of size n and with a unimodular reduced adjacency matrix.

Original entry on oeis.org

1, 1, 5, 41, 777, 38749, 5552904, 2358289931
Offset: 1

Views

Author

Max Alekseyev, Jun 25 2023

Keywords

Crossrefs

Inverse Euler transform of A363862.
Showing 1-3 of 3 results.