OFFSET
0,6
COMMENTS
The Heinz number of a 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}]]]];
Table[If[n==1, 1, Times@@primeMS[n]/GCD@@primeMS[n]^PrimeOmega[n]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 23 2018
STATUS
approved