A305079 -id:A305079 - cp's OEIS frontend

A305832 Number of connected components of the n-th FDH set-system.

0, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 2, 2, 2, 1, 1, 2, 1, 3, 1, 3, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 3, 2, 2, 1, 3, 1, 2, 2, 2, 1, 3, 1, 2, 2, 3, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, 2, 1, 3, 2, 2, 1

Offset: 1

Gus Wiseman, Jun 10 2018

nonn

Let f(n) = A050376(n) be the n-th Fermi-Dirac prime. Every positive integer n has a unique factorization of the form n = f(s_1)*...*f(s_k) where the s_i are strictly increasing positive integers. The n-th FDH set-system is obtained by repeating this factorization on each index s_i.

			Let f = A050376. The FD-factorization of 765 is 5*9*17 or f(4)*f(6)*f(10) = f(4)*f(2*3)*f(2*5) with connected components {{{4}},{{2,3},{2,5}}}, so a(765) = 2.

Cf. A048143, A050376, A064547, A213925, A299755, A299756, A304714, A304716, A305078, A305079, A305829, A305830, A305831.

FDfactor[n_]:=If[n===1,{},Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>Power[p,Cases[Position[IntegerDigits[k,2]//Reverse,1],{m_}->2^(m-1)]]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>1]&]},If[c=={},s,csm[Union[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
nn=100;FDprimeList=Array[FDfactor,nn,1,Union];FDrules=MapIndexed[(#1->#2[[1]])&,FDprimeList];
Table[Length[csm[FDfactor[#]/.FDrules&/@(FDfactor[n]/.FDrules)]],{n,nn}]

A322367 Number of disconnected or empty integer partitions of n.

Original entry on oeis.org

1, 0, 1, 2, 3, 6, 7, 14, 17, 27, 34, 54, 63, 98, 118, 165, 207, 287, 345, 474, 574, 757, 931, 1212, 1463, 1890, 2292, 2898, 3515, 4413, 5303

Offset: 0

Gus Wiseman, Dec 04 2018

An integer partition is connected if the prime factorizations of its parts form a connected hypergraph. It is disconnected if it can be separated into two or more integer partitions with relatively prime products. For example, the integer partition (654321) has three connected components: (6432)(5)(1).

			The a(3) = 2 through a(9) = 27 disconnected integer partitions:
  (21)   (31)    (32)     (51)      (43)       (53)        (54)
  (111)  (211)   (41)     (321)     (52)       (71)        (72)
         (1111)  (221)    (411)     (61)       (332)       (81)
                 (311)    (2211)    (322)      (431)       (432)
                 (2111)   (3111)    (331)      (521)       (441)
                 (11111)  (21111)   (421)      (611)       (522)
                          (111111)  (511)      (3221)      (531)
                                    (2221)     (3311)      (621)
                                    (3211)     (4211)      (711)
                                    (4111)     (5111)      (3222)
                                    (22111)    (22211)     (3321)
                                    (31111)    (32111)     (4221)
                                    (211111)   (41111)     (4311)
                                    (1111111)  (221111)    (5211)
                                               (311111)    (6111)
                                               (2111111)   (22221)
                                               (11111111)  (32211)
                                                           (33111)
                                                           (42111)
                                                           (51111)
                                                           (222111)
                                                           (321111)
                                                           (411111)
                                                           (2211111)
                                                           (3111111)
                                                           (21111111)
                                                           (111111111)

Cf. A054921, A218970, A286518, A322335, A304714, A304716, A305078, A305079, A322306, A322307, A322337, A322338, A322368, A322369.

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]]]]]]]]];
Table[Length[Select[IntegerPartitions[n],Length[zsm[#]]!=1&]],{n,20}]

A322393 Regular triangle read by rows where T(n,k) is the number of integer partitions of n with edge-connectivity k, for 0 <= k <= n.

Original entry on oeis.org

1, 0, 1, 1, 1, 0, 2, 1, 0, 0, 3, 1, 1, 0, 0, 6, 1, 0, 0, 0, 0, 7, 1, 2, 1, 0, 0, 0, 14, 1, 0, 0, 0, 0, 0, 0, 17, 1, 2, 1, 1, 0, 0, 0, 0, 27, 1, 1, 1, 0, 0, 0, 0, 0, 0, 34, 1, 3, 2, 1, 1, 0, 0, 0, 0, 0, 54, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 1, 4, 4, 3, 1, 1

Offset: 0

Gus Wiseman, Dec 06 2018

The edge connectivity of an integer partition is the minimum number of parts that must be removed so that the prime factorizations of the remaining parts form a disconnected (or empty) hypergraph.

			Triangle begins:
   1
   0  1
   1  1  0
   2  1  0  0
   3  1  1  0  0
   6  1  0  0  0  0
   7  1  2  1  0  0  0
  14  1  0  0  0  0  0  0
  17  1  2  1  1  0  0  0  0
  27  1  1  1  0  0  0  0  0  0
  34  1  3  2  1  1  0  0  0  0  0
  54  2  0  0  0  0  0  0  0  0  0  0
  63  1  4  4  3  1  1  0  0  0  0  0  0
Row 6 {7, 1, 2, 1} counts the following integer partitions:
  (51)      (6)  (33)  (222)
  (321)          (42)
  (411)
  (2211)
  (3111)
  (21111)
  (111111)

Wikipedia, k-edge-connected graph

Row sums are A000041. First column is A322367. Second column is A322391.

Cf. A013922, A054921, A095983, A304716, A305078, A305079, A322335, A322336, A322337, A322338, A322387.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
edgeConn[y_]:=Length[y]-Max@@Length/@Select[Union[Subsets[y]],Length[csm[primeMS/@#]]!=1&]
Table[Length[Select[IntegerPartitions[n],edgeConn[#]==k&]],{n,10},{k,0,n}]

A329553 Smallest MM-number of a connected set of n multisets.

Original entry on oeis.org

1, 2, 21, 195, 1365, 25935, 435435

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: {{}}
      21: {{1},{1,1}}
     195: {{1},{2},{1,2}}
    1365: {{1},{2},{1,1},{1,2}}
   25935: {{1},{2},{1,1},{1,2},{1,1,1}}
  435435: {{1},{2},{1,1},{3},{1,2},{1,3}}

MM-numbers of connected sets of sets are A328514.
The weight of the system with MM-number n is A302242(n).
Connected numbers are A305078.
Maximum connected divisor is A327076.
BII-numbers of connected set-systems are A326749.
The smallest BII-number of a connected set-system is A329625.
The case of strict edges is A329552.
The smallest MM-number of a set of n nonempty sets is A329557(n).
Cf. A056239, A112798, A302494, A305079, A329554, A329555, A329556, 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}]]]];
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[#]&&Length[zsm[primeMS[#]]]<=1&];
Table[dae[[Position[PrimeOmega/@dae,k][[1,1]]]],{k,First[Split[Union[PrimeOmega/@dae],#2==#1+1&]]}]

A340104 Products of distinct primes of nonprime index (A007821).

Original entry on oeis.org

1, 2, 7, 13, 14, 19, 23, 26, 29, 37, 38, 43, 46, 47, 53, 58, 61, 71, 73, 74, 79, 86, 89, 91, 94, 97, 101, 103, 106, 107, 113, 122, 131, 133, 137, 139, 142, 146, 149, 151, 158, 161, 163, 167, 173, 178, 181, 182, 193, 194, 197, 199, 202, 203, 206, 214, 223, 226

Offset: 1

Gus Wiseman, Mar 12 2021

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 sequence of terms together with the corresponding prime indices of prime indices begins:
     1: {}              58: {{},{1,3}}        113: {{1,2,3}}
     2: {{}}            61: {{1,2,2}}         122: {{},{1,2,2}}
     7: {{1,1}}         71: {{1,1,3}}         131: {{1,1,1,1,1}}
    13: {{1,2}}         73: {{2,4}}           133: {{1,1},{1,1,1}}
    14: {{},{1,1}}      74: {{},{1,1,2}}      137: {{2,5}}
    19: {{1,1,1}}       79: {{1,5}}           139: {{1,7}}
    23: {{2,2}}         86: {{},{1,4}}        142: {{},{1,1,3}}
    26: {{},{1,2}}      89: {{1,1,1,2}}       146: {{},{2,4}}
    29: {{1,3}}         91: {{1,1},{1,2}}     149: {{3,4}}
    37: {{1,1,2}}       94: {{},{2,3}}        151: {{1,1,2,2}}
    38: {{},{1,1,1}}    97: {{3,3}}           158: {{},{1,5}}
    43: {{1,4}}        101: {{1,6}}           161: {{1,1},{2,2}}
    46: {{},{2,2}}     103: {{2,2,2}}         163: {{1,8}}
    47: {{2,3}}        106: {{},{1,1,1,1}}    167: {{2,6}}
    53: {{1,1,1,1}}    107: {{1,1,4}}         173: {{1,1,1,3}}

These primes (of nonprime index) are listed by A007821.
The non-strict version is A320628, with odd case A320629.
The odd case is A340105.
The prime instead of nonprime version:
  primes: A006450
  products: A076610
  strict: A302590
The semiprime instead of nonprime version:
  primes: A106349
  products: A339112
  strict: A340020
The squarefree semiprime instead of nonprime version:
  strict: A309356
  primes: A322551
  products: A339113
A056239 gives the sum of prime indices, which are listed by A112798.
A257994 counts prime prime indices.
A302242 is the weight of the multiset of multisets with MM-number n.
A305079 is the number of connected components for MM-number n.
A320911 lists products of squarefree semiprimes (Heinz numbers of A338914).
A320912 lists products of distinct semiprimes (Heinz numbers of A338916).
A330944 counts nonprime prime indices.
A330945 lists numbers with a nonprime prime index (nonprime case: A330948).
A339561 lists products of distinct squarefree semiprimes (A339560).
MM-numbers: A255397 (normal), A302478 (set multisystems), A320630 (set multipartitions), A302494 (sets of sets), A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A328514 (connected sets of sets), A329559 (clutters), A340019 (half-loop graphs).
Cf. A000040, A000720, A001055, A001222, A003963, A005117, A007097, A018252, A289509, A320461, A320631.

Select[Range[100],SquareFreeQ[#]&&FreeQ[If[#==1,{},FactorInteger[#]],{p_,k_}/;PrimeQ[PrimePi[p]]]&]

Equals A005117 /\ A320628.

A340105 Odd products of distinct primes of nonprime index (A007821).

Original entry on oeis.org

1, 7, 13, 19, 23, 29, 37, 43, 47, 53, 61, 71, 73, 79, 89, 91, 97, 101, 103, 107, 113, 131, 133, 137, 139, 149, 151, 161, 163, 167, 173, 181, 193, 197, 199, 203, 223, 227, 229, 233, 239, 247, 251, 257, 259, 263, 269, 271, 281, 293, 299, 301, 307, 311, 313, 317

Offset: 1

Gus Wiseman, Mar 12 2021

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 sequence of terms together with the corresponding sets of multisets begins:
     1: {}              91: {{1,1},{1,2}}      173: {{1,1,1,3}}
     7: {{1,1}}         97: {{3,3}}            181: {{1,2,4}}
    13: {{1,2}}        101: {{1,6}}            193: {{1,1,5}}
    19: {{1,1,1}}      103: {{2,2,2}}          197: {{2,2,3}}
    23: {{2,2}}        107: {{1,1,4}}          199: {{1,9}}
    29: {{1,3}}        113: {{1,2,3}}          203: {{1,1},{1,3}}
    37: {{1,1,2}}      131: {{1,1,1,1,1}}      223: {{1,1,1,1,2}}
    43: {{1,4}}        133: {{1,1},{1,1,1}}    227: {{4,4}}
    47: {{2,3}}        137: {{2,5}}            229: {{1,3,3}}
    53: {{1,1,1,1}}    139: {{1,7}}            233: {{2,7}}
    61: {{1,2,2}}      149: {{3,4}}            239: {{1,1,6}}
    71: {{1,1,3}}      151: {{1,1,2,2}}        247: {{1,2},{1,1,1}}
    73: {{2,4}}        161: {{1,1},{2,2}}      251: {{1,2,2,2}}
    79: {{1,5}}        163: {{1,8}}            257: {{3,5}}
    89: {{1,1,1,2}}    167: {{2,6}}            259: {{1,1},{1,1,2}}

These primes (of nonprime index) are listed by A007821.
The non-strict version is A320629, with not necessarily odd version A320628.
The not necessarily odd version is A340104.
The prime instead of odd nonprime version:
  primes: A006450
  products: A076610
  strict: A302590
The squarefree semiprime instead of odd nonprime version:
  strict: A309356
  primes: A322551
  products: A339113
The semiprime instead of odd nonprime version:
  primes: A106349
  products: A339112
  strict: A340020
A001358 lists semiprimes.
A056239 gives the sum of prime indices, which are listed by A112798.
A257994 counts prime prime indices.
A302242 is the weight of the multiset of multisets with MM-number n.
A305079 is the number of connected components for MM-number n.
A330944 counts nonprime prime indices.
A330945 lists numbers with a nonprime prime index (nonprime case: A330948).
A339561 lists products of distinct squarefree semiprimes.
MM-numbers: A255397 (normal), A302478 (set multisystems), A320630 (set multipartitions), A302494 (sets of sets), A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A328514 (connected sets of sets), A329559 (clutters), A340019 (half-loop graphs).
Cf. A000040, A000720, A001055, A001222, A003963, A005117, A007097, A018252, A289509, A320461, A320631, A320911, A320912.

Select[Range[1,100,2],SquareFreeQ[#]&&FreeQ[If[#==1,{},FactorInteger[#]],{p_,k_}/;PrimeQ[PrimePi[p]]]&]

Equals A005117 /\ A005408 /\ A320628 = A005117 /\ A320629.

A305106 Number of unitary factorizations of Heinz numbers of integer partitions of n. Number of multiset partitions of integer partitions of n with pairwise disjoint blocks.

Original entry on oeis.org

1, 1, 2, 4, 7, 12, 21, 34, 55, 87, 138, 211, 324, 486, 727, 1079, 1584, 2305, 3337, 4789, 6830, 9712, 13689, 19225, 26841, 37322, 51598, 71108, 97580, 133350, 181558, 246335, 332991, 448706, 602607, 806732, 1077333, 1433885, 1903682, 2520246, 3328549, 4383929

Offset: 0

Gus Wiseman, May 25 2018

nonn

			The a(6) = 21 unitary factorizations:
(13) (21) (22) (25) (27) (28) (30) (36) (40) (48) (64)
(2*11) (2*15) (3*7) (3*10) (3*16) (4*7) (4*9) (5*6) (5*8)
(2*3*5)
The a(6) = 21 multiset partitions:
{{6}}
{{2,4}}
{{1,5}}
{{3,3}}
{{2,2,2}}
{{1,1,4}}
{{1,2,3}}
{{1,1,2,2}}
{{1,1,1,3}}
{{1,1,1,1,2}}
{{1,1,1,1,1,1}}
{{1},{5}}
{{1},{2,3}}
{{2},{4}}
{{2},{1,3}}
{{2},{1,1,1,1}}
{{1,1},{4}}
{{1,1},{2,2}}
{{3},{1,2}}
{{3},{1,1,1}}
{{1},{2},{3}}

Alois P. Heinz, Table of n, a(n) for n = 0..1000

Cf. A000110, A001055, A001221, A001970, A034444, A089233, A258466, A259936, A281116, A285572, A305078, A305079.

Row sums of A321878.

Table[Sum[BellB[Length[Union[y]]],{y,IntegerPartitions[n]}],{n,30}]
(* Second program: *)
b[n_, i_, k_] := b[n, i, k] = If[n == 0, 1, If[i < 1, 0, Sum[With[{t = n - i j}, b[t, Min[t, i - 1], k]], {j, 1, n/i}] k + b[n, i - 1, k]]];
T[n_, k_] := Sum[b[n, n, k - i] (-1)^i Binomial[k, i], {i, 0, k}]/k!;
a[n_] := Sum[T[n, k], {k, 0, Floor[(Sqrt[1 + 8n] - 1)/2]}];
a /@ Range[0, 50] (* Jean-François Alcover, Dec 14 2020, after Alois P. Heinz in A321878 *)

A322368 Heinz numbers of disconnected integer partitions.

Original entry on oeis.org

1, 4, 6, 8, 10, 12, 14, 15, 16, 18, 20, 22, 24, 26, 28, 30, 32, 33, 34, 35, 36, 38, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 58, 60, 62, 64, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 85, 86, 88, 90, 92, 93, 94, 95, 96, 98, 99, 100, 102, 104

Offset: 1

Gus Wiseman, Dec 04 2018

nonn

Differs from A289509 in having 1 and lacking 2, 195, 455, 555, 585...
Also positions of entries > 1 in A305079.
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
An integer partition is connected if the prime factorizations of its parts form a connected hypergraph. It is disconnected if it can be separated into two or more integer partitions with relatively prime products. For example, the integer partition (654321) has three connected components: (6432)(5)(1).

			The sequence of all disconnected integer partitions begins: (11), (21), (111), (31), (211), (41), (32), (1111), (221), (311), (51), (2111), (61), (411), (321), (11111), (52), (71), (43), (2211), (81), (3111), (421), (511), (322), (91), (21111), (331), (72), (611), (2221), (53), (4111).

Cf. A054921, A218970, A286518, A290103, A304714, A304716, A305078, A305079, A322306, A322307, A322338, A322367, A322369.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
Select[Range[200],Length[csm[primeMS/@primeMS[#]]]>1&]

A322369 Number of strict disconnected or empty integer partitions of n.

Original entry on oeis.org

1, 0, 0, 1, 1, 2, 2, 4, 4, 6, 7, 10, 10, 16, 17, 22, 26, 33, 36, 48, 52, 64, 76, 90, 101, 125, 142, 166, 192, 225, 250, 302, 339, 393, 451, 515, 581, 675, 762, 866, 985, 1122, 1255, 1441, 1612, 1823, 2059, 2318, 2591, 2930, 3275, 3668, 4118, 4605, 5125, 5749

Offset: 0

Gus Wiseman, Dec 04 2018

nonn

An integer partition is connected if the prime factorizations of its parts form a connected hypergraph. It is disconnected if it can be separated into two or more integer partitions with relatively prime products. For example, the integer partition (654321) has three connected components: (6432)(5)(1).

			The a(3) = 1 through a(11) = 10 strict disconnected integer partitions:
  (2,1)  (3,1)  (3,2)  (5,1)    (4,3)    (5,3)    (5,4)    (7,3)      (6,5)
                (4,1)  (3,2,1)  (5,2)    (7,1)    (7,2)    (9,1)      (7,4)
                                (6,1)    (4,3,1)  (8,1)    (5,3,2)    (8,3)
                                (4,2,1)  (5,2,1)  (4,3,2)  (5,4,1)    (9,2)
                                                  (5,3,1)  (6,3,1)    (10,1)
                                                  (6,2,1)  (7,2,1)    (5,4,2)
                                                           (4,3,2,1)  (6,4,1)
                                                                      (7,3,1)
                                                                      (8,2,1)
                                                                      (5,3,2,1)

Cf. A054921, A218970, A286518, A304714, A304716, A305078, A305079, A322306, A322307, A322335, A322337, A322338, A322367, A322368.

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]]]]]]]]];
Table[Length[Select[IntegerPartitions[n],And[UnsameQ@@#,Length[zsm[#]]!=1]&]],{n,30}]

A322400 Heinz numbers of integer partitions with vertex-connectivity 1.

Original entry on oeis.org

3, 5, 7, 9, 11, 17, 19, 21, 23, 25, 27, 31, 41, 49, 53, 57, 59, 63, 67, 81, 83, 97, 103, 109, 115, 121, 125, 127, 131, 133, 147, 157, 159, 171, 179, 189, 191, 211, 227, 241, 243, 277, 283, 289, 311, 331, 343, 353, 361, 367, 371, 377, 393, 399, 401, 419, 431

Offset: 1

Gus Wiseman, Dec 06 2018

nonn

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

The vertex-connectivity of an integer partition is the minimum number of primes that must be divided out (and any parts then equal to 1 removed) so that the prime factorizations of the remaining parts form a disconnected (or empty) hypergraph.

			The sequence of all integer partitions with vertex-connectivity 1 begins: (2), (3), (4), (2,2), (5), (7), (8), (4,2), (9), (3,3), (2,2,2), (11), (13), (4,4), (16), (8,2), (17), (4,2,2), (19), (2,2,2,2), (23), (25), (27), (29), (9,3), (5,5), (3,3,3), (31), (32), (8,4), (4,4,2), (37), (16,2), (8,2,2), (41), (4,2,2,2), (43).

Wikipedia, k-vertex-connected graph

Cf. A003963, A013922, A056239, A112798, A302242, A304716, A305078, A305079, A322387, A322388, A322389, A322390, A322390, A322394.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
vertConn[y_]:=If[Length[csm[primeMS/@y]]!=1,0,Min@@Length/@Select[Subsets[Union@@primeMS/@y],Function[del,Length[csm[DeleteCases[DeleteCases[primeMS/@y,Alternatives@@del,{2}],{}]]]!=1]]];
Select[Range[100],vertConn[primeMS[#]]==1&]

cp's OEIS Frontend

A305832 Number of connected components of the n-th FDH set-system.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A322367 Number of disconnected or empty integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A322393 Regular triangle read by rows where T(n,k) is the number of integer partitions of n with edge-connectivity k, for 0 <= k <= n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A329553 Smallest MM-number of a connected set of n multisets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340104 Products of distinct primes of nonprime index (A007821).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A340105 Odd products of distinct primes of nonprime index (A007821).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A305106 Number of unitary factorizations of Heinz numbers of integer partitions of n. Number of multiset partitions of integer partitions of n with pairwise disjoint blocks.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A322368 Heinz numbers of disconnected integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A322369 Number of strict disconnected or empty integer partitions of n.

Views

Author

Keywords