|
| |
|
|
A104900
|
|
Numbers n such that sigma(n)=6*phi(n).
|
|
11
| |
|
|
6, 70, 616, 1240, 2090, 8932, 17980, 19780, 20320, 26980, 29512, 43180, 49742, 51688, 58058, 79000, 100130, 116870, 128570, 175370, 176715, 201376, 208280, 221536, 275770, 280670, 282680, 302176, 373065, 427924, 435435, 470764, 483616
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| If p>2 & 2^p-1 is prime (a Mersenne prime) then 5*2^(p-2)*(2^p-1) is in the sequence. So 5*2^(A000043-2)*(2^A000043-1) is a subsequence of this sequence.
|
|
|
EXAMPLE
| p>2, q=2^p-1(q is prime); m=5*2^(p-2)*q so sigma(m)=6*(2^(p-1)-1)*2^p
=6*phi(m) hence m is in the sequence. sigm(79000)=187200=6*31200
=6*phi(79000) so 79000 is in the sequence but 79000 is not of the form 5*2^(p-2)*(2^p-1).
|
|
|
MATHEMATICA
| Do[If[DivisorSigma[1, m] == 6*EulerPhi[m], Print[m]], {m, 1000000}]
|
|
|
CROSSREFS
| Cf. A000043, A062699, A068390, A104901.
Sequence in context: A098639 A188406 A048708 * A186667 A001448 A024489
Adjacent sequences: A104897 A104898 A104899 * A104901 A104902 A104903
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Farideh Firoozbakht (mymontain(AT)yahoo.com), Apr 01 2005
|
| |
|
|
