OFFSET
1,2
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.
EXAMPLE
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
4: {1,1}
6: {1,2}
8: {1,1,1}
9: {2,2}
16: {1,1,1,1}
20: {1,1,3}
24: {1,1,1,2}
32: {1,1,1,1,1}
36: {1,1,2,2}
50: {1,3,3}
54: {1,2,2,2}
56: {1,1,1,4}
64: {1,1,1,1,1,1}
81: {2,2,2,2}
84: {1,1,2,4}
96: {1,1,1,1,1,2}
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], And@@IntegerQ/@(PrimeOmega[#]/primeMS[#])&]
CROSSREFS
Note: Heinz numbers are given in parentheses below.
These partitions are counted by A340693.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
A003963 multiplies together the prime indices of n.
A056239 adds up the prime indices of n.
A061395 selects the maximum prime index.
A072233 counts partitions by sum and length.
A112798 lists the prime indices of each positive integer.
A289509 lists numbers with relatively prime prime indices.
A340852 have a factorization with factors dividing length.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 24 2021
STATUS
approved