OFFSET
1,2
COMMENTS
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
MATHEMATICA
Select[Range[200], And[SquareFreeQ[#], And@@(GCD[##]>1&)@@@Select[Tuples[PrimePi/@FactorInteger[#][[All, 1]], 2], Less@@#&]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 02 2018
STATUS
approved