A175504 a(n) = n ^ (phi(n) - 1), phi(n) = A000010(n) = Euler totient function.

1, 1, 3, 4, 125, 6, 16807, 512, 59049, 1000, 2357947691, 1728, 1792160394037, 537824, 170859375, 268435456, 2862423051509815793, 1889568, 5480386857784802185939, 1280000000, 350277500542221

Offset

1,3

Comments

a(n) = A062981(n) / n. a(n) = A001783(n) / n * Product_{d|n} (d!/d^d)^A008683(n/d) = (Product_{GCD(k, n)=1} k) / (n * Product_{d|n} (d!/d^d)^A008683(n/d)).

Links

Table of n, a(n) for n=1..21.

Mathematica

Table[n^(EulerPhi[n]-1), {n, 25}]  (* Harvey P. Dale, Feb 13 2011 *)

Prog

(PARI) a(n)=n^(eulerphi(n)-1) \\ Charles R Greathouse IV, Mar 05 2013

Crossrefs

Sequence in context: A066496 A041465 A004124 * A308944 A280735 A356073

Adjacent sequences: A175501 A175502 A175503 * A175505 A175506 A175507

Keyword

nonn

Author

Jaroslav Krizek, May 31 2010

Status

approved