A338552 Non-powers of primes whose prime indices have a common divisor > 1.
21, 39, 57, 63, 65, 87, 91, 111, 115, 117, 129, 133, 147, 159, 171, 183, 185, 189, 203, 213, 235, 237, 247, 259, 261, 267, 273, 299, 301, 303, 305, 319, 321, 325, 333, 339, 351, 365, 371, 377, 387, 393, 399, 417, 427, 441, 445, 453, 477, 481, 489, 497, 507
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 21: {2,4} 183: {2,18} 305: {3,18} 39: {2,6} 185: {3,12} 319: {5,10} 57: {2,8} 189: {2,2,2,4} 321: {2,28} 63: {2,2,4} 203: {4,10} 325: {3,3,6} 65: {3,6} 213: {2,20} 333: {2,2,12} 87: {2,10} 235: {3,15} 339: {2,30} 91: {4,6} 237: {2,22} 351: {2,2,2,6} 111: {2,12} 247: {6,8} 365: {3,21} 115: {3,9} 259: {4,12} 371: {4,16} 117: {2,2,6} 261: {2,2,10} 377: {6,10} 129: {2,14} 267: {2,24} 387: {2,2,14} 133: {4,8} 273: {2,4,6} 393: {2,32} 147: {2,4,4} 299: {6,9} 399: {2,4,8} 159: {2,16} 301: {4,14} 417: {2,34} 171: {2,2,8} 303: {2,26} 427: {4,18}
Crossrefs
A327685 allows nonprime prime powers.
A338330 is the coprime instead of relatively prime version.
A338554 counts the partitions with these Heinz numbers.
A338555 is the complement.
A000740 counts relatively prime compositions.
A051424 counts pairwise coprime or singleton partitions.
A302696 gives the Heinz numbers of pairwise coprime partitions.
Programs
-
Mathematica
Select[Range[100],!(#==1||PrimePowerQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1)&]
Comments