OFFSET
1,1
LINKS
EXAMPLE
The sequence of all integer partitions whose Heinz numbers belong to the sequence begins: (4), (2,2), (8), (4,2), (9), (3,3), (2,2,2), (4,4), (16), (8,2), (4,2,2), (2,2,2,2), (25), (27), (9,3), (5,5), (3,3,3), (32), (8,4), (4,4,2), (16,2), (8,2,2), (4,2,2,2), (49), (2,2,2,2,2)
MATHEMATICA
Select[Range[1000], With[{x=Times@@Cases[FactorInteger[#], {p_, k_}:>PrimePi[p]^k]}, OddQ[#]&&!PrimeQ[x]&&PrimePowerQ[x]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 19 2018
STATUS
approved