|
%I #29 Aug 15 2021 05:10:15
%S 1,2,3,7,11,71,107,115,139,155,681,1671,4876,21464,30046,311271,
%T 788749,10893662,20743270,134568163,163879554,920161004,6364787032,
%U 21400458779,47934932406,56133884369,288050185452,536023681676,1484061538595
%N Numbers k that divide the sum of the first k composite numbers.
%H E. Friedman, <a href="https://erich-friedman.github.io/numbers.html">What is special about this number?</a>, see 681.
%F Numbers k such that k divides A053767(k). - _Robert G. Wilson v_, Nov 24 2004
%t 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 (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 Cf. A002808, A073262, A073263.
%K nonn
%O 1,2
%A _G. L. Honaker, Jr._, Mar 29 2000
%E a(19)-a(22) from _Robert G. Wilson v_, Nov 24 2004
%E a(23)-a(26) from _Sean A. Irvine_, Oct 01 2009
%E a(27)-a(29) from _Donovan Johnson_, Jul 06 2010
|
