OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
51 is in the sequence because 51 = 2 + 4 + 5 + 6 + 7 + 8 + 9 + 10
(the sum of its first 8 non-divisors)
MATHEMATICA
Select[Range[2600], MemberQ[Accumulate[Complement[Range[#], Divisors[#]]], #]&] (* Harvey P. Dale, Feb 16 2011 *)
PROG
(PARI) is(n)=my(s, t=1); while(s<n, if(n%t++, s+=t)); s==n \\ Charles R Greathouse IV, Nov 23 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Andrew Weimholt, Feb 05 2011
STATUS
approved