OFFSET
1,2
LINKS
E. Friedman, What is special about this number?, see 681.
FORMULA
Numbers k such that k divides A053767(k). - Robert G. Wilson v, Nov 24 2004
MATHEMATICA
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 *)
PROG
(PARI) lista(nn) = {s = 0; n = 0; forcomposite(c=0, nn, s += c; n++; if (! (s % n), print1(n, ", ")); ); } \\ Michel Marcus, Mar 15 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
G. L. Honaker, Jr., Mar 29 2000
EXTENSIONS
a(19)-a(22) from Robert G. Wilson v, Nov 24 2004
a(23)-a(26) from Sean A. Irvine, Oct 01 2009
a(27)-a(29) from Donovan Johnson, Jul 06 2010
STATUS
approved