%I A053192
%S A053192 0,4,9,32,25,144,49,256,243,600,121,1152,169,1568,1575,2048,289,3888,
%T A053192 361,4800,3969,5808,529,9216,3125,9464,6561,12544,841,19800,961,16384,
%U A053192 14157,20808,13475,31104,1369,28880,22815,38400,1681,52920,1849,46464
%N A053192 Cototient of cubes.
%C A053192 For n^k, n^k-EulerPhi[n^k]=n^(k-1)*(n-EulerPhi[n]), or cototient[n^k]=n^(k-1)*cototient[n]. 
               Similar relation holds for Euler totient function.
%F A053192 a(n)=n^2*Cototient[n]=A051953(n^3)=n^3-EulerPhi[n^3]=Cototient[n^3]
%Y A053192 a[p(n)]=A051953[p(n)^3]=A001248[n].
%Y A053192 Cf. A000010, A051953, A002618, A053650, A053191, A001248.
%Y A053192 Sequence in context: A141043 A111160 A071378 this_sequence A005985 A151271 
               A149115
%Y A053192 Adjacent sequences: A053189 A053190 A053191 this_sequence A053193 A053194 
               A053195
%K A053192 nonn
%O A053192 1,2
%A A053192 Labos E. (labos(AT)ana.sote.hu), Mar 02 2000