OFFSET
1,10
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..65537
EXAMPLE
The partition with Heinz number 7865 is (6,5,5,3), with diagram:
o o o o o o
o o o o o .
o o o o o .
o o o . . .
The size of the complement (shown in dots) in a 6 X 4 rectangle is 5, so a(7865) = 5.
MATHEMATICA
Table[If[n==1, 0, With[{y=Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]}, Max[y]*Length[y]-Total[y]]], {n, 100}]
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 26 2019
EXTENSIONS
Data section extended up to term a(100) by Antti Karttunen, Feb 10 2023
STATUS
approved