%I #8 Jul 25 2015 19:21:51
%S 1,2,3,4,6,7,8,14,16,28,31,32,62,64,124,127,128,248,254,256,496,508,
%T 512,1016,1024,2032,2048,4064,4096,8128,8191,8192,16382,16384,32764,
%U 32768,65528,65536,131056,131071,131072,262112,262142,262144,524224,524284
%N Divisors of perfect numbers (A000396), sorted.
%t 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 *)
%Y Cf. A000396, A000043.
%K nonn
%O 1,2
%A _Lekraj Beedassy_, Jun 30 2004
%E Edited and extended by _Robert G. Wilson v_ and _Ray Chandler_, Jul 14 2004
|