1,1

lst={}; Do[If[n==Plus@@Divisors[n]-n+6, AppendTo[lst, n]], {n, 10^4}]; Print[lst];

Sequence in context: A042287 A145978 A037376 this_sequence A146159 A039789 A042313

Adjacent sequences: A141545 A141546 A141547 this_sequence A141549 A141550 A141551

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 16 2008