A117291 a(n) = phi(n)^(n-phi(n))

1, 1, 2, 4, 4, 16, 6, 256, 216, 4096, 10, 65536, 12, 1679616, 2097152, 16777216, 16, 2176782336, 18, 68719476736, 5159780352, 1000000000000, 22, 281474976710656, 3200000, 1283918464548864, 198359290368, 184884258895036416, 28

Offset

1,3

Links

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

Example

a(9) = phi(9)^(9-phi(9)) = 6^3 = 216

Mathematica

ep[n_]:=Module[{p=EulerPhi[n]}, p^(n-p)]; Array[ep, 30] (* Harvey P. Dale, Mar 25 2014 *)

Prog

(PARI) a(n) = eulerphi(n)^(n-eulerphi(n))  \\ Michel Marcus, Jun 01 2013

Crossrefs

Sequence in context: A218075 A366709 A064449 * A246047 A079102 A071337

Adjacent sequences: A117288 A117289 A117290 * A117292 A117293 A117294

Keyword

nonn

Author

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

Extensions

Corrected by Michel Marcus, Jun 01 2013

Status

approved