OFFSET
1,2
COMMENTS
A prime index of n is a number m such that prime(m) divides n. Two or more numbers are coprime if no pair of them has a common divisor other than 1. A single number is not considered coprime unless it is equal to 1.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
EXAMPLE
Sequence of terms together with their sets of prime indices begins:
01 : {}
02 : {1}
06 : {1,2}
10 : {1,3}
14 : {1,4}
15 : {2,3}
22 : {1,5}
26 : {1,6}
30 : {1,2,3}
33 : {2,5}
34 : {1,7}
35 : {3,4}
38 : {1,8}
46 : {1,9}
51 : {2,7}
55 : {3,5}
58 : {1,10}
62 : {1,11}
66 : {1,2,5}
69 : {2,9}
70 : {1,3,4}
MATHEMATICA
Select[Range[100], Or[#===1, SquareFreeQ[#]&&CoprimeQ@@PrimePi/@FactorInteger[#][[All, 1]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 13 2018
STATUS
approved