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

Comments

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

Links

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

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

Formula

a(n) = numerator((1 + Sum_{k=1..n} A051904(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_] := 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 *)

Crossrefs

Cf. A051904, A086196 (denominators), A380266.

Sequence in context: A380265 A380267 A289623 * A086197 A139336 A252168

Adjacent sequences: A086192 A086193 A086194 * A086196 A086197 A086198

Keyword

nonn,easy,frac,dead

Author

Eric W. Weisstein, Jul 11 2003

Status

approved