OFFSET
1,1
COMMENTS
Also numbers n > 1 such that A290104(n) > 1.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
EXAMPLE
Sequence of partitions whose product is greater than their LCM begins: (22), (221), (42), (33), (222), (2211), (62), (421), (322), (44), (331), (2221), (82), (422), (63), (22111), (332), (621), (2222), (4211).
MATHEMATICA
Select[Range[2, 300], With[{pms=Flatten[Cases[FactorInteger[#], {p_, k_}:>Table[PrimePi[p], {k}]]]}, Times@@pms/LCM@@pms>1]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 03 2018
STATUS
approved