|
%I #22 Oct 12 2022 12:13:51
%S 1,2,18,128,2500,15552,705894,8388608,258280326,4000000000,
%T 259374246010,2972033482752,279577021469772,4762288639524864,
%U 233543408203125000,9223372036854775808,778579070010669895696,13115469358432179191808,1874292305362402347591138
%N a(n) = EulerPhi(n^n).
%H Harry J. Smith, <a href="/A064447/b064447.txt">Table of n, a(n) for n = 1..100</a>
%F a(n) = A000010(A000312(n)).
%e For p prime, a(p) = (p^(p-1))*(p-1) = ((phi(p)+1)^phi(p))*phi(p).
%t a[n_]:=EulerPhi[n^n];lst={};Do[AppendTo[lst, a[n]], {n, 0, 2*4!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Dec 03 2008 *)
%t Table[EulerPhi[n^n],{n,20}] (* _Harvey P. Dale_, Jun 02 2015 *)
%o (PARI) { for (n=1, 100, write("b064447.txt", n, " ", eulerphi(n^n)) ) } \\ _Harry J. Smith_, Sep 14 2009
%Y Cf. A000005, A000010, A000312.
%K nonn
%O 1,2
%A _Labos Elemer_, Oct 02 2001
|
