|
| |
|
|
A089748
|
|
Numbers n such that n divides (sum of proper divisors of n + product of proper divisors of n).
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| All perfect numbers belong to this sequence.
Every term of A007691 is in this sequence. - T. D. Noe (noe(AT)sspectra.com), Sep 29 2005
|
|
|
MATHEMATICA
| l = {}; Do[d = Drop[Divisors[n], -1]; p = Apply[Plus, d]; t = Apply[Times, d]; m = Mod[p + t, n]; If[m == 0, l = Append[l, n]], {n, 2, 10^6}]; l
|
|
|
CROSSREFS
| Sequence in context: A141136 A115156 A185072 * A047125 A189238 A065577
Adjacent sequences: A089745 A089746 A089747 * A089749 A089750 A089751
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 08 2004
|
| |
|
|
