OFFSET
1,6
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 the number of (1,1)-avoiding permutations of the prime indices of n.
LINKS
FORMULA
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Length[Select[Permutations[primeMS[n]], !MatchQ[#, {___, x_, ___, x_, ___}]&]], {n, 100}]
CROSSREFS
Positions of first appearances are A002110 with 2 replaced by 4.
Permutations of prime indices are counted by A008480.
The contiguous version is A335451.
Anti-run permutations of prime indices are counted by A335452.
(1,1,1)-avoiding permutations of prime indices are counted by A335511.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 19 2020
STATUS
approved