A126238 - OEIS

%I #8 Oct 10 2019 13:57:56

%S 1009,2789,4001,4931,5431,5501,5519,5839,6029,6521,7103,7817,8081,

%T 8147,8353,10091,17011,18251,18301,19751,21139,22769,25013,25339,

%U 25931,26681,27271,27397,27791,28429,28619,33149,33739,35491,35521,36451,36779

%N Primes of the form p = prime(n) = (prime(n+3)+prime(n-1))/2.

%H Harvey P. Dale, <a href="/A126238/b126238.txt">Table of n, a(n) for n = 1..1000</a>

%t Prime@Select[Range[2, 4000], 2Prime[ # ] == Prime[ # - 1] + Prime[ # + 3] &] (* _Ray Chandler_, Dec 27 2006 *)

%t Transpose[Select[Partition[Prime[Range[4000]],5,1],2#[[2]]==#[[5]]+#[[1]]&]][[2]] (* _Harvey P. Dale_, Jan 23 2013 *)

%Y Cf. A006562, A119381, A126239-A126243.

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 21 2006

%E Edited and extended by _Ray Chandler_, Dec 27 2006