A096360 Divisors of perfect numbers (A000396), sorted.

1, 2, 3, 4, 6, 7, 8, 14, 16, 28, 31, 32, 62, 64, 124, 127, 128, 248, 254, 256, 496, 508, 512, 1016, 1024, 2032, 2048, 4064, 4096, 8128, 8191, 8192, 16382, 16384, 32764, 32768, 65528, 65536, 131056, 131071, 131072, 262112, 262142, 262144, 524224, 524284

Offset: 1

Author

Lekraj Beedassy, Jun 30 2004

Keywords

• nonn

Crossrefs

Cf. A000396, A000043.

Programs

Mathematica

a = {}; Do[p = 2^Prime[n] - 1; If[ PrimeQ[p], AppendTo[a, Divisors[ p*(p + 1)/2]]], {n, 17}]; a = Take[ Union[ Flatten[a]], 46] (* Robert G. Wilson v, Jul 14 2004 *)

Extensions

Edited and extended by Robert G. Wilson v and Ray Chandler, Jul 14 2004