A353699 Heinz numbers of integer partitions whose product equals their length.
2, 6, 20, 36, 56, 176, 240, 416, 864, 1088, 1344, 2432, 3200, 5888, 8448, 14848, 23040, 31744, 35840, 39936, 75776, 167936, 208896, 331776, 352256, 450560, 516096, 770048, 802816, 933888, 1736704, 2457600, 3866624, 4259840, 4521984, 7995392, 12976128, 17563648
Offset: 1
Keywords
Examples
The terms together with their prime indices begin: 2: {1} 6: {1,2} 20: {1,1,3} 36: {1,1,2,2} 56: {1,1,1,4} 176: {1,1,1,1,5} 240: {1,1,1,1,2,3} 416: {1,1,1,1,1,6} 864: {1,1,1,1,1,2,2,2} 1088: {1,1,1,1,1,1,7} 1344: {1,1,1,1,1,1,2,4} 2432: {1,1,1,1,1,1,1,8} 3200: {1,1,1,1,1,1,1,3,3} 5888: {1,1,1,1,1,1,1,1,9} 8448: {1,1,1,1,1,1,1,1,2,5} 14848: {1,1,1,1,1,1,1,1,1,10} 23040: {1,1,1,1,1,1,1,1,1,2,2,3} 31744: {1,1,1,1,1,1,1,1,1,1,11} 35840: {1,1,1,1,1,1,1,1,1,1,3,4} 39936: {1,1,1,1,1,1,1,1,1,1,2,6} 75776: {1,1,1,1,1,1,1,1,1,1,1,12}
Crossrefs
These partitions are counted by A353698.
Programs
-
Mathematica
Select[Range[1000],Times@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]^k]==PrimeOmega[#]&]
Comments