A320456 -id:A320456 - cp's OEIS frontend

A329555 Smallest MM-number of a clutter (connected antichain) of n distinct sets.

1, 2, 377, 16211, 761917

Offset: 0

Gus Wiseman, Nov 17 2019

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

			The sequence of terms together with their corresponding systems begins:
       1: {}
       2: {{}}
     377: {{1,2},{1,3}}
   16211: {{1,2},{1,3},{1,4}}
  761917: {{1,2},{1,3},{1,4},{2,3}}

Spanning cutters of distinct sets are counted by A048143.
MM-numbers of connected weak-antichains are A329559.
MM-numbers of sets of sets are A302494.
The smallest BII-number of a clutter with n edges is A329627.
Not requiring the edges to form an antichain gives A329552.
Connected numbers are A305078.
Stable numbers are A316476.
Cf. A056239, A112798, A302242, A319837, A320275, A322113, A327076, A328514, A329552, A329558, A329560, A329561.
Other MM-numbers: A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A329559 (clutters).

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
zsm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],GCD@@s[[#]]>1&]},If[c=={},s,zsm[Sort[Append[Delete[s,List/@c[[1]]],LCM@@s[[c[[1]]]]]]]]];
dae=Select[Range[100000],SquareFreeQ[#]&&And@@SquareFreeQ/@primeMS[#]&&Length[zsm[primeMS[#]]]<=1&&stableQ[primeMS[#],Divisible]&];
Table[dae[[Position[PrimeOmega/@dae,k][[1,1]]]],{k,First[Split[Union[PrimeOmega/@dae],#2==#1+1&]]}]

A329558 Product of primes indexed by the first n squarefree numbers.

Original entry on oeis.org

1, 2, 6, 30, 330, 4290, 72930, 2114970, 65564070, 2688126870, 115589455410, 5432704404270, 320529559851930, 21475480510079310, 1567710077235789630, 123849096101627380770, 10279474976435072603910, 1038226972619942332994910, 113166740015573714296445190, 12787841621759829715498306470

Offset: 0

Gus Wiseman, Nov 17 2019

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}. Then a(n) is the smallest MM-number of a set of n sets.

			The sequence of terms together with their corresponding systems begins:
        1: {}
        2: {{}}
        6: {{},{1}}
       30: {{},{1},{2}}
      330: {{},{1},{2},{3}}
     4290: {{},{1},{2},{3},{1,2}}
    72930: {{},{1},{2},{3},{1,2},{4}}
  2114970: {{},{1},{2},{3},{1,2},{4},{1,3}}

Jinyuan Wang, Table of n, a(n) for n = 0..100

The smallest BII-number of a set of n sets is A000225(n).
MM-numbers of sets of sets are A302494.
The case without empty edges is A329557.
The case without singletons is A329556.
The case without empty edges or singletons is A329554.
The connected version is A329552.
Cf. A005117, A048672, A056239, A072639, A112798, A302242, A326031, A329555.
Classes of MM-numbers: A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A329559 (clutters).

sqvs=Select[Range[30],SquareFreeQ];
Table[Times@@Prime/@Take[sqvs,k],{k,0,Length[sqvs]}]

a(n > 0) = 2 * A329557(n - 1).

a(n) = Product_{i = 1..n} prime(A005117(i)).

a(19) from Jinyuan Wang, Feb 24 2020

A319837 Numbers whose distinct prime indices are pairwise indivisible and whose own prime indices span an initial interval of positive integers.

Original entry on oeis.org

1, 2, 3, 4, 7, 8, 9, 13, 15, 16, 19, 27, 32, 35, 37, 45, 49, 53, 61, 64, 69, 75, 81, 89, 91, 95, 113, 128, 131, 135, 141, 143, 145, 151, 161, 165, 169, 175, 207, 223, 225, 243, 245, 247, 251, 256, 265, 281, 299, 309, 311, 329, 343, 355, 359, 361, 375, 377, 385

Offset: 1

Gus Wiseman, Dec 16 2018

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset multisystem with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}. This sequence lists all MM-numbers of not necessarily strict antichains of multisets spanning an initial interval of positive integers.

			The sequence of multisystems whose MM-numbers belong to the sequence begins:
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   7: {{1,1}}
   8: {{},{},{}}
   9: {{1},{1}}
  13: {{1,2}}
  15: {{1},{2}}
  16: {{},{},{},{}}
  19: {{1,1,1}}
  27: {{1},{1},{1}}
  32: {{},{},{},{},{}}
  35: {{2},{1,1}}
  37: {{1,1,2}}
  45: {{1},{1},{2}}
  49: {{1,1},{1,1}}
  53: {{1,1,1,1}}
  61: {{1,2,2}}
  64: {{},{},{},{},{},{}}
  69: {{1},{2,2}}
  75: {{1},{2},{2}}
  81: {{1},{1},{1},{1}}
  89: {{1,1,1,2}}
  91: {{1,1},{1,2}}
  95: {{2},{1,1,1}}

Cf. A003963, A006126, A055932, A056239, A112798, A285572, A290103, A293993, A302242, A304713, A316476, A318401, A319721, A320275, A320456.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
Select[Range[200],And[normQ[primeMS/@primeMS[#]],stableQ[primeMS[#],Divisible]]&]

A320275 Numbers whose distinct prime indices are pairwise indivisible and whose own prime indices are connected and span an initial interval of positive integers.

Original entry on oeis.org

2, 3, 7, 9, 13, 19, 27, 37, 49, 53, 61, 81, 89, 91, 113, 131, 151, 169, 223, 243, 247, 251, 281, 299, 311, 343, 359, 361, 377, 427, 463, 503, 593, 611, 637, 659, 689, 703, 719, 729, 791, 827, 851, 863, 923, 953, 1069, 1073, 1159, 1163, 1183, 1291, 1321, 1339

Offset: 1

Gus Wiseman, Dec 16 2018

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset multisystem with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}. This sequence lists all MM-numbers of not necessarily strict connected antichains of multisets spanning an initial interval of positive integers.

			The sequence of multisystems whose MM-numbers belong to the sequence begins:
    2: {{}}
    3: {{1}}
    7: {{1,1}}
    9: {{1},{1}}
   13: {{1,2}}
   19: {{1,1,1}}
   27: {{1},{1},{1}}
   37: {{1,1,2}}
   49: {{1,1},{1,1}}
   53: {{1,1,1,1}}
   61: {{1,2,2}}
   81: {{1},{1},{1},{1}}
   89: {{1,1,1,2}}
   91: {{1,1},{1,2}}
  113: {{1,2,3}}
  131: {{1,1,1,1,1}}
  151: {{1,1,2,2}}
  169: {{1,2},{1,2}}

Cf. A003963, A006126, A055932, A056239, A112798, A285572, A286520, A290103, A293994, A302242, A316476, A319496, A319837, A320456, A320532.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
zsm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[Less@@#,GCD@@s[[#]]]>1&]},If[c=={},s,zsm[Sort[Append[Delete[s,List/@c[[1]]],LCM@@s[[c[[1]]]]]]]]];
stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
Select[Range[200],And[normQ[primeMS/@primeMS[#]],stableQ[primeMS[#],Divisible],Length[zsm[primeMS[#]]]==1]&]

A320463 MM-numbers of labeled simple hypergraphs with no singletons spanning an initial interval of positive integers.

Original entry on oeis.org

1, 13, 113, 377, 611, 1291, 1363, 1469, 1937, 2021, 2117, 3277, 4537, 4859, 5249, 5311, 7423, 8249, 8507, 16211, 16403, 16559, 16783, 16837, 17719, 20443, 20453, 24553, 25477, 26273, 26969, 27521, 34567, 37439, 39437, 41689, 42011, 42137, 42601, 43873, 43957

Offset: 1

Gus Wiseman, Oct 13 2018

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset multisystem with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}.

			The sequence of terms together with their multiset multisystems begins:
      1: {}
     13: {{1,2}}
    113: {{1,2,3}}
    377: {{1,2},{1,3}}
    611: {{1,2},{2,3}}
   1291: {{1,2,3,4}}
   1363: {{1,3},{2,3}}
   1469: {{1,2},{1,2,3}}
   1937: {{1,2},{3,4}}
   2021: {{1,4},{2,3}}
   2117: {{1,3},{2,4}}
   3277: {{1,3},{1,2,3}}
   4537: {{1,2},{1,3,4}}
   4859: {{1,4},{1,2,3}}
   5249: {{1,3},{1,2,4}}
   5311: {{2,3},{1,2,3}}
   7423: {{1,2},{2,3,4}}
   8249: {{2,4},{1,2,3}}
   8507: {{2,3},{1,2,4}}
  16211: {{1,2},{1,3},{1,4}}

Wikipedia, Hypergraph

Cf. A003963, A005117, A055932, A056239, A112798, A255906, A290103, A302242, A302478, A305052.

Cf. A320456, A320458, A320464, A320532, A320533.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
Select[Range[10000],And[SquareFreeQ[#],normQ[primeMS/@primeMS[#]],And@@(And[SquareFreeQ[#],PrimeOmega[#]>1]&/@primeMS[#])]&]

A320464 MM-numbers of labeled multi-hypergraphs with no singletons spanning an initial interval of positive integers.

Original entry on oeis.org

1, 13, 113, 169, 377, 611, 1291, 1363, 1469, 1937, 2021, 2117, 2197, 3277, 4537, 4859, 4901, 5249, 5311, 7423, 7943, 8249, 8507, 10933, 12769, 16211, 16403, 16559, 16783, 16837, 17719, 19097, 20443, 20453, 24553, 25181, 25477, 26273, 26969, 27521, 28561, 28717

Offset: 1

Gus Wiseman, Oct 13 2018

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset multisystem with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}.

			The sequence of terms together with their multiset multisystems begins:
     1: {}
    13: {{1,2}}
   113: {{1,2,3}}
   169: {{1,2},{1,2}}
   377: {{1,2},{1,3}}
   611: {{1,2},{2,3}}
  1291: {{1,2,3,4}}
  1363: {{1,3},{2,3}}
  1469: {{1,2},{1,2,3}}
  1937: {{1,2},{3,4}}
  2021: {{1,4},{2,3}}
  2117: {{1,3},{2,4}}
  2197: {{1,2},{1,2},{1,2}}
  3277: {{1,3},{1,2,3}}
  4537: {{1,2},{1,3,4}}
  4859: {{1,4},{1,2,3}}
  4901: {{1,2},{1,2},{1,3}}
  5249: {{1,3},{1,2,4}}
  5311: {{2,3},{1,2,3}}
  7423: {{1,2},{2,3,4}}
  7943: {{1,2},{1,2},{2,3}}
  8249: {{2,4},{1,2,3}}
  8507: {{2,3},{1,2,4}}

Wikipedia, Hypergraph

Cf. A003963, A055932, A056239, A112798, A255906, A290103, A302242, A302478, A305052.

Cf. A320456, A320459, A320463, A320532, A320533.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
Select[Range[10000],And[normQ[primeMS/@primeMS[#]],And@@(And[SquareFreeQ[#],PrimeOmega[#]>1]&/@primeMS[#])]&]

A329554 Smallest MM-number of a set of n nonempty sets with no singletons.

Original entry on oeis.org

1, 13, 377, 16211, 761917, 55619941, 4393975339, 443791509239, 50148440544007, 6870336354528959, 954976753279525301, 142291536238649269849, 23193520406899830985387, 3873317907952271774559629, 701070541339361191195292849, 139513037726532877047863276951

Offset: 0

Gus Wiseman, Nov 17 2019

nonn

A multiset multisystem is a finite multiset of finite multisets. A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset multisystem with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}.

			The sequence of terms together with their corresponding systems begins:
       1: {}
      13: {{1,2}}
     377: {{1,2},{1,3}}
   16211: {{1,2},{1,3},{1,4}}
  761917: {{1,2},{1,3},{1,4},{2,3}}

The smallest BII-number of a set of n sets is A000225(n).
BII-numbers of set-systems with no singletons are A326781.
MM-numbers of sets of nonempty sets are the odd terms of A302494.
MM-numbers of multisets of nonempty non-singleton sets are A320629.
The version with empty edges is A329556.
The version with singletons is A329557.
The version with empty edges and singletons is A329558.
Cf. A056239, A072639, A112798, A279952, A302242, A326031, A329552, A329556.
Classes of MM-numbers: A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A329559 (clutters).

sqvs=Select[Range[2,30],SquareFreeQ[#]&&!PrimeQ[#]&];
Table[Times@@Prime/@Take[sqvs,k],{k,0,Length[sqvs]}]

a(n) = Product_{i = 1..n} prime(A120944(i)).

A329556 Smallest MM-number of a set of n sets with no singletons.

Original entry on oeis.org

1, 2, 26, 754, 32422, 1523834

Offset: 0

Gus Wiseman, Nov 17 2019

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

			The sequence of terms together with their corresponding systems begins:
        1: {}
        2: {{}}
       26: {{},{1,2}}
      754: {{},{1,2},{1,3}}
    32422: {{},{1,2},{1,3},{1,4}}
  1523834: {{},{1,2},{1,3},{1,4},{2,3}}

MM-numbers of sets of sets with no singletons are A329630.
The case without empty edges is A329554.
MM-numbers of sets of sets are A302494.
Cf. A056239, A112798, A302242, A329552, A329557, A329558.
Classes of MM-numbers: A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A329559 (clutters).

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
dae=Select[Range[100000],SquareFreeQ[#]&&And@@SquareFreeQ/@primeMS[#]&&FreeQ[primeMS[#],_?PrimeQ]&];
Table[dae[[Position[PrimeOmega/@dae,k][[1,1]]]],{k,First[Split[Union[PrimeOmega/@dae],#2==#1+1&]]}]

A371447 Numbers whose binary indices of prime indices cover an initial interval of positive integers.

Original entry on oeis.org

1, 2, 4, 5, 6, 8, 10, 12, 15, 16, 17, 18, 20, 24, 25, 26, 30, 32, 33, 34, 35, 36, 40, 42, 45, 47, 48, 50, 51, 52, 54, 55, 60, 64, 65, 66, 68, 70, 72, 75, 78, 80, 84, 85, 86, 90, 94, 96, 99, 100, 102, 104, 105, 108, 110, 119, 120, 123, 125, 126, 127, 128, 130

Offset: 1

Gus Wiseman, Mar 31 2024

nonn

Also Heinz numbers of integer partitions whose parts have binary indices covering an initial interval.
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.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The terms together with their binary indices of prime indices begin:
   1: {}
   2: {{1}}
   4: {{1},{1}}
   5: {{1,2}}
   6: {{1},{2}}
   8: {{1},{1},{1}}
  10: {{1},{1,2}}
  12: {{1},{1},{2}}
  15: {{2},{1,2}}
  16: {{1},{1},{1},{1}}
  17: {{1,2,3}}
  18: {{1},{2},{2}}
  20: {{1},{1},{1,2}}
  24: {{1},{1},{1},{2}}
  25: {{1,2},{1,2}}
  26: {{1},{2,3}}
  30: {{1},{2},{1,2}}
  32: {{1},{1},{1},{1},{1}}

For prime indices of prime indices we have A320456.
For binary indices of binary indices we have A326754.
An opposite version is A371292, A371293.
The case with squarefree product of prime indices is A371448.
The connected components of this multiset system are counted by A371451.
A000009 counts partitions covering initial interval, compositions A107429.
A000670 counts patterns, ranked by A333217.
A011782 counts multisets covering an initial interval.
A048793 lists binary indices, reverse A272020, length A000120, sum A029931.
A070939 gives length of binary expansion.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A131689 counts patterns by number of distinct parts.
Cf. A000040, A000961, A019565, A055887, A255906, A325097, A325118, A326782, A368109, A371452.

normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],normQ[Join@@bpe/@prix[#]]&]

A329629 Products of distinct odd primes of squarefree index.

Original entry on oeis.org

1, 3, 5, 11, 13, 15, 17, 29, 31, 33, 39, 41, 43, 47, 51, 55, 59, 65, 67, 73, 79, 83, 85, 87, 93, 101, 109, 113, 123, 127, 129, 137, 139, 141, 143, 145, 149, 155, 157, 163, 165, 167, 177, 179, 181, 187, 191, 195, 199, 201, 205, 211, 215, 219, 221, 233, 235, 237

Offset: 1

Gus Wiseman, Nov 18 2019

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}. This sequence lists all MM-numbers of set-systems (sets of nonempty sets).

			The sequence of terms together with their corresponding set-systems begins:
   1: {}
   3: {{1}}
   5: {{2}}
  11: {{3}}
  13: {{1,2}}
  15: {{1},{2}}
  17: {{4}}
  29: {{1,3}}
  31: {{5}}
  33: {{1},{3}}
  39: {{1},{1,2}}
  41: {{6}}
  43: {{1,4}}
  47: {{2,3}}
  51: {{1},{4}}
  55: {{2},{3}}
  59: {{7}}
  65: {{2},{1,2}}
  67: {{8}}
  73: {{2,4}}

Allowing even terms (systems with empty edges) gives A302494.
Cf. A005117, A056239, A112798, A302242, A327398, A328514, A329557, A329630.
Classes of MM-numbers: A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A329559 (clutters).

Select[Range[100],OddQ[#]&&SquareFreeQ[#]&&And@@SquareFreeQ/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]&]

cp's OEIS Frontend

A329555 Smallest MM-number of a clutter (connected antichain) of n distinct sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A329558 Product of primes indexed by the first n squarefree numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A319837 Numbers whose distinct prime indices are pairwise indivisible and whose own prime indices span an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A320275 Numbers whose distinct prime indices are pairwise indivisible and whose own prime indices are connected and span an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A320463 MM-numbers of labeled simple hypergraphs with no singletons spanning an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A320464 MM-numbers of labeled multi-hypergraphs with no singletons spanning an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A329554 Smallest MM-number of a set of n nonempty sets with no singletons.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A329556 Smallest MM-number of a set of n sets with no singletons.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371447 Numbers whose binary indices of prime indices cover an initial interval of positive integers.