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,2

Links

Table of n, a(n) for n=1..46.

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 *)

Crossrefs

Cf. A000396, A000043.

Sequence in context: A099005 A336739 A257648 * A039087 A093710 A091421

Adjacent sequences: A096357 A096358 A096359 * A096361 A096362 A096363

Keyword

nonn

Author

Lekraj Beedassy, Jun 30 2004

Extensions

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

Status

approved