0,1
Table of n, a(n) for n=0..11.
Flatten[Sort[Table[If[PrimeQ[Sum[FactorInteger[2^n - 1][[m]][[1]], {m, 1, Length[FactorInteger[2^n - 1]]}]], Sum[FactorInteger[2^n - 1][[m]][[1]], {m, 1, Length[FactorInteger[2^n - 1]]}], {}], {n, 0, 50}]]]
A046800
Sequence in context: A089162 A016047 A003260 * A138865 A051281 A145038
Adjacent sequences: A152055 A152056 A152057 * A152059 A152060 A152061
nonn
Roger L. Bagula, Nov 22 2008
Edited by N. J. A. Sloane, Nov 26 2008
approved
