login
A165285
Primes which are the sum of at least 2 consecutive pars "Prime and PreviousNumber".
1
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,..
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
STATUS
approved