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

Author

Eric W. Weisstein, Jul 11 2003

Keywords

• nonn
• easy
• frac
• dead

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

Examples

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

Links

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

Crossrefs

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

Programs

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

Formula

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