A098032 - OEIS

%I #6 Nov 21 2013 12:48:22

%S 59,131,139,239,269,281,331,401,431,691,769,797,929,1021,1439,1549,

%T 1741,1831,1847,1999,2141,2221,2269,2459,2633,2699,2719,2731,3319,

%U 3529,3583,3691,3709,3779,4327,4373,4651,4969,4999,5011,5021,5717,5869,5879,5903

%N Primes p such that p = (prime(n)+ prime(n+5))/2.

%e prime(15)+prime(20) = 59*2

%t Select[Table[(Prime[n]+Prime[n+5])/2,{n,1000}],PrimeQ] (* _Harvey P. Dale_, Jul 25 2011 *)

%o (PARI) f(n,m) = for(x=1,n,y=prime(x)+prime(x+m);if(y%2==0 & isprime(y\2), print1(y\2",")))

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, Sep 10 2004