A071617 a(n) = phi(p)^phi(p) where p = prime(n).

1, 4, 256, 46656, 10000000000, 8916100448256, 18446744073709551616, 39346408075296537575424, 341427877364219557396646723584, 33145523113253374862572728253364605812736, 205891132094649000000000000000000000000000000

Offset: 1

Author

Labos Elemer, May 29 2002

Keywords

• easy
• nonn

Crossrefs

Cf. A000010, A000312, A006093, A063439, A000040.

Programs

Maple

a:= n-> (p-> (p-1)^(p-1))(ithprime(n)):
seq(a(n), n=1..11);  # Alois P. Heinz, Jul 30 2024

PARI

a(n) = my(q=eulerphi(prime(n))); q^q; \\ Michel Marcus, Jul 30 2024

Formula

a(n) = A063439(A000040(n)).

a(n) = A000312(A006093(n)).

Extensions

a(11) from Sean A. Irvine, Jul 30 2024