A086197 Incorrect version of A380264.

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,2

Comments

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

Links

Table of n, a(n) for n=1..72.

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

Formula

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

Example

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

Mathematica

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 *)

Crossrefs

Cf. A051903, A086196, A086198 (denominators), A380264 .

Sequence in context: A380267 A289623 A086195 * A139336 A252168 A100619

Adjacent sequences: A086194 A086195 A086196 * A086198 A086199 A086200

Keyword

dead

Author

Eric W. Weisstein, Jul 11 2003

Status

approved