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 A053781 #29 Aug 15 2021 05:10:15 %S A053781 1,2,3,7,11,71,107,115,139,155,681,1671,4876,21464,30046,311271, %T A053781 788749,10893662,20743270,134568163,163879554,920161004,6364787032, %U A053781 21400458779,47934932406,56133884369,288050185452,536023681676,1484061538595 %N A053781 Numbers k that divide the sum of the first k composite numbers. %H A053781 E. Friedman, <a href="https://erich-friedman.github.io/numbers.html">What is special about this number?</a>, see 681. %F A053781 Numbers k such that k divides A053767(k). - _Robert G. Wilson v_, Nov 24 2004 %t A053781 c = s = 0; Do[ If[ !PrimeQ[n], c++; s = s + n; If[ Mod[s, c] == 0, Print[c]]], {n, 2, 10^9}] (* _Robert G. Wilson v_, Nov 23 2004 *) %o A053781 (PARI) lista(nn) = {s = 0; n = 0; forcomposite(c=0, nn, s += c; n++; if (! (s % n), print1(n, ", ")););} \\ _Michel Marcus_, Mar 15 2015 %Y A053781 Cf. A002808, A073262, A073263. %K A053781 nonn %O A053781 1,2 %A A053781 _G. L. Honaker, Jr._, Mar 29 2000 %E A053781 a(19)-a(22) from _Robert G. Wilson v_, Nov 24 2004 %E A053781 a(23)-a(26) from _Sean A. Irvine_, Oct 01 2009 %E A053781 a(27)-a(29) from _Donovan Johnson_, Jul 06 2010