A279731 Composite numbers whose sum of proper divisors is a power of 2.
9, 10, 12, 26, 49, 56, 58, 76, 122, 332, 568, 961, 992, 1018, 2042, 3344, 4336, 8186, 16129, 16256, 32762, 37432, 82704, 227744, 266176, 269072, 299576, 856544, 2097146, 5385812, 8388602, 9834772, 16580864, 17895664, 19173944, 33554426, 34636768, 61008020, 67092481, 67100672
Offset: 1
Keywords
Examples
12 is a term because 1 + 2 + 3 + 4 + 6 = 2^4.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..59 (terms < 4*10^12)
Programs
-
Mathematica
Select[Range[7*10^7],CompositeQ[#]&&IntegerQ[Log[2,Total[ Most[ Divisors[ #]]]]]&] (* Harvey P. Dale, Apr 01 2018 *)
-
PARI
isok(n) = ispower(sigma(n)-n,,&k) && (k==2); \\ Michel Marcus, Dec 18 2016
Comments