|
Search: id:A089748
|
|
|
| A089748 |
|
Numbers n such that n divides (sum of proper divisors of n + product of proper divisors of n). |
|
+0
1
|
| |
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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: A074925 A141136 A115156 this_sequence A047125 A065577 A152393
Adjacent sequences: A089745 A089746 A089747 this_sequence A089749 A089750 A089751
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 08 2004
|
|
|
Search completed in 0.005 seconds
|
