This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A086197 #14 Feb 16 2025 08:32:50
%S A086197 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,
%T A086197 44,3,46,47,52,53,54,55,57,29,59,3,63,32,65,3,68,35,71,3,76,39,80,81,
%U A086197 83,14,87,11,91,46,93,47,96,97,14,25,106,107,108,109,37,8,113,19,117
%N A086197 Incorrect version of A380264.
%C A086197 Previous name was: Numerators of running averages of A051903.
%C A086197 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
%H A086197 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/NivensConstant.html">Niven's Constant</a>.
%F A086197 a(n) = numerator((1 + Sum_{k=1..n} A051903(k))/(n+1)). - _Amiram Eldar_, Jan 18 2025
%e A086197 1/2, 2/3, 3/4, 1, 1, 1, 1, 11/9, 13/10, 14/11, ...
%t A086197 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 *)
%Y A086197 Cf. A051903, A086196, A086198 (denominators), A380264 .
%K A086197 nonn,easy,frac,dead
%O A086197 1,2
%A A086197 _Eric W. Weisstein_, Jul 11 2003