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.

A329628 Smallest BII-number of an intersecting antichain with n edges.

Original entry on oeis.org

0, 1, 20, 52, 2880, 275520
Offset: 0

Views

Author

Gus Wiseman, Nov 28 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. Every set-system (finite set of finite nonempty sets of positive integers) has a different BII-number. For example, 18 has reversed binary expansion (0,1,0,0,1), and since the binary indices of 2 and 5 are {2} and {1,3} respectively, the BII-number of {{2},{1,3}} is 18. Elements of a set-system are sometimes called edges. Elements of a set-system are sometimes called edges.
A set-system is intersecting if no two edges are disjoint. It is an antichain if no edge is a proper subset of any other.

Examples

			The sequence of terms together with their corresponding set-systems begins:
       0: {}
       1: {{1}}
      20: {{1,2},{1,3}}
      52: {{1,2},{1,3},{2,3}}
    2880: {{1,2,3},{1,4},{2,4},{3,4}}
  275520: {{1,2,3},{1,2,4},{1,3,4},{2,3,4},{1,2,5}}
		

Crossrefs

The not necessarily intersecting version is A329626.
MM-numbers of intersecting antichains are A329366.
BII-numbers of antichains are A326704.
BII-numbers of intersecting set-systems are A326910.
BII-numbers of intersecting antichains are A329561.
Covering intersecting antichains of sets are A305844.
Non-isomorphic intersecting antichains of multisets are A306007.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    First/@GatherBy[Select[Range[0,10000],stableQ[bpe/@bpe[#],SubsetQ[#1,#2]||Intersection[#1,#2]=={}&]&],Length[bpe[#]]&]

A328871 Number of integer partitions of n whose distinct parts are pairwise indivisible (stable) and pairwise non-relatively prime (intersecting).

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 4, 2, 4, 3, 5, 2, 6, 2, 7, 5, 7, 2, 10, 2, 11, 7, 14, 2, 16, 4, 19, 8, 22, 2, 30, 3, 29, 14, 37, 8, 48, 4, 50, 19, 59, 5, 82, 4, 81, 28, 93, 8, 128, 9, 128, 38, 147, 8, 199, 19, 196, 52, 223, 12, 308
Offset: 0

Views

Author

Gus Wiseman, Nov 12 2019

Keywords

Comments

A partition with no two distinct parts divisible is said to be stable, and a partition with no two distinct parts relatively prime is said to be intersecting, so these are just stable intersecting partitions.

Examples

			The a(1) = 1 through a(10) = 5 partitions (A = 10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    11111  33      1111111  44        333        55
              1111         222              2222      111111111  64
                           111111           11111111             22222
                                                                 1111111111
		

Crossrefs

The Heinz numbers of these partitions are A329366.
Replacing "intersecting" with "relatively prime" gives A328676.
Stable partitions are A305148.
Intersecting partitions are A328673.

Programs

  • Mathematica
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    Table[Length[Select[IntegerPartitions[n],stableQ[Union[#],Divisible]&&stableQ[Union[#],GCD[#1,#2]==1&]&]],{n,0,30}]
Showing 1-2 of 2 results.