A326037 Heinz numbers of uniform perfect integer partitions.
1, 2, 4, 6, 8, 16, 32, 42, 64, 100, 128, 256, 512, 798, 1024, 2048, 2744, 4096, 8192, 16384, 32768, 42294, 52900, 65536
Offset: 1
Examples
The sequence of all uniform perfect integer partitions together with their Heinz numbers begins: 1: () 2: (1) 4: (11) 6: (21) 8: (111) 16: (1111) 32: (11111) 42: (421) 64: (111111) 100: (3311) 128: (1111111) 256: (11111111) 512: (111111111) 798: (8421) 1024: (1111111111) 2048: (11111111111) 2744: (444111) 4096: (111111111111) 8192: (1111111111111) 16384: (11111111111111)
Crossrefs
Programs
-
Mathematica
hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]]; Select[Range[1000],SameQ@@Last/@FactorInteger[#]&&Sort[hwt/@Divisors[#]]==Range[0,hwt[#]]&]
Comments