A322336 Heinz numbers of 2-edge-connected integer partitions.

9, 21, 25, 27, 39, 49, 57, 63, 65, 81, 87, 91, 111, 115, 117, 121, 125, 129, 133, 147, 159, 169, 171, 183, 185, 189, 203, 213, 235, 237, 243, 247, 259, 261, 267, 273, 289, 299, 301, 303, 305, 319, 321, 325, 333, 339, 343, 351, 361, 365, 371, 377, 387, 393, 399

Offset

1,1

Comments

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

An integer partition is 2-edge-connected if the hypergraph of prime factorizations of its parts is connected and cannot be disconnected by removing any single part. For example (6,6,3,2) is 2-edge-connected but (6,3,2) is not.

Links

Table of n, a(n) for n=1..55.

Wikipedia, k-edge-connected graph

Example

The sequence of all 2-edge-connected integer partitions begins: (2,2), (4,2), (3,3), (2,2,2), (6,2), (4,4), (8,2), (4,2,2), (6,3), (2,2,2,2), (10,2), (6,4), (12,2), (9,3), (6,2,2), (5,5), (3,3,3), (14,2), (8,4), (4,4,2).

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]]]]]]]]];
twoedQ[sys_]:=And[Length[csm[sys]]==1, And@@Table[Length[csm[Delete[sys, i]]]==1, {i, Length[sys]}]];
Select[Range[100], twoedQ[primeMS/@primeMS[#]]&]

Crossrefs

Cf. A001222, A003963, A013922, A054921, A056239, A095983, A112798, A218970, A275307, A304714, A304716, A305078, A305079, A322335, A322337, A322338.

Sequence in context: A139392 A274720 A338318 * A327685 A355535 A154384

Adjacent sequences: A322333 A322334 A322335 * A322337 A322338 A322339

Keyword

nonn

Author

Gus Wiseman, Dec 04 2018

Status

approved