OFFSET
1,9
COMMENTS
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
EXAMPLE
The partition with Heinz number 715 is (6,5,3), with diagram
o o o o o o
o o o o o
o o o
which has inner lining
o o
o o o
o o o
or largest hook
o o o o o o
o
o
both of which have complement
o o o o
o o
which is the partition (4,2) with Heinz number 21, so a(715) = 21.
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[If[n==1, 1, Times@@Prime/@DeleteCases[Most[primeMS[n]]-1, 0]], {n, 100}]
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 02 2019
EXTENSIONS
More terms from Antti Karttunen, Apr 14 2019
STATUS
approved