A165285 Primes which are the sum of at least 2 consecutive pars "Prime and PreviousNumber".

17, 43, 59, 73, 79, 101, 109, 139, 163, 191, 197, 233, 239, 283, 317, 331, 379, 419, 433, 439, 443, 463, 467, 499, 521, 569, 571, 599, 617, 619, 641, 739, 743, 787, 811, 863, 911, 919, 941, 967, 971, 1021, 1039, 1061, 1063, 1087, 1097, 1109, 1117, 1229, 1289

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Sep 13 2009

Keywords

• nonn
• uned

Comments

(1+2)+(2+3)+(4+5)=17, (4+5)+(6+7)+(10+11)=43, (6+7)+(10+11)+(12+13)=59,..

Crossrefs

Cf. A130097, A062090, A050150, A015919

Programs

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]