OFFSET
1,4
COMMENTS
REFERENCES
Sárközy A. and Suranyi J., Number Theory Problem Book (in Hungarian)
EXAMPLE
x=2592, Phi[2592]=864, Cototient[x]=2592-864=1728 and the quotients are as follows: x/Phi=2592/864=3 or Cototient[x]/Phi[x]=1728/864=2; x always has a form of 2^u*3^w
MATHEMATICA
Select[(#-EulerPhi[#])/EulerPhi[#]&/@Range[300000], IntegerQ] (* Harvey P. Dale, Mar 01 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 26 2000
STATUS
approved