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

A185982 Triangle read by rows: number of set partitions of n elements with k connectors, 0<=k

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 7, 6, 1, 1, 16, 24, 10, 1, 1, 39, 86, 61, 15, 1, 1, 105, 307, 313, 129, 21, 1, 1, 314, 1143, 1520, 891, 242, 28, 1, 1, 1035, 4513, 7373, 5611, 2161, 416, 36, 1, 1, 3723, 18956, 36627, 34213, 17081, 4658, 670, 45, 1, 1, 14494, 84546, 188396, 208230, 127540, 45095, 9187, 1025, 55, 1
Offset: 1

Views

Author

Brian Drake, Feb 08 2011

Keywords

Examples

			A connector is a pair (a, a+1) in a set partition if a is in block i and a+1 is in block i+1, for some i.  For example a(4,1) = 7, counting 1/234, 13/2/4, 14/23, 134/2, 12/34, 124/3, 123/4.
Triangle begins:
  1;
  1,   1;
  1,   3,   1;
  1,   7,   6,   1;
  1,  16,  24,  10,   1;
  1,  39,  86,  61,  15,  1;
  1, 105, 307, 313, 129, 21, 1;
  ...

Links

Crossrefs

Columns k=0-10 give: A000012, A271788, A271789, A271790, A271791, A271792, A271793, A271794, A271795, A271796, A271797.
Row sums give A000110.
T(n+1,n-1) gives A000217.
T(2n,n) gives A271841.
Cf. A185983, A270953, A271206, A271270, A271271, A272064.

Programs

  • Maple
    b:= proc(n, i, m) option remember; `if`(n=0, 1, add(expand(
       b(n-1, j, max(m, j))*`if`(j=i+1, x, 1)), j=1..m+1))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..n-1))(b(n, 1, 0)):
seq(T(n), n=1..12);  # Alois P. Heinz, Mar 25 2016
  • Mathematica
    b[n_, i_, m_] := b[n, i, m] = If[n == 0, 1, Sum[b[n-1, j, Max[m, j]]*If[j == i+1, x, 1], {j, 1, m+1}]]; T[n_] := Function[p, Table[Coefficient[p, x, i], {i, 0, n-1}]][b[n, 1, 0]]; Table[T[n], {n, 1, 12}] // Flatten (* Jean-François Alcover, Apr 13 2016, after Alois P. Heinz *)

Extensions

More terms from Alois P. Heinz, Oct 11 2011

A271270 Number of set partitions of [n] such that for each pair of consecutive blocks (b,b+1) at least one pair of consecutive numbers (i,i+1) exists with i member of b and i+1 member of b+1.

Original entry on oeis.org

1, 1, 2, 5, 14, 43, 145, 536, 2157, 9371, 43630, 216397, 1137703, 6313675, 36848992, 225464838, 1442216870, 9620746697, 66781675113, 481413175433, 3597627996006, 27825925290597, 222422033403527, 1834910286704787, 15603508329713182, 136616625732498989
Offset: 0

Views

Author

Alois P. Heinz, Apr 03 2016

Keywords

Examples

			A000110(4) - a(4) = 15 - 14 = 1: 13|2|4.
A000110(5) - a(5) = 52 - 43 = 9: 124|3|5, 134|2|5, 135|2|4, 13|25|4, 13|2|45, 13|2|4|5, 14|23|5, 14|2|3|5, 1|24|3|5.

Links

Crossrefs

Cf. A000110, A185982, A271271, A271272, A272064.

Programs

  • Maple
    b:= proc(n, i, m, l) option remember; `if`(n=0,
      `if`({l[], 1}={1}, 1, 0), add(b(n-1, j, max(m, j),
      `if`(j=m+1, [l[], `if`(j=i+1, 1, 0)],
      `if`(j=i+1, subsop(j=1, l), l))), j=1..m+1))
    end:
a:= n-> b(n, 0$2, []):
seq(a(n), n=0..18);
  • Mathematica
    b[n_, i_, m_, l_] := b[n, i, m, l] = If[n == 0, If[Union[l, {1}] == {1}, 1, 0], Sum[b[n-1, j, Max[m, j], If[j == m+1, Join[l, If[j == i+1, {1}, {0}] ], If[j == i+1, ReplacePart[l, j -> 1], l]]], {j, 1, m+1}]]; a[n_] := b[n, 0, 0, {}]; Table[a[n], {n, 0, 18}] (* Jean-François Alcover, Jan 30 2017, translated from Maple *)

Formula

a(n) = A000110(n) - A271271(n).

