OFFSET
1,2
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