|
%I #11 Dec 15 2017 17:35:14
%S 1,1,4,4,4,4,16,16,16,36,16,16,36,16,36,36,36,64,100,36,36,100,36,64,
%T 64,64,64,144,64,196,100,64,144,64,100,256,144,144,144,144,144,144,
%U 144,144,144,196,400,144,144,144,400,144,144,324,144,400,256,324,256,144
%N Squares arising in A039770.
%D D. M. Burton, Elementary Number Theory, Allyn and Bacon Inc., Boston MA, 1976, p. 141.
%H Harry J. Smith, <a href="/A062732/b062732.txt">Table of n, a(n) for n = 1..1000</a>
%o (PARI) je=[]; for(n=1,1000, if(issquare(eulerphi(n)),je=concat(je,eulerphi(n)))); je
%o (PARI) n=0; for (m=1, 10^5, if (issquare(a=eulerphi(m)), write("b062732.txt", n++, " ", a); if (n==1000, break))) \\ _Harry J. Smith_, Aug 10 2009
%Y Cf. A039770.
%K nonn
%O 1,3
%A _Jason Earls_, Jul 12 2001
|