A271273 Number of set partitions of [n] into m blocks such that at least one pair of distinct cyclically consecutive blocks (b,c) = (b,(b mod m)+1) exists having no pair of numbers (i,j) = (i,(i mod n)+1) with i member of b and j member of c.

Original entry on oeis.org

0, 0, 0, 0, 2, 16, 93, 503, 2736, 15397, 90556, 558245, 3607387, 24409819, 172696471, 1275310652, 9813238958, 78548445033, 652960116962, 5628482431333, 50236822145840, 463647958566143, 4419123858908203, 43445718995990792, 440083379418080388, 4588225614805060248
Offset: 0

Views

Author

Alois P. Heinz, Apr 03 2016

Keywords

Examples

			a(4) = 2: 13|2|4, 1|24|3.
a(5) = 16: 124|3|5, 12|35|4, 134|2|5, 135|2|4, 13|25|4, 13|2|45, 13|2|4|5, 14|23|5, 1|235|4, 14|2|3|5, 15|24|3, 1|245|3, 1|24|3|5, 1|25|34, 1|25|3|4, 1|2|35|4.

Links

Crossrefs

Cf. A000110, A185983, A271271, A271272.

Programs

  • Maple
    b:= proc(n, i, m, l) option remember; `if`(n=0,
     `if`(l=[] or {l[]}={1} or i=m and {subsop(1=1, l)[]}=
      {1}, 1, 0), add(b(n-1, j, max(m, j), `if`(l=[], [1],
     `if`(j=m+1, subsop(1=0, `if`(j=i+1, [l[],1], [l[],0])),
     `if`(j=i+1 or j=1 and i=m, subsop(j=1, l), l)))), j=1..m+1))
    end:
a:= n-> combinat[bell](n)-b(n, 0$2, []):
seq(a(n), n=0..18);
  • Mathematica
    b[n_, i_, m_, l_] := b[n, i, m, l] = If[n == 0, If[l == {} || Union[l] == {1} || i == m && Union@ReplacePart[l, 1 -> 1] == {1}, 1, 0], Sum[b[n-1, j, Max[m, j], If[l == {}, {1}, If[j == m+1, ReplacePart[If[j == i+1, Append[l, 1], Append[l, 0]], 1 -> 0], If[j == i+1 || j == 1 && i == m, ReplacePart[l, j -> 1], l]]]], {j, 1, m+1}]]; a[n_] := BellB[n]-b[n, 0, 0, {}]; Table[a[n], {n, 0, 18}] (* Jean-François Alcover, Feb 15 2017, translated from Maple *)

Formula

a(n) = A000110(n) - A271272(n).

A272065 Number of set partitions of [n] such that at least one pair of consecutive blocks (b,b+1) exists having not exactly one pair of consecutive numbers (i,i+1) with i member of b and i+1 member of b+1.

Original entry on oeis.org

0, 0, 0, 0, 2, 17, 101, 545, 2935, 16351, 95335, 583373, 3745903, 25208633, 177505205, 1305468285, 10009943248, 79880835800, 662319435622, 5696570446421, 50749156111271, 467630493212126, 4451067568592918, 43709810099960739, 442331477265626019
Offset: 0

Views

Author

Alois P. Heinz, Apr 19 2016

Keywords

Examples

			a(4) = 2: 13|24, 13|2|4.
a(5) = 17: 124|35, 124|3|5, 134|25, 134|2|5, 135|24, 13|245, 13|24|5, 135|2|4, 13|25|4, 13|2|45, 13|2|4|5, 14|235, 14|23|5, 14|25|3, 14|2|3|5, 1|24|35, 1|24|3|5.

Links

Crossrefs

Cf. A000110, A185982, A271271, A272064.

Programs

  • Maple
    b:= proc(n, i, m, l) option remember; `if`(n=0,
      `if`({l[], 1}={1}, 1, 0), add(`if`(j combinat[bell](n)-b(n, 0$2, []):
seq(a(n), n=0..18);
  • Mathematica
    b[n_, i_, m_, l_] := b[n, i, m, l] = If[n == 0, If[Union[Append[l, 1]] == {1}, 1, 0], Sum[If[j < m+1 && j == i+1 && l[[j]] == 1, 0, b[n-1, j, Max[m, j], If[j == m+1, Append[l, If[j == i+1, 1, 0]], If[j == i+1, ReplacePart[l, j -> 1], l]]]], {j, 1, m+1}]]; a[n_] := BellB[n]-b[n, 0, 0, {}]; Table[a[n], {n, 0, 18}] (* Jean-François Alcover, Feb 03 2017, translated from Maple *)

Formula

a(n) = A000110(n) - A272064(n).
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.