%I #9 Jan 28 2025 16:54:50
%S 1,1,1,1,2,1,1,1,1,1,2,1,2,2,1,1,2,1,1,1,1,1,2,1,2,1,2,1,1,1,1,2,1,2,
%T 2,1,2,1,1,1,3,1,1,2,1,1,2,1,1,2,2,1,2,1,2,1,2,1,1,1,1,1,1,2,3,1,1,2,
%U 3,1,2,1,2,2,2,2,1,1,1,1,1,1,3,1,2,1,1,1,1,1,1,2,1,2,2,1,2,2,1,1,3,1,2,1
%N Denominator of the average of the set of distinct 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.
%H Antti Karttunen, <a href="/A326620/b326620.txt">Table of n, a(n) for n = 2..65537</a>
%H <a href="/index/Pri#prime_indices">Index entries for sequences related to prime indices in the factorization of n</a>.
%e The distinct prime indices of 12 are {1,2}, with average 3/2, so a(12) = 2.
%e The sequence of fractions begins: 1, 2, 1, 3, 3/2, 4, 1, 2, 2, 5, 3/2, 6, 5/2, 5/2, 1, 7, 3/2, 8, 2, 3, 3, 9, 3/2, 3, 7/2, 2, 5/2, 10, 2.
%t Table[Denominator[Mean[PrimePi/@First/@FactorInteger[n]]],{n,2,100}]
%o (PARI) A326620(n) = if(1==n,0,denominator(vecsum(apply(primepi,factor(n)[,1]))/omega(n))); \\ _Antti Karttunen_, Jan 28 2025
%Y Positions of 1's are A326621.
%Y The average of the multiset of prime indices is A326567/A326568.
%Y The average of the multiset of prime factors is A123528/A123529.
%Y The average of the set of distinct prime indices is A326619/A326620.
%Y The average of the set of distinct prime factors is A323171/A323172.
%Y Cf. A001221, A067629, A078174, A078175, A112798, A316413.
%K nonn,frac
%O 2,5
%A _Gus Wiseman_, Jul 14 2019
%E Data section extended to a(105) by _Antti Karttunen_, Jan 28 2025