%I A056012
%S A056012 1,2,4,6,90,408,586,2200352,11524640
%N A056012 Numbers n such that n | Sigma(n) + d(n) + Phi(n).
%t A056012 Do[If[Mod[DivisorSigma[1, n]+DivisorSigma[0, n]+EulerPhi[n], n]==0, Print[n]], 
               {n, 1, 10^7}]
%Y A056012 Sequence in context: A066220 A009257 A098757 this_sequence A066719 A033319 
               A090315
%Y A056012 Adjacent sequences: A056009 A056010 A056011 this_sequence A056013 A056014 
               A056015
%K A056012 nonn
%O A056012 1,2
%A A056012 Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 24 2000