This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A380265 #8 Feb 16 2025 08:34:07
%S A380265 1,2,3,1,1,1,1,4,3,10,11,3,13,7,15,16,17,9,19,20,7,22,23,24,25,13,27,
%T A380265 28,29,2,31,32,33,34,35,9,37,19,39,20,41,21,43,44,15,23,47,16,7,50,51,
%U A380265 26,53,27,55,28,57,29,59,12,61,62,7,64,65,66,67,34,23,5,71
%N A380265 a(n) is the denominator of the mean value of A051903(k) at the range k = 1..n.
%H A380265 Amiram Eldar, <a href="/A380265/b380265.txt">Table of n, a(n) for n = 1..10000</a>
%H A380265 Ivan Niven, <a href="https://doi.org/10.1090/S0002-9939-1969-0241373-5">Averages of Exponents in Factoring Integers</a>, Proc. Amer. Math. Soc., Vol. 22, No. 2 (1969), pp. 356-360.
%H A380265 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/NivensConstant.html">Niven's Constant</a>.
%H A380265 Wikipedia, <a href="https://en.wikipedia.org/wiki/Niven%27s_constant">Niven's constant</a>.
%F A380265 a(n) = denominator((Sum_{k=1..n} A051903(k))/n).
%t A380265 f[n_] := Max[FactorInteger[n][[;;, 2]]]; f[1] = 0; With[{m = 100}, Denominator[Accumulate[Array[f, m]] / Range[m]]]
%o A380265 (PARI) lista(nmax) = {my(s = 0); print1(1, ", "); for(n = 2, nmax, s += vecmax(factor(n)[,2]); print1(denominator(s/n), ", "));}
%Y A380265 Cf. A051903, A380264 (numerators).
%K A380265 nonn,easy,frac
%O A380265 1,2
%A A380265 _Amiram Eldar_, Jan 18 2025