(MAGMAMagma) [n: n in [1..6000] | IsSquare(EulerPhi(n) * SumOfDivisors(n) + 9)]; // Vincenzo Librandi, Mar 14 2014
(MAGMAMagma) [n: n in [1..6000] | IsSquare(EulerPhi(n) * SumOfDivisors(n) + 9)]; // Vincenzo Librandi, Mar 14 2014
reviewed
approved
proposed
reviewed
editing
proposed
R. K. Guy, Divisors and desires, Amer. Math. Monthly, 104 (1997), 359-360.
Richard K. Guy, <a href="http://www.jstor.org/stable/2974586">Divisors and desires</a>, Amer. Math. Monthly, 104 (1997), 359-360.
proposed
editing
editing
proposed
(MAGMA) [n: n in [1..6000] | IsSquare(EulerPhi(n) * SumOfDivisors(n) + 9)]; // Vincenzo Librandi, Mar 14 2014
proposed
editing
editing
proposed
Vincenzo Librandi, <a href="/A015728/b015728.txt">Table of n, a(n) for n = 1..210</a>
Select[Range[10000], IntegerQ[Sqrt[EulerPhi[#]DivisorSigma[1, #] + 9]] &] (* Vincenzo Librandi, Mar 14 2014 *)
approved
editing
_Robert G. Wilson v (rgwv(AT)rgwv.com)_