Skip to main content
1 of 2
Giuseppe
  • 29.4k
  • 3
  • 33
  • 106

R, 33 bytes

!2*(n=scan())-sum(which(!n%%1:n)) 

Try it online!

Returns TRUE for perfect numbers ans FALSE for imperfect ones.

Giuseppe
  • 29.4k
  • 3
  • 33
  • 106