A322388 Heinz numbers of 2-vertex-connected integer partitions.

13, 29, 37, 39, 43, 47, 61, 65, 71, 73, 79, 87, 89, 91, 101, 107, 111, 113, 117, 129, 137, 139, 149, 151, 163, 167, 169, 173, 181, 183, 185, 193, 195, 197, 199, 203, 213, 223, 229, 233, 235, 237, 239, 247, 251, 257, 259, 261, 263, 267, 269, 271, 273, 281

Offset: 1

Author

Gus Wiseman, Dec 05 2018

Keywords

• nonn

Comments

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

An integer partition is 2-vertex-connected if the prime factorizations of the parts form a connected hypergraph that is still connected if any single prime number is divided out of all the parts (and any parts then equal to 1 are removed).

Examples

			The sequence of all 2-vertex-connected integer partitions begins: (1), (6), (10), (12), (6,2), (14), (15), (18), (6,3), (20), (21), (22), (10,2), (24), (6,4), (26), (28), (12,2), (30), (6,2,2), (14,2), (33), (34), (35), (36), (38), (39), (6,6), (40), (42), (18,2), (12,3), (44), (6,3,2), (45), (46).
		

Links

• Wikipedia, k-vertex-connected graph

Crossrefs

Cf. A003963, A013922, A056239, A095983, A112798, A218970, A275307, A304716, A305078, A305079, A322336, A322338, A322387, A322389, A322390.

Programs

Mathematica

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&]