%I #12 Jul 30 2024 17:56:38
%S 1,4,256,46656,10000000000,8916100448256,18446744073709551616,
%T 39346408075296537575424,341427877364219557396646723584,
%U 33145523113253374862572728253364605812736,205891132094649000000000000000000000000000000
%N a(n) = phi(p)^phi(p) where p = prime(n).
%F a(n) = A063439(A000040(n)).
%F a(n) = A000312(A006093(n)).
%p a:= n-> (p-> (p-1)^(p-1))(ithprime(n)):
%p seq(a(n), n=1..11); # _Alois P. Heinz_, Jul 30 2024
%o (PARI) a(n) = my(q=eulerphi(prime(n))); q^q; \\ _Michel Marcus_, Jul 30 2024
%Y Cf. A000010, A000312, A006093, A063439, A000040.
%K easy,nonn
%O 1,2
%A _Labos Elemer_, May 29 2002
%E a(11) from _Sean A. Irvine_, Jul 30 2024
|