1,1

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

Sequence in context: A025322 A088499 A058902 this_sequence A032584 A072492 A025583

Adjacent sequences: A141547 A141548 A141549 this_sequence A141551 A141552 A141553

nonn

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