Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A062732
Squares arising in A039770.
10
1, 1, 4, 4, 4, 4, 16, 16, 16, 36, 16, 16, 36, 16, 36, 36, 36, 64, 100, 36, 36, 100, 36, 64, 64, 64, 64, 144, 64, 196, 100, 64, 144, 64, 100, 256, 144, 144, 144, 144, 144, 144, 144, 144, 144, 196, 400, 144, 144, 144, 400, 144, 144, 324, 144, 400, 256, 324, 256, 144
OFFSET
1,3
REFERENCES
D. M. Burton, Elementary Number Theory, Allyn and Bacon Inc., Boston MA, 1976, p. 141.
LINKS
PROG
(PARI) je=[]; for(n=1, 1000, if(issquare(eulerphi(n)), je=concat(je, eulerphi(n)))); je
(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
CROSSREFS
Cf. A039770.
Sequence in context: A132383 A115639 A242954 * A100777 A309501 A024727
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 12 2001
STATUS
approved