A325623 Heinz numbers of integer partitions whose reciprocal factorial sum is the reciprocal of an integer.
1, 2, 3, 5, 7, 9, 11, 13, 17, 19, 23, 25, 29, 31, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 77, 79, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 221, 223, 227, 229
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 1: {} 2: {1} 3: {2} 5: {3} 7: {4} 9: {2,2} 11: {5} 13: {6} 17: {7} 19: {8} 23: {9} 25: {3,3} 29: {10} 31: {11} 37: {12} 41: {13} 43: {14} 47: {15} 49: {4,4} 53: {16}
Crossrefs
Programs
-
Mathematica
Select[Range[100],IntegerQ[1/Total[Cases[FactorInteger[#],{p_,k_}:>k/PrimePi[p]!]]]&]
Comments