%I A055164
%S A055164 99,168,187,493,637,780,943,1273,1537,1836,2183,2225,2976,3103,3589,
%T A055164 4183,5353,5928,6201,6468,6667,8881,9553,9727,13393,13888,14453,15397,
%U A055164 17587,19897,24253,24883,30883,33667,36259,36853,37523,43657,45901
%N A055164 (n - Phi(n)) | Sigma(n) for composite n not congruent to 2 (mod 4).
%t A055164 Do[ If[ !PrimeQ[ n ], If[ Mod[ n, 4 ]! = 0, If[ Mod[ DivisorSigma[ 1, 
               n ], n-EulerPhi[ n ] ] == 0, Print[ n ] ] ], {n, 1, 5000} ]
%Y A055164 Sequence in context: A095420 A064112 A126230 this_sequence A075815 A075814 
               A157947
%Y A055164 Adjacent sequences: A055161 A055162 A055163 this_sequence A055165 A055166 
               A055167
%K A055164 easy,nonn
%O A055164 1,1
%A A055164 Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 30 2000