%I #4 Mar 20 2015 14:23:06
%S 1,2,6,16,40,24,84,128,162,160,440,192,624,336,480,1024,2176,648,2052,
%T 1280,1512,1760,5060,1536,5000,2496,4374,2688,9744,1920,7440,8192,
%U 5280,8704,6720,5184,15984,8208,11232,10240,26240,6048,21672,14080,12960
%N n*phi(n*phi(n)).
%e a(3)=3*phi(3*phi(3))=3*phi(6)=6
%t Table[n*EulerPhi[n*EulerPhi[n]],{n,50}]
%o (PARI) for (n=1,100, print1(n*eulerphi(n*eulerphi(n))","))
%K nonn
%O 1,2
%A _Jon Perry_, Jan 09 2003