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 A119787 #10 May 09 2020 00:27:53 %S A119787 1,1,5,7,47,37,319,533,1879,1627,20417,18107,263111,237371,261395, %T A119787 95549,1768477,1632341,33464927,155685007,166770367,156188887, %U A119787 3825136961,3602044091,19081066231,18051406831,57128792093,54260455193 %N A119787 Numerator of the product of n and the n-th alternating harmonic number, Sum_{k=1..n} (-1)^(k+1)/k. %C A119787 a(n) almost always equals A058313(n), which is the numerator of the n-th alternating harmonic number, Sum ((-1)^(k+1)/k, k=1..n), except for n = 15, 28, 75, 77, 104, ... The ratio a(n)/A058313(n) for n = 1..400 is given in A119788. %F A119787 a(n) = numerator(Sum_{k=1..n} (-1)^(k+1)*n/k). %e A119787 The first few fractions are 1, 1, 5/2, 7/3, 47/12, 37/10, 319/60, 533/105, 1879/280, ... = A119787/A334721. - _Petros Hadjicostas_, May 08 2020 %t A119787 Numerator[Table[Sum[(-1)^(i+1)*n/i, {i, 1, n}],{n,1,50}]] %o A119787 (PARI) a(n) = numerator(n*sum(k=1, n, (-1)^(k+1)/k)); \\ _Michel Marcus_, May 09 2020 %Y A119787 Cf. A058313, A119788, A334721 (denominators). %K A119787 frac,nonn %O A119787 1,3 %A A119787 _Alexander Adamchuk_, Jun 26 2006