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