A380267 a(n) is the denominator of the mean value of A051904(k) at the range k = 1..n.

1, 2, 3, 1, 1, 1, 1, 4, 3, 10, 11, 4, 13, 14, 5, 8, 17, 3, 19, 10, 7, 11, 23, 4, 25, 26, 3, 28, 29, 10, 31, 32, 33, 34, 35, 18, 37, 19, 39, 20, 41, 3, 43, 22, 45, 23, 47, 24, 49, 10, 17, 52, 53, 18, 11, 56, 19, 58, 59, 4, 61, 62, 21, 16, 13, 33, 67, 17, 69, 7

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Ivan Niven, Averages of Exponents in Factoring Integers, Proc. Amer. Math. Soc., Vol. 22, No. 2 (1969), pp. 356-360.

Eric Weisstein's World of Mathematics, Niven's Constant.

Wikipedia, Niven's constant.

Formula

a(n) = denominator((Sum_{k=1..n} A051904(k))/n).

Mathematica

f[n_] := Min[FactorInteger[n][[;; , 2]]]; f[1] = 0; With[{m = 100}, Denominator[Accumulate[Array[f, m]] / Range[m]]]

Prog

(PARI) lista(nmax) = {my(s = 0); print1(1, ", "); for(n = 2, nmax, s += vecmin(factor(n)[, 2]);  print1(denominator(s/n), ", ")); }

Crossrefs

Cf. A051904, A380266 (numerators).

Sequence in context: A356320 A207572 A380265 * A289623 A086195 A086197

Adjacent sequences: A380264 A380265 A380266 * A380268 A380269 A380270

Keyword

nonn,easy,frac

Author

Amiram Eldar, Jan 18 2025

Status

approved