%I A077088
%S A077088 0,1,1,4,1,4,1,10,6,6,1,8,1,6,8,22,1,20,1,16,8,12,1,24,10,8,10,20,1,
%T A077088 32,1,46,12,18,8,78,1,12,16,36,1,24,1,32,18,20,1,36,8,72,16,36,1,32,16,
%U A077088 32,20,30,1,72,1,20,32,72,12,60,1,46,24,32,1,108,1,24,24,48,12,48,1,60
%N A077088 a(n)=Phi[Sigma[n]-Phi[n]=A000010[A051612[n]].
%C A077088 See iteration in A077090-A077100.
%e A077088 a(p)=1 for p primes. otherwise a[n]=even.
%Y A077088 Cf. A000010, A000203, A051612, A065387, A077090-A077100.
%Y A077088 Sequence in context: A089655 A097936 A050338 this_sequence A156896 A002193 
               A020807
%Y A077088 Adjacent sequences: A077085 A077086 A077087 this_sequence A077089 A077090 
               A077091
%K A077088 nonn
%O A077088 1,4
%A A077088 Labos E. (labos(AT)ana.sote.hu), Nov 04 2002