A144208 -id:A144208 - cp's OEIS frontend

A144207 Triangle T(n,k), n>=0, 0<=k<=n, read by rows: T(n,k) = number of simple graphs on n labeled nodes with k edges where each maximally connected subgraph consists of a single node or has a unique cycle of length 3.

1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 4, 12, 1, 0, 0, 10, 60, 150, 1, 0, 0, 20, 180, 900, 2160, 1, 0, 0, 35, 420, 3150, 15180, 36015, 1, 0, 0, 56, 840, 8400, 60750, 291060, 688128, 1, 0, 0, 84, 1512, 18900, 182270, 1311240, 6300672, 14880348, 1, 0, 0, 120, 2520, 37800

Offset: 0

Alois P. Heinz, Sep 14 2008

			T(5,4) = 60 = 5*12, because there are 5 possibilities for a single node and T(4,4) = 12:
.1-2. .1-2. .1-2. .1.2. .1.2. .1-2. .1.2. .1.2. .1-2. .1-2. .1-2. .1-2.
.|X.. .|/|. .|/.. ..X|. .|/|. ../|. .|X.. .|\|. .|\.. ..X|. .|\|. ..\|.
.3.4. .3.4. .3-4. .3-4. .3-4. .3-4. .3-4. .3-4. .3-4. .3.4. .3.4. .3-4.
Triangle begins:
1;
1, 0;
1, 0, 0;
1, 0, 0, 1;
1, 0, 0, 4, 12;
1, 0, 0, 10, 60, 150;

Alois P. Heinz, Rows n = 0..140, flattened

Columns 0, 1+2, 3, 4 give: A000012, A000004, A000292, A033486 or A112415. Diagonal gives: A053507. Row sums give: A144208. Cf. A007318.

T:= proc(n,k) option remember; if k=0 then 1 elif k<0 or n

t[n_, k_] := t[n, k] = Which[k == 0, 1, k < 0 || n < k, 0, k == n, Binomial[n-1, 2]*n^(n-3), True, t[n-1, k] + Sum[Binomial[n-1, j]*t[j+1, j+1]*t[n-1-j, k-j-1], {j, 2, k-1}]]; Table[Table[t[n, k], {k, 0, n}], {n, 0, 11}] // Flatten (* Jean-François Alcover, Dec 13 2013, translated from Maple *)

T(n,0) = 1, T(n,k) = 0 if k<0 or n

A144212 Triangle T(n,k), n>=3, 3<=k<=n, read by rows: T(n,k) = number of simple graphs on n labeled nodes, where each maximally connected subgraph consists of a single node or has a unique cycle of length k.

Original entry on oeis.org

2, 17, 4, 221, 76, 13, 3261, 1486, 433, 61, 54801, 29506, 11593, 2941, 361, 1049235, 628531, 296353, 102481, 23041, 2521, 22695027, 14633011, 7795873, 3270961, 1010881, 204121, 20161, 548904831, 373486051, 217126225, 104038201, 39355201

Offset: 3

Alois P. Heinz, Sep 14 2008

			T(4,4) = 4, because there are 4 simple graphs on 4 labeled nodes, where each maximally connected subgraph consists of a single node or has a unique cycle of length 4:
.1.2. .1-2. .1-2. .1.2.
..... .|.|. ..X.. .|X|.
.3.4. .3-4. .3-4. .3.4.
Triangle begins:
        2;
       17,     4;
      221,    76,    13;
     3261,  1486,   433,   61;
    54801, 29506, 11593, 2941, 361;

Alois P. Heinz, Rows n = 3..102, flattened

Columns k=3, 4 give: A144208, A144210. Diagonal gives: A139149. Cf. A053507, A065889, A098909, A144207, A144209, A007318, A000142.

B:= proc(n,c,k) option remember; if c=0 then 1 elif c<0 or n add(B(n,c,k), c=0..n): seq(seq(T(n,k), k=3..n), n=3..11);

B[n_, c_, k_] := B[n, c, k] = Which[c == 0, 1, c<0 || nJean-François Alcover, Jan 21 2014, translated from Alois P. Heinz's Maple code *)

See program.

Showing 1-2 of 2 results.

cp's OEIS Frontend

A144207 Triangle T(n,k), n>=0, 0<=k<=n, read by rows: T(n,k) = number of simple graphs on n labeled nodes with k edges where each maximally connected subgraph consists of a single node or has a unique cycle of length 3.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula