%I A060672
%S A060672 40,60,108,128,252,276,440,612,696,996,1088,1380,1500,1824,1860,1932,
%T A060672 2064,2472,2796,2928,3060,3132,3384,3516,4584,4932,5076,5136,5436,5700,
%U A060672 5888,6096,6372,6640,6744,7020,7080,7380,7452,7476,7704,8040,8676,8892
%N A060672 phi(x) = n has exactly 9 solutions.
%e A060672 40 = phi(41) = phi(55) = phi(75) = phi(82) = phi(88) = phi(100) = phi(110) 
               = phi(132) = phi(150).
%t A060672 a = Table[ 0, {10000} ]; Do[ p = EulerPhi[ n ]; If[ p < 10001, a[ [ p 
               ] ]++ ], {n, 1, 35000} ]; Select[ Range[ 10000 ], a[ [ # ] ] == 9 
               & ]
%Y A060672 Cf. A007366, A007367.
%Y A060672 Sequence in context: A035120 A094619 A052475 this_sequence A134216 A043156 
               A039333
%Y A060672 Adjacent sequences: A060669 A060670 A060671 this_sequence A060673 A060674 
               A060675
%K A060672 nonn
%O A060672 1,1
%A A060672 Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 18 2001