login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A039770 Numbers n such that phi(n) is a perfect square. 26
1, 2, 5, 8, 10, 12, 17, 32, 34, 37, 40, 48, 57, 60, 63, 74, 76, 85, 101, 108, 114, 125, 126, 128, 136, 160, 170, 185, 192, 197, 202, 204, 219, 240, 250, 257, 273, 285, 292, 296, 304, 315, 364, 370, 380, 394, 401, 432, 438, 444, 451, 456, 468, 489, 504, 505 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

A004171 is a subsequence because phi(2^(2n+1)) = (2^n)^2. - Enrique Pérez Herrero, Aug 25 2011

REFERENCES

D. M. Burton, Elementary Number Theory, Allyn and Bacon Inc., Boston MA, 1976, p. 141.

LINKS

T. D. Noe, Table of n, a(n) for n = 1..10000

W. D. Banks, J. B. Friedlander, C. Pomerance and I. E. Shparlinski, Multiplicative structure of values of the Euler function, in High Primes and Misdemeanours: Lectures in Honour of the Sixtieth Birthday of Hugh Cowie Williams (A. Van der Poorten, ed.), Fields Inst. Comm. 41 (2004), pp. 29-47.

P. Pollack and C. Pomerance, Square values of Euler's function, submitted for publication.

FORMULA

a(n) seems to be asymptotic to c*n^(3/2) with 1<c<1.3 - Benoit Cloitre, Sep 08 2002

Banks, Friedlander, Pomerance, and Shparlinski show that a(n) = O(n^1.421). - Charles R Greathouse IV, Aug 24 2009

EXAMPLE

phi(34)=16=4*4.

MAPLE

with(numtheory); isA039770 := proc (n) return issqr(phi(n)) end proc; seq(`if`(isA039770(n), n, NULL), n = 1 .. 505); # Nathaniel Johnston, Oct 09 2013

MATHEMATICA

Select[ Range[ 600 ], IntegerQ[ Sqrt[ EulerPhi[ # ] ] ]& ]

PROG

(PARI) for(n=1, 120, if (issquare(eulerphi(n)), print1(n, ", ")))

CROSSREFS

Cf. A000010, A007614. A062732 gives the squares.

Cf. A068560, A004171, A114063, A262406.

Sequence in context: A166955 A286808 A121294 * A236019 A247426 A047618

Adjacent sequences:  A039767 A039768 A039769 * A039771 A039772 A039773

KEYWORD

nonn,easy,nice

AUTHOR

Olivier Gérard

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified January 20 17:44 EST 2018. Contains 297961 sequences.