1,1

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

Sequence in context: A026914 A098385 A048364 this_sequence A121964 A147208 A010003

Adjacent sequences: A141546 A141547 A141548 this_sequence A141550 A141551 A141552

nonn

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