login
Primes in A087461.
0

%I #5 May 06 2013 10:09:12

%S 5,13,71,127,163,197,227,307,317,409,523,587,593,761,857,947,1151,

%T 1321,1373,1783,1861,1973,2039,2273,2417,2543,3049,3083,3457,3463,

%U 3697,3739,4093,4243,4253,4463,4483,4519,4583,4657,4723,4751,5171,5179,5519,5591

%N Primes in A087461.

%C Primes of the form (prime(k)+prime(2k))/2.

%t Select[Table[(Prime[n]+Prime[2n])/2,{n,500}],PrimeQ] (* _Harvey P. Dale_, May 06 2013 *)

%Y Cf. A087461.

%K nonn

%O 1,1

%A _Ray Chandler_, Sep 10 2003