A165285 - OEIS

%I #2 Mar 31 2012 12:38:26

%S 17,43,59,73,79,101,109,139,163,191,197,233,239,283,317,331,379,419,

%T 433,439,443,463,467,499,521,569,571,599,617,619,641,739,743,787,811,

%U 863,911,919,941,967,971,1021,1039,1061,1063,1087,1097,1109,1117,1229,1289

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

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

%t 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]

%Y Cf. A130097, A062090, A050150, A015919

%K nonn,uned

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Sep 13 2009