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

Author

Jaroslav Krizek, May 31 2010

Keywords

• nonn

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)).

Programs

Mathematica

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

PARI

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