%I A064448
%S A064448 1,2,9,128,625,15552,117649,8388608,129140163,2000000000,25937424601,
%T A064448 2972033482752,23298085122481,1587429546508288,29192926025390625,
%U A064448 9223372036854775808,48661191875666868481,13115469358432179191808
%N A064448 GCD[n^n,EulerPhi[n^n]].
%H A064448 Harry J. Smith, <a href="b064448.txt">Table of n, a(n) for n=1,...,100</
               a>
%F A064448 a(n)=GCD[A000312(n), A000010(A000312(n))]
%o A064448 (PARI) { for (n=1, 100, p=n^n; write("b064448.txt", n, " ", gcd(p, eulerphi(p))) 
               ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 14 2009]
%Y A064448 A000312, A000010.
%Y A064448 Sequence in context: A090242 A047684 A162955 this_sequence A110817 A110860 
               A050995
%Y A064448 Adjacent sequences: A064445 A064446 A064447 this_sequence A064449 A064450 
               A064451
%K A064448 nonn
%O A064448 1,2
%A A064448 Labos E. (labos(AT)ana.sote.hu), Oct 02 2001