A163667 Numbers n such that sigma(n) = 9*phi(n).
30, 264, 714, 3080, 3828, 6678, 10098, 12648, 21318, 22152, 24882, 44660, 49938, 61344, 86304, 94944, 118296, 129504, 130356, 147560, 183396, 199386, 201756, 207264, 216936, 248710, 258440, 265914, 275196, 290290, 321204, 505164, 628776, 706266, 706836
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (calculated using data from Jud McCranie, terms 1..1000 from Donovan Johnson)
- Kevin A. Broughan and Daniel Delbourgo, On the Ratio of the Sum of Divisors and Euler’s Totient Function I, Journal of Integer Sequences, Vol. 16 (2013), Article 13.8.8.
- Kevin A. Broughan and Qizhi Zhou, On the Ratio of the Sum of Divisors and Euler's Totient Function II, Journal of Integer Sequences, Vol. 17 (2014), Article 14.9.2.
Programs
-
Mathematica
Select[Range[700000],DivisorSigma[1,# ]==9EulerPhi[ # ]&]
-
PARI
is(n)=sigma(n)==9*eulerphi(n) \\ Charles R Greathouse IV, May 09 2013
Comments