login
a(n) = (n-phi(n))^phi(n).
1

%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