%I A070807
%S A070807 4,6,8,9,10,12,14,15,16,18,20,21,24,26,28,30,32,34,35,36,39,40,42,45,
%T A070807 48,51,52,56,58,60,64,65,68,70,72,78,80,84,85,87,90,96,102,104,105,112,
%U A070807 116,119,120,128,130,136,140,144,145,153,156,160,168,170,174,180,192
%N A070807 Composite numbers n such that Cototient(totient(n))=A070556(n) is power 
               of 2.
%e A070807 n=87=3.29:phi[87]=56,56-phi[56]=56-24=32
%t A070807 Do[s= EulerPhi[n]-EulerPhi[EulerPhi[n]]; If[IntegerQ[Log[2, s]]&&!PrimeQ[n], 
               Print[n]], {n, 1, 10000000}]
%Y A070807 Cf. A070556, A051953, A054571, A070806, A070809-A070811.
%Y A070807 Sequence in context: A115683 A091212 A077094 this_sequence A046352 A046355 
               A163122
%Y A070807 Adjacent sequences: A070804 A070805 A070806 this_sequence A070808 A070809 
               A070810
%K A070807 nonn
%O A070807 1,1
%A A070807 Labos E. (labos(AT)ana.sote.hu), May 08 2002