%I #11 Sep 17 2024 04:03:39
%S 2,3,2,5,5,7,2,3,7,11,5,13,9,4,2,17,5,19,7,5,13,23,5,5,15,3,9,29,10,
%T 31,2,7,19,6,5,37,21,8,7,41,4,43,13,4,25,47,5,7,7,10,15,53,5,8,9,11,
%U 31,59,10,61,33,5,2,9,16,67,19,13,14,71,5,73,39,4,21,9,6,79,7,3,43,83,4,11,45,16,13,89,10,10,25,17,49,12,5
%N Numerator of the average of distinct prime factors of n (A008472(n)/A001221(n)).
%H Antti Karttunen, <a href="/A323171/b323171.txt">Table of n, a(n) for n = 2..20000</a>
%e Fractions begins with 2, 3, 2, 5, 5/2, 7, 2, 3, 7/2, 11, 5/2, 13, ...
%t a[n_] := Numerator[Mean[FactorInteger[n][[;; , 1]]]]; Array[a, 100, 2] (* _Amiram Eldar_, Sep 17 2024 *)
%o (PARI)
%o A008472(n) = vecsum(factor(n)[, 1]); \\ From A008472
%o A323171(n) = (numerator(A008472(n)/omega(n)));
%Y Cf. A323172 (denominators).
%Y Cf. A001221, A008472, A123528.
%K nonn,easy,frac
%O 2,1
%A _Antti Karttunen_, Jan 05 2019