%I A055163
%S A055163 6,10,14,22,26,34,38,46,58,62,74,82,86,94,99,106,118,122,134,142,146,
%T A055163 158,166,168,178,187,194,202,206,214,218,226,254,262,274,278,298,302,
%U A055163 314,326,334,346,358,362,382,386,394,398,422,446,454,458,466,478,482
%N A055163 (n - Phi(n)) | Sigma(n) for composite n.
%t A055163 Do[ If[ !PrimeQ[ n ], If[ Mod[ DivisorSigma[ 1, n ], n-EulerPhi[ n ] 
               ] == 0, Print[ n ] ], {n, 1, 500} ]
%Y A055163 Sequence in context: A015812 A080784 A072978 this_sequence A119431 A023387 
               A119623
%Y A055163 Adjacent sequences: A055160 A055161 A055162 this_sequence A055164 A055165 
               A055166
%K A055163 easy,nonn
%O A055163 1,1
%A A055163 Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 30 2000