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 A237872 #22 Sep 08 2022 08:46:06
%S A237872 1,4,33,292,10085,48756,2827293,257063528,13779684369,70889442280,
%T A237872 72634140523901,314690934778068,140915129117772841,
%U A237872 5533416685634616884,251767541303505518145,55644156684309383260624,7481965178603932789388755
%N A237872 Numerator of Sum_{i=1..n} n^i/i.
%C A237872 The sequence gives the numerators of -n^(n+1)*Phi(n,1,n+1)-log(-n+1) for n>1, where Phi is the Lerch transcendent.
%H A237872 Bruno Berselli, <a href="/A237872/b237872.txt">Table of n, a(n) for n = 1..100</a>
%p A237872 A237872:=n->numer(add(n^i/i, i=1..n)): seq(A237872(n), n=1..20); # _Wesley Ivan Hurt_, Apr 26 2017
%t A237872 f[n_] := Sum[n^i/i, {i, 1, n}]; Table[Numerator[f[n]], {n, 1, 20}]
%o A237872 (Magma) terms:=20; s:=[&+[n^i/i: i in [1..n]]: n in [1..terms]]; [Numerator(s[n]): n in [1..terms]];
%Y A237872 Cf. A236772, A237873 (denominators).
%K A237872 nonn,frac
%O A237872 1,2
%A A237872 _Bruno Berselli_, Feb 14 2014