OFFSET
1,1
COMMENTS
(1+2)+(2+3)+(4+5)=17, (4+5)+(6+7)+(10+11)=43, (6+7)+(10+11)+(12+13)=59,..
MATHEMATICA
lst={}; Do[s=2*Prime[m]-1; Do[p=Prime[n]; s+=(2*p-1); If[PrimeQ[s], If[s<=6793, AppendTo[lst, s]]], {n, m+1, 3*5!}], {m, 1, 3*5!}]; lst=Take[Union@lst, 200]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 13 2009
STATUS
approved