OFFSET
1,1
COMMENTS
The first term of this sequence absent from A106543 is 144.
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
ptnmats[n_]:=Union@@Permutations/@Select[Union@@(Tuples[Permutations/@#]&/@Map[primeMS, facs[n], {2}]), SameQ@@Length/@#&];
Select[Range[2, 1000], Select[ptnmats[#], And[SameQ@@Total/@#, SameQ@@Total/@Transpose[#]]&]=={}&]
CROSSREFS
Complement of A323306.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 13 2019
STATUS
approved