%I #16 Mar 26 2014 09:34:15
%S 0,1,1,4,1,16,1,256,729,1296,1,4096,1,262144,5764801,16777216,1,
%T 2985984,1,429981696,282429536481,61917364224,1,4294967296,
%U 95367431640625,56693912375296,150094635296999121,281474976710656,1,54875873536,1
%N a(n) = (n-phi(n))^phi(n).
%H Vincenzo Librandi, <a href="/A117292/b117292.txt">Table of n, a(n) for n = 1..200</a>
%e a(12) = (12-phi(12))^phi(12) = 8^4 = 4096.
%t ep[n_]:=Module[{phi=EulerPhi[n]},(n-phi)^phi]; Array[ep, 40] (* _Harvey P. Dale_, Sep 30 2011 *)
%o (PARI) a(n)=(n-phi(n))^phi(n) \\ _Charles R Greathouse IV_, Jun 01 2013
%K nonn
%O 1,4
%A Luc Stevens (lms022(AT)yahoo.com), Apr 23 2006