%I A070809
%S A070809 1,22,25,27,33,38,44,46,49,50,54,55,57,62,63,66,69,74,75,76,77,81,82,
%T A070809 86,88,91,92,93,94,95,98,99,100,106,108,110,111,114,115,117,118,121,
%U A070809 122,123,124,125,126,129,132,133,134,135,138,141,142,143,146,147,148
%N A070809 Cototient(totient(n))=A070556(n) is not a power of 2 and n is not a prime 
               number.
%e A070809 n=95: Phi[95]=72,cototient[72]=72-phi[72]=72-24-=48 is not a power of 
               2.
%t A070809 Do[s= EulerPhi[n]-EulerPhi[EulerPhi[n]]; If[ !IntegerQ[Log[2, s]]&&!PrimeQ[n], 
               Print[n]], {n, 1, 1000}]
%Y A070809 Cf. A070556, A051953, A054571, A070806, A070807, A070810, A070811.
%Y A070809 Sequence in context: A121609 A092631 A061371 this_sequence A108632 A045096 
               A124177
%Y A070809 Adjacent sequences: A070806 A070807 A070808 this_sequence A070810 A070811 
               A070812
%K A070809 nonn
%O A070809 1,2
%A A070809 Labos E. (labos(AT)ana.sote.hu), May 08 2002