|
| |
| |
|
|
|
3, 7, 31, 127, 173, 3313, 8191, 131071, 524287, 699053, 13271393, 2147483647
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
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 (rlbagulatftn(AT)yahoo.com), Nov 22 2008
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Nov 26 2008
|
| |
|
|
