Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A084821
Odd numbers m such that sigma(m) > m + phi(m), where sigma=A000203 is the divisor sum and phi=A000010 the totient.
2
15, 45, 63, 75, 105, 135, 165, 189, 195, 225, 231, 255, 273, 285, 297, 315, 345, 357, 375, 399, 405, 429, 435, 441, 465, 483, 495, 525, 555, 567, 585, 609, 615, 645, 651, 675, 693, 705, 735, 765, 777, 795, 819, 825, 855, 861, 885, 891, 903, 915, 945, 975
OFFSET
1,1
COMMENTS
This sequence is closed under multiplication by odd values, and in particular with multiplication by itself. - Charles R Greathouse IV, Feb 19 2013
LINKS
MATHEMATICA
Select[Range[1, 1000, 2], DivisorSigma[1, #] > EulerPhi[#] + # &] (* Amiram Eldar, Sep 12 2019 *)
PROG
(PARI) is(n)=n%2 && sigma(n)>eulerphi(n)+n \\ Charles R Greathouse IV, Feb 19 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 04 2003
STATUS
approved