proposed
approved
proposed
approved
editing
proposed
Amiram Eldar, <a href="/A084820/b084820.txt">Table of n, a(n) for n = 1..10000</a>
Select[Range[1, 140, 2], DivisorSigma[1, #] < EulerPhi[#] + # &] (* Amiram Eldar, Sep 12 2019 *)
approved
editing
editing
approved
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/TotientFunction.html">Totient Function.</a>
(PARI) is(n)=eulerphi(n)+n>sigma(n) \\ Charles R Greathouse IV, Feb 19 2013
approved
editing
_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Jun 04 2003
nonn,new
nonn
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystemsgmail.com), Jun 04 2003
1, 3, 5, 7, 9, 11, 13, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 47, 49, 51, 53, 55, 57, 59, 61, 65, 67, 69, 71, 73, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125, 127, 129, 131, 133, 137
1,2
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DivisorFunction.html">Divisor Function</a>
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/TotientFunction.html">Totient Function.</a>
Cf. A046022.
nonn
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com), Jun 04 2003
approved