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 A187487 #16 Apr 26 2021 20:43:53
%S A187487 0,1,7,23,163,71,617,1479,15551,17819,221209,246619,3538687,3873307,
%T A187487 4209643,9094961,166145857,59239139,1199057081,254554945,89778475,
%U A187487 94716499,2292289173,7218943253,189040347533
%N A187487 Numerator of n minus n-th harmonic number.
%H A187487 Robert Israel, <a href="/A187487/b187487.txt">Table of n, a(n) for n = 1..2286</a>
%F A187487 a(n) = n - Sum_{i = 1..n} 1/i.
%F A187487 a(n) = Sum_{i = 2..n} (i - 1)/i.
%p A187487 f:=n -> numer(n - harmonic(n)):map(f, [$1..100]); # _Robert Israel_, Apr 26 2021
%t A187487 Numerator[Table[n - HarmonicNumber[n], {n, 25}]]
%o A187487 (PARI) a(n) = numerator(n - sum(i=1, n, 1/i)); \\ _Michel Marcus_, Apr 26 2021
%Y A187487 Denominators are in A002805.
%Y A187487 Cf. A001008 (numerators of the harmonic numbers). Adding this sequence to that sequence gives A102928.
%K A187487 nonn,frac,easy
%O A187487 1,3
%A A187487 _Alonso del Arte_, Mar 10 2011