A086196 Incorrect version of A380267.

2, 3, 4, 1, 1, 1, 1, 9, 10, 11, 4, 13, 14, 5, 16, 17, 3, 19, 10, 7, 11, 23, 4, 25, 26, 27, 28, 29, 10, 31, 32, 33, 34, 35, 36, 37, 19, 39, 20, 41, 3, 43, 22, 45, 23, 47, 24, 7, 10, 17, 52, 53, 18, 11, 56, 19, 58, 59, 4, 61, 62, 21, 64, 13, 33, 67, 17, 69, 7, 71, 18, 73, 74

Offset

1,1

Comments

Previous name was: Denominators 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 A380267 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) = denominator((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}, Denominator[(1 + Accumulate[Array[f, m]]) / Range[2, m + 1]]] (* Amiram Eldar, Jan 18 2025 *)

Crossrefs

Cf. A051904, A086195 (numerators), A380267.

Sequence in context: A255825 A339255 A086198 * A373063 A332937 A350351

Adjacent sequences: A086193 A086194 A086195 * A086197 A086198 A086199

Keyword

nonn,easy,frac,dead,changed

Author

Eric W. Weisstein, Jul 11 2003

Status

approved