%I #15 Sep 29 2017 15:19:03
%S 11,13,17,103,107,151,179,251,409,421,491,619,701,709,739,941,1009,
%T 1051,1069,1459,1487,1499,1571,1759,1789,1873,2281,2441,2659,2671,
%U 2741,2749,2789,2819,2861,3011,3019,3331,3389,3463,3931,4001,4111,4177,4229,4231
%N Primes p such that p = (prime(n)+ prime(n+4))/2.
%C The union of sequences A179208, A118467, and A126238. - _Irina Gerasimova_, Jul 07 2013
%H Harvey P. Dale, <a href="/A098031/b098031.txt">Table of n, a(n) for n = 1..1000</a>
%e prime(3)=5,prime(3+4)=17. (5+17)/2 = 11.
%t Select[Table[(Prime[n]+Prime[n+4])/2,{n,800}],PrimeQ] (* _Harvey P. Dale_, Sep 29 2017 *)
%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
|