A117292 a(n) = (n-phi(n))^phi(n).

0, 1, 1, 4, 1, 16, 1, 256, 729, 1296, 1, 4096, 1, 262144, 5764801, 16777216, 1, 2985984, 1, 429981696, 282429536481, 61917364224, 1, 4294967296, 95367431640625, 56693912375296, 150094635296999121, 281474976710656, 1, 54875873536, 1

Offset

1,4

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..200

Example

a(12) = (12-phi(12))^phi(12) = 8^4 = 4096.

Mathematica

ep[n_]:=Module[{phi=EulerPhi[n]}, (n-phi)^phi]; Array[ep, 40] (* Harvey P. Dale, Sep 30 2011 *)

Prog

(PARI) a(n)=(n-phi(n))^phi(n) \\ Charles R Greathouse IV, Jun 01 2013

Crossrefs

Sequence in context: A197653 A146160 A059222 * A062780 A262616 A309074

Adjacent sequences: A117289 A117290 A117291 * A117293 A117294 A117295

Keyword

nonn

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 23 2006

Status

approved