|
|
A339563
|
|
Squarefree numbers > 1 whose smallest prime index divides all the other prime indices.
|
|
17
|
|
|
2, 3, 5, 6, 7, 10, 11, 13, 14, 17, 19, 21, 22, 23, 26, 29, 30, 31, 34, 37, 38, 39, 41, 42, 43, 46, 47, 53, 57, 58, 59, 61, 62, 65, 66, 67, 70, 71, 73, 74, 78, 79, 82, 83, 86, 87, 89, 94, 97, 101, 102, 103, 106, 107, 109, 110, 111, 113, 114, 115, 118, 122, 127
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
Also Heinz numbers of strict integer partitions whose smallest part divides all the others (counted by A097986). The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.
|
|
LINKS
|
|
|
EXAMPLE
|
The sequence of terms together with their prime indices begins:
2: {1} 29: {10} 59: {17}
3: {2} 30: {1,2,3} 61: {18}
5: {3} 31: {11} 62: {1,11}
6: {1,2} 34: {1,7} 65: {3,6}
7: {4} 37: {12} 66: {1,2,5}
10: {1,3} 38: {1,8} 67: {19}
11: {5} 39: {2,6} 70: {1,3,4}
13: {6} 41: {13} 71: {20}
14: {1,4} 42: {1,2,4} 73: {21}
17: {7} 43: {14} 74: {1,12}
19: {8} 46: {1,9} 78: {1,2,6}
21: {2,4} 47: {15} 79: {22}
22: {1,5} 53: {16} 82: {1,13}
23: {9} 57: {2,8} 83: {23}
26: {1,6} 58: {1,10} 86: {1,14}
|
|
MATHEMATICA
|
Select[Range[2, 100], SquareFreeQ[#]&&With[{p=PrimePi/@First/@FactorInteger[#]}, And@@IntegerQ/@(p/Min@@p)]&]
|
|
CROSSREFS
|
The complement of the not necessarily squarefree version is A342193.
A000070 counts partitions with a selected part.
A001221 counts distinct prime factors.
A338470 counts partitions with no dividing part.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|