OFFSET
1,1
COMMENTS
A multiset is relatively prime if the GCD of its elements is 1. Zeros are ignored when computing GCD, and the empty set has GCD 0.
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.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of partitions whose parts minus one are relatively prime. The enumeration of these partitions by sum is given by A328170.
EXAMPLE
The sequence of terms together with their prime indices begins:
3: {2}
6: {1,2}
9: {2,2}
12: {1,1,2}
15: {2,3}
18: {1,2,2}
21: {2,4}
24: {1,1,1,2}
27: {2,2,2}
30: {1,2,3}
33: {2,5}
35: {3,4}
36: {1,1,2,2}
39: {2,6}
42: {1,2,4}
45: {2,2,3}
48: {1,1,1,1,2}
51: {2,7}
54: {1,2,2,2}
57: {2,8}
MAPLE
q:= n-> igcd(map(i-> numtheory[pi](i[1])-1, ifactors(n)[2])[])=1:
select(q, [$1..150])[]; # Alois P. Heinz, Oct 13 2019
MATHEMATICA
Select[Range[100], GCD@@(PrimePi/@First/@If[#==1, {}, FactorInteger[#]]-1)==1&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 08 2019
STATUS
approved