A086198 Incorrect version of A380265.

2, 3, 4, 1, 1, 1, 1, 9, 10, 11, 4, 13, 7, 15, 4, 17, 18, 19, 5, 7, 22, 23, 8, 25, 13, 9, 2, 29, 2, 31, 32, 33, 34, 35, 36, 37, 19, 39, 2, 41, 21, 43, 2, 45, 23, 47, 2, 49, 25, 51, 52, 53, 9, 55, 7, 57, 29, 59, 30, 61, 62, 9, 16, 65, 66, 67, 68, 23, 5, 71, 12, 73, 37, 75, 76, 77

Offset

1,1

Comments

Previous name was: Denominators 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 A380265 for the correct sequence. - Amiram Eldar, Jan 18 2025

Links

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

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

Formula

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

Crossrefs

Cf. A051903, A086197 (numerators), A380265.

Sequence in context: A071498 A255825 A339255 * A086196 A373063 A332937

Adjacent sequences: A086195 A086196 A086197 * A086199 A086200 A086201

Keyword

nonn,easy,frac,dead

Author

Eric W. Weisstein, Jul 11 2003

Status

approved