OFFSET
1,2
COMMENTS
This sequence is finite because phi(k) >= sqrt(k) for all k >= 6, and for any e > 0, tau(k) < k^e for k large enough. Choosing e=1/4 gives tau(k)^2 < sqrt(k) <= phi(k). It remains unknown, however, if this sequence is full. - Nathaniel Johnston, Apr 28 2011
It can be shown that tau(k) <= 120 and the sequence is complete. - Max Alekseyev, May 30 2024
EXAMPLE
a(2) = A107655(2) = 5.
MATHEMATICA
Do[If[EulerPhi[n] == DivisorSigma[0, n]^2, Print[n]], {n, 10^5}] (* Ryan Propper, Jun 09 2006 *)
Select[Range[10^5], EulerPhi[#] == DivisorSigma[0, #]^2 &] (* Alonso del Arte, Aug 25 2011 *)
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
Benoit Cloitre, Mar 25 2002
EXTENSIONS
More terms from Ryan Propper, Jun 09 2006
"full" keyword added by Max Alekseyev, May 30 2024
STATUS
approved