OFFSET
1,1
COMMENTS
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
EXAMPLE
Sequence of reversed integer partitions begins: (22), (123), (1124), (11222), (11133), (11125), (111126), (1111134), (11111223), (1111127), (11111128), (111111135), (111111129), (1111111144), (11111111224), (111111112222).
MATHEMATICA
primeMS[n_]:=If[n===1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[200000], !PrimeQ[#]&&Total[primeMS[#]]===Times@@primeMS[#]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 30 2018
STATUS
approved