A316855 Heinz numbers of integer partitions whose reciprocal sum is 1.
2, 9, 125, 147, 195, 2401, 3185, 4225, 6475, 6591, 7581, 10101, 10527, 16401, 20445, 20535, 21045, 25365, 46155, 107653, 123823, 142805, 161051, 164255, 164983, 171941, 218855, 228085, 267883, 304175, 312785, 333925, 333935, 335405, 343735, 355355, 390963
Offset: 1
Keywords
Examples
Sequence of all integer partitions whose reciprocal sum is 1 begins: (1), (2,2), (3,3,3), (4,4,2), (6,3,2), (4,4,4,4), (6,4,4,3), (6,6,3,3), (12,4,3,3), (6,6,6,2), (8,8,4,2).
Programs
-
Mathematica
Select[Range[2,10000],Sum[m[[2]]/PrimePi[m[[1]]],{m,FactorInteger[#]}]==1&]
Comments