A359071 -id:A359071 - cp's OEIS frontend

A380264 a(n) is the numerator of the mean value of A051903(k) at the range k = 1..n.

0, 1, 2, 1, 1, 1, 1, 5, 4, 13, 14, 4, 17, 9, 19, 23, 24, 13, 27, 29, 10, 31, 32, 35, 37, 19, 41, 43, 44, 3, 46, 51, 52, 53, 54, 14, 57, 29, 59, 31, 63, 32, 65, 67, 23, 35, 71, 25, 11, 79, 80, 41, 83, 43, 87, 45, 91, 46, 93, 19, 96, 97, 11, 105, 106, 107, 108, 55

Offset: 1

Amiram Eldar, Jan 18 2025

			Fractions begin with 0, 1/2, 2/3, 1, 1, 1, 1, 5/4, 4/3, 13/10, 14/11, 4/3, ...

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.

Cf. A033150, A051903, A129132, A359071, A359072, A380265 (denominators).

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

lista(nmax) = {my(s = 0); print1(0, ", "); for(n = 2, nmax, s += vecmax(factor(n)[,2]);  print1(numerator(s/n), ", "));}

a(n) = numerator((Sum_{k=1..n} A051903(k))/n).
a(n)/A380265(n) = A129132(n)/n.
Limit_{n->oo} a(n)/A380265(n) = c, where c is Niven's constant (A033150).
abs(a(n)/A380265(n) - c) <= 3*log_2(n)/sqrt(n).

A359072 Denominators of the partial sums of the reciprocals of the maximal exponent in prime factorization of the positive integers (A051903).

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 6, 3, 3, 3, 6, 6, 6, 6, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 4, 4, 4, 4, 4, 20, 20, 20, 20, 20, 20, 20, 20, 60, 60, 60, 60, 60, 60, 60, 60, 30, 15, 30, 30, 15, 15, 15, 15, 5, 5, 5, 5, 10, 10, 10, 5, 30, 30, 30, 30, 15, 15, 15, 15, 5, 5

Offset: 2

Amiram Eldar, Dec 15 2022

Amiram Eldar, Table of n, a(n) for n = 2..10000
Wolfgang Schwarz and Jürgen Spilker, A remark on some special arithmetical functions, in: E. Laurincikas, E. Manstavicius and V. Stakenas (eds.), Analytic and Probabilistic Methods in Number Theory, Proceedings of the Second International Conference in Honour of J. Kubilius, Palanga, Lithuania, 23-27 September 1996, New Trends in Probability and Statistics, Vol. 4, VSP BV & TEV Ltd. (1997), pp. 221-245.
D. Suryanarayana and R. Chandra Rao, On the maximum and minimum exponents in factoring integers, Archiv der Mathematik, Vol. 28, No. 1 (1977), pp. 261-269.
Index entries for sequences computed from exponents in factorization of n.

Cf. A051903, A129132, A359071 (numerators).

f[n_] := Max[FactorInteger[n][[;; , 2]]]; f[1] = 0; Denominator[Accumulate[Table[1/f[n], {n, 2, 100}]]]

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

cp's OEIS Frontend

A380264 a(n) is the numerator of the mean value of A051903(k) at the range k = 1..n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula