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,1

Comments

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

Links

Table of n, a(n) for n=1..51.

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

Cf. A130097, A062090, A050150, A015919

Sequence in context: A215164 A123592 A260553 * A200321 A165981 A109998

Adjacent sequences: A165282 A165283 A165284 * A165286 A165287 A165288

Keyword

nonn,uned

Author

Vladimir Joseph Stephan Orlovsky, Sep 13 2009

Status

approved