OFFSET
1,1
COMMENTS
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
EXAMPLE
The sequence of integer partitions with Heinz numbers in this sequence begins: (1), (2222), (633222), (4444222), (66333322).
MATHEMATICA
Select[Range[100000], Total[If[#==1, {}, Cases[FactorInteger[#], {p_, k_}:>k/PrimePi[p]^2]]]==1&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 29 2018
EXTENSIONS
a(6)-a(26) from Alois P. Heinz, Aug 30 2018
STATUS
approved