|
|
A100382
|
|
Record values of A062700.
|
|
2
|
|
|
3, 7, 13, 31, 127, 307, 1093, 1723, 2801, 3541, 8191, 10303, 19531, 28057, 30941, 131071, 147073, 524287, 797161, 830833, 1191373, 1204507, 1353733, 1395943, 1424443, 1482307, 1886503, 2037757, 2212657, 2432041, 2507473, 2922391
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Take sequence A062700: 3, 7, 13, 31, 31, 127, 307, 1093, 1723, 2801, 3541, 8191, 5113, 8011, 10303, .... Then eliminate terms so that each term of the sequence is larger than the preceding one: 3, 7, 13, 31, 127, 307, 1093, 1723, 2801, 3541, 8191, 10303, ....
|
|
LINKS
|
|
|
PROG
|
(Magma) S:=[]; a:=0; for n in [1..3000000] do c:=SumOfDivisors(n); if IsPrime(c) and a lt c then Append(~S, c); a:=c; end if; end for; S; // Klaus Brockhaus, Oct 21 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|