A086197 -id:A086197 - cp's OEIS frontend

A086198 Incorrect version of A380265.

2, 3, 4, 1, 1, 1, 1, 9, 10, 11, 4, 13, 7, 15, 4, 17, 18, 19, 5, 7, 22, 23, 8, 25, 13, 9, 2, 29, 2, 31, 32, 33, 34, 35, 36, 37, 19, 39, 2, 41, 21, 43, 2, 45, 23, 47, 2, 49, 25, 51, 52, 53, 9, 55, 7, 57, 29, 59, 30, 61, 62, 9, 16, 65, 66, 67, 68, 23, 5, 71, 12, 73, 37, 75, 76, 77

Offset: 1

Eric W. Weisstein, Jul 11 2003

Previous name was: Denominators of running averages of A051903.

Due to a bug in the Mathematica code in the World of Mathematics page, the sequence was calculated with running averages over {A051903(1), 1, A051903(2), A051903(3), ... } with the first term removed. See A380265 for the correct sequence. - Amiram Eldar, Jan 18 2025

			1/2, 2/3, 3/4, 1, 1, 1, 1, 11/9, 13/10, 14/11, ...

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

Cf. A051903, A086197 (numerators), A380265.

f[n_] := Max[FactorInteger[n][[;; , 2]]]; f[1] = 0; With[{m = 100}, Denominator[(1 + Accumulate[Array[f, m]]) / Range[2, m+1]]] (* Amiram Eldar, Jan 18 2025 *)

a(n) = denominator((1 + Sum_{k=1..n} A051903(k))/(n+1)). - Amiram Eldar, Jan 18 2025

cp's OEIS Frontend

A086198 Incorrect version of A380265.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula