%I #15 Feb 16 2025 08:32:50
%S 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,
%T 38,13,40,41,46,47,48,49,51,26,53,27,55,4,57,29,59,30,61,31,9,13,22,
%U 67,68,23,14,71,24,73,74,5,76,77,26,79,17,43,87,22,89,9,91,23,94,95
%N Incorrect version of A380266.
%C Previous name was: Numerators of running averages of A051904.
%C 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
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/NivensConstant.html">Niven's Constant</a>.
%F a(n) = numerator((1 + Sum_{k=1..n} A051904(k))/(n+1)). - _Amiram Eldar_, Jan 18 2025
%e 1/2, 2/3, 3/4, 1, 1, 1, 1, 11/9, 13/10, 14/11, ...
%t 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 *)
%Y Cf. A051904, A086196 (denominators), A380266.
%K nonn,easy,frac,dead,changed
%O 1,2
%A _Eric W. Weisstein_, Jul 11 2003