|
Search: id:A141547
|
|
|
| A141547 |
|
Numbers n whose abundance is 16. |
|
+0
1
|
|
| 550, 748, 1504, 7192, 7912, 10792, 17272, 30592, 1713592, 4526272, 8353792, 9928792, 11547352, 17999992
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
lst={}; Do[If[n==Plus@@Divisors[n]-n-16, AppendTo[lst, n]], {n, 10^4}]; Print[lst];
lst = {}; Do[ If[2 n + 16 == DivisorSigma[1, n], AppendTo[lst, n]], {n, 10^8}]; lst - from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 17 2008
|
|
CROSSREFS
|
Sequence in context: A103537 A136928 A013538 this_sequence A034282 A127347 A063877
Adjacent sequences: A141544 A141545 A141546 this_sequence A141548 A141549 A141550
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 16 2008
|
|
EXTENSIONS
|
a(9)-a(14) from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 17 2008
|
|
|
Search completed in 0.002 seconds
|
