%I #10 Jun 30 2020 09:55:55
%S 1,1,1,0,1,2,1,0,0,2,1,0,1,2,2,0,1,0,1,0,2,2,1,0,0,2,0,0,1,6,1,0,2,2,
%T 2,0,1,2,2,0,1,6,1,0,0,2,1,0,0,0,2,0,1,0,2,0,2,2,1,0,1,2,0,0,2,6,1,0,
%U 2,6,1,0,1,2,0,0,2,6,1,0,0,2,1,0,2,2,2
%N Number of strict permutations of the prime indices of n.
%C 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.
%C Also the number of (1,1)-avoiding permutations of the prime indices of n.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Permutation_pattern">Permutation pattern</a>
%H Gus Wiseman, <a href="https://oeis.org/A102726/a102726.txt">Sequences counting and ranking compositions by the patterns they match or avoid.</a>
%F If n is squarefree, a(n) = A001221(n)!; otherwise a(n) = 0.
%F a(n != 4) = A281188(n); a(4) = 0.
%t primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t Table[Length[Select[Permutations[primeMS[n]],!MatchQ[#,{___,x_,___,x_,___}]&]],{n,100}]
%Y Positions of first appearances are A002110 with 2 replaced by 4.
%Y Permutations of prime indices are counted by A008480.
%Y The contiguous version is A335451.
%Y Anti-run permutations of prime indices are counted by A335452.
%Y (1,1,1)-avoiding permutations of prime indices are counted by A335511.
%Y Cf. A056239, A056986, A106356, A112798, A238279, A281188, A333221, A335456, A335460, A335462, A335465.
%K nonn
%O 1,6
%A _Gus Wiseman_, Jun 19 2020