|
| |
|
|
A055164
|
|
(n - Phi(n)) | Sigma(n) for composite n not congruent to 2 (mod 4).
|
|
0
| |
|
|
99, 168, 187, 493, 637, 780, 943, 1273, 1537, 1836, 2183, 2225, 2976, 3103, 3589, 4183, 5353, 5928, 6201, 6468, 6667, 8881, 9553, 9727, 13393, 13888, 14453, 15397, 17587, 19897, 24253, 24883, 30883, 33667, 36259, 36853, 37523, 43657, 45901
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Do[ If[ !PrimeQ[ n ], If[ Mod[ n, 4 ]! = 0, If[ Mod[ DivisorSigma[ 1, n ], n-EulerPhi[ n ] ] == 0, Print[ n ] ] ], {n, 1, 5000} ]
|
|
|
CROSSREFS
| Sequence in context: A064112 A185498 A126230 * A075815 A075814 A157947
Adjacent sequences: A055161 A055162 A055163 * A055165 A055166 A055167
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 30 2000
|
| |
|
|
