A086196 -id:A086196 - cp's OEIS frontend

A086195 Incorrect version of A380266.

1, 2, 3, 1, 1, 1, 1, 11, 13, 14, 5, 16, 17, 6, 19, 23, 4, 25, 13, 9, 14, 29, 5, 31, 33, 34, 37, 38, 13, 40, 41, 46, 47, 48, 49, 51, 26, 53, 27, 55, 4, 57, 29, 59, 30, 61, 31, 9, 13, 22, 67, 68, 23, 14, 71, 24, 73, 74, 5, 76, 77, 26, 79, 17, 43, 87, 22, 89, 9, 91, 23, 94, 95

Offset: 1

Eric W. Weisstein, Jul 11 2003

Previous name was: Numerators of running averages of A051904.

Due to a bug in the Mathematica code in the World of Mathematics page, the sequence was calculated with running averages over {A051904(1), 1, A051904(2), A051904(3), ... } with the first term removed. See A380266 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. A051904, A086196 (denominators), A380266.

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

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

A086197 Incorrect version of A380264.

Original entry on oeis.org

1, 2, 3, 1, 1, 1, 1, 11, 13, 14, 5, 17, 9, 19, 5, 24, 25, 27, 7, 10, 31, 32, 11, 36, 19, 13, 3, 44, 3, 46, 47, 52, 53, 54, 55, 57, 29, 59, 3, 63, 32, 65, 3, 68, 35, 71, 3, 76, 39, 80, 81, 83, 14, 87, 11, 91, 46, 93, 47, 96, 97, 14, 25, 106, 107, 108, 109, 37, 8, 113, 19, 117

Offset: 1

Eric W. Weisstein, Jul 11 2003

Previous name was: Numerators 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 A380264 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, A086196, A086198 (denominators), A380264 .

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

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

cp's OEIS Frontend

A086195 Incorrect version of A380266.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula