|
Search: id:A152058
|
|
| |
|
| 3, 7, 31, 127, 173, 3313, 8191, 131071, 524287, 699053, 13271393, 2147483647
(list; graph; listen)
|
|
|
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 this_sequence A138865 A051281 A145038
Adjacent sequences: A152055 A152056 A152057 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
