login
A071617
a(n) = phi(p)^phi(p) where p = prime(n).
0
1, 4, 256, 46656, 10000000000, 8916100448256, 18446744073709551616, 39346408075296537575424, 341427877364219557396646723584, 33145523113253374862572728253364605812736, 205891132094649000000000000000000000000000000
OFFSET
1,2
FORMULA
a(n) = A063439(A000040(n)).
a(n) = A000312(A006093(n)).
MAPLE
a:= n-> (p-> (p-1)^(p-1))(ithprime(n)):
seq(a(n), n=1..11); # Alois P. Heinz, Jul 30 2024
PROG
(PARI) a(n) = my(q=eulerphi(prime(n))); q^q; \\ Michel Marcus, Jul 30 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, May 29 2002
EXTENSIONS
a(11) from Sean A. Irvine, Jul 30 2024
STATUS
approved