A152058 Primes in A152057.

3, 7, 31, 127, 173, 3313, 8191, 131071, 524287, 699053, 13271393, 2147483647

Offset

0,1

Links

Table of n, a(n) for n=0..11.

Mathematica

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}]]]

Crossrefs

A046800

Sequence in context: A089162 A016047 A003260 * A138865 A051281 A145038

Adjacent sequences: A152055 A152056 A152057 * A152059 A152060 A152061

Keyword

nonn

Author

Roger L. Bagula, Nov 22 2008

Extensions

Edited by N. J. A. Sloane, Nov 26 2008

Status

approved