A325780 Heinz numbers of perfect integer partitions.
1, 2, 4, 6, 8, 16, 18, 20, 32, 42, 54, 56, 64, 100, 128, 162, 176, 234, 256, 260, 294, 392, 416, 486, 500, 512, 798, 1024, 1026, 1064, 1088, 1458, 1936, 2048, 2058, 2300, 2432, 2500, 2744, 3042, 3380, 4096, 4374, 4698, 5104, 5408, 5888, 8192, 8658, 9620, 10878
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 1: {} 2: {1} 4: {1,1} 6: {1,2} 8: {1,1,1} 16: {1,1,1,1} 18: {1,2,2} 20: {1,1,3} 32: {1,1,1,1,1} 42: {1,2,4} 54: {1,2,2,2} 56: {1,1,1,4} 64: {1,1,1,1,1,1} 100: {1,1,3,3} 128: {1,1,1,1,1,1,1} 162: {1,2,2,2,2} 176: {1,1,1,1,5} 234: {1,2,2,6} 256: {1,1,1,1,1,1,1,1} 260: {1,1,3,6}
Crossrefs
Programs
-
Mathematica
hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]]; Select[Range[1000],Sort[hwt/@Rest[Divisors[#]]]==Range[DivisorSigma[0,#]-1]&]
Comments