A340608 The number of prime factors of n (A001222) is relatively prime to the maximum prime index of n (A061395).
2, 3, 4, 5, 7, 8, 10, 11, 12, 13, 15, 16, 17, 18, 19, 22, 23, 25, 27, 28, 29, 31, 32, 33, 34, 37, 40, 41, 42, 43, 44, 46, 47, 48, 51, 53, 55, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, 73, 76, 77, 79, 80, 82, 83, 85, 88, 89, 90, 93, 94, 97, 98, 99
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 2: {1} 22: {1,5} 44: {1,1,5} 3: {2} 23: {9} 46: {1,9} 4: {1,1} 25: {3,3} 47: {15} 5: {3} 27: {2,2,2} 48: {1,1,1,1,2} 7: {4} 28: {1,1,4} 51: {2,7} 8: {1,1,1} 29: {10} 53: {16} 10: {1,3} 31: {11} 55: {3,5} 11: {5} 32: {1,1,1,1,1} 59: {17} 12: {1,1,2} 33: {2,5} 60: {1,1,2,3} 13: {6} 34: {1,7} 61: {18} 15: {2,3} 37: {12} 62: {1,11} 16: {1,1,1,1} 40: {1,1,1,3} 63: {2,2,4} 17: {7} 41: {13} 64: {1,1,1,1,1,1} 18: {1,2,2} 42: {1,2,4} 66: {1,2,5} 19: {8} 43: {14} 67: {19}
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Note: Heinz numbers are given in parentheses below.
These are the Heinz numbers of the partitions counted by A200750.
A001222 counts prime factors.
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A112798 lists the prime indices of each positive integer.
A259936 counts singleton or pairwise coprime factorizations.
Programs
-
Mathematica
Select[Range[100],GCD[PrimeOmega[#],PrimePi[FactorInteger[#][[-1,1]]]]==1&]
Comments