%I A096360
%S A096360 1,2,3,4,6,7,8,14,16,28,31,32,62,64,124,127,128,248,254,256,496,508,512,
%T A096360 1016,1024,2032,2048,4064,4096,8128,8191,8192,16382,16384,32764,32768,
%U A096360 65528,65536,131056,131071,131072,262112,262142,262144,524224,524284
%N A096360 Divisors of perfect numbers (A000396), sorted.
%t A096360 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] (from Robert 
               G. Wilson v Jul 14 2004)
%Y A096360 Cf. A000396, A000043.
%Y A096360 Sequence in context: A018314 A070525 A099005 this_sequence A039087 A093710 
               A091421
%Y A096360 Adjacent sequences: A096357 A096358 A096359 this_sequence A096361 A096362 
               A096363
%K A096360 nonn
%O A096360 1,2
%A A096360 Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 30 2004
%E A096360 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and Ray 
               Chandler (rayjchandler(AT)sbcglobal.net), Jul 14 2004