%I #6 Nov 04 2022 14:44:56
%S 1,2,1,3,4,3,2,5,1,6,5,7,4,8,3,9,1,7,5,4,10,11,2,9,12,5,13,7,14,5,3,
%T 11,15,8,16,6,3,17,7,1,18,13,7,2,19,15,20,6,10,21,11,22,8,9,23,1,17,
%U 24,9,4,7,25,19,26,5,13,27,8,10,28,14,11,29,21,7,30
%N Denominator of the quotient of the prime indices of the n-th semiprime.
%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.
%e The 31-st semiprime has prime indices (4,6), so the quotient is 4/6 = 2/3; hence a(31) = 3.
%t primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t Denominator/@Divide@@@primeMS/@Select[Range[100],PrimeOmega[#]==2&]
%Y The divisible pairs are ranked by A318990, proper A339005.
%Y The unreduced pair is (A338912, A338913).
%Y The quotients of divisible pairs are A358103.
%Y The restriction to divisible pairs is A358105, numerator A358104.
%Y The numerator is A358192.
%Y A000040 lists the primes.
%Y A001222 counts prime indices, distinct A001221.
%Y A001358 lists the semiprimes, squarefree A006881.
%Y A003963 multiplies together prime indices.
%Y A056239 adds up prime indices.
%Y Cf. A000720, A027751, A032741, A128301, A215366, A289508, A289509, A296150, A300912, A318991, A358106.
%K nonn,frac
%O 1,2
%A _Gus Wiseman_, Nov 03 2022
|