%I A066471
%S A066471 1,2,8,12,128,240,350,366,368,575,671,720,743,1098,2417,6912,18967,
%T A066471 19399,32768,142560,173340,179010,184032,188892,203310,209628,225342,
%U A066471 228582,232160,244782,255460,271072,274422,279045,282285,287810,304910
%N A066471 Numbers n such that sigma(EulerPhi(sigma(n))) = sigma(n).
%t A066471 Select[Range[1, 10^6], DivisorSigma[1, EulerPhi[DivisorSigma[1, # ]]] 
               == DivisorSigma[1, # ] &]
%Y A066471 Sequence in context: A083546 A013190 A126192 this_sequence A001229 A120000 
               A067678
%Y A066471 Adjacent sequences: A066468 A066469 A066470 this_sequence A066472 A066473 
               A066474
%K A066471 nonn
%O A066471 1,2
%A A066471 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 02 2002