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
Chai Wah Wu, Table of n, a(n) for n = 1..10000
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
Jorge Coveiro, Dec 30 2004
EXTENSIONS
More terms from Ryan Propper, Jul 13 2005
Edited, corrected and extended by Klaus Brockhaus, Oct 21 2009
STATUS
approved