A022887 - OEIS

%I #13 Dec 01 2015 17:10:42

%S 3,17,29,47,59,61,67,79,151,157,227,233,257,269,353,367,379,439,463,

%T 541,557,571,587,593,617,733,739,743,787,947,971,991,1021,1031,1097,

%U 1103,1217,1277,1289,1301,1321,1429,1499,1549,1597,1601,1607,1621,1663

%N n-th prime p(k) such that p(k) + p(k+4) = p(k+1) + p(k+3).

%H R. J. Mathar, <a href="/A022887/b022887.txt">Table of n, a(n) for n = 1..501</a>

%F a(n) = A000040(A022886(n)). - _R. J. Mathar_, Aug 06 2015

%t Transpose[Select[Partition[Prime[Range[300]],5,1],#[[1]]+#[[5]] == #[[2]]+#[[4]]&]][[1]] (* _Harvey P. Dale_, Dec 01 2015 *)

%K nonn

%O 1,1

%A _Clark Kimberling_

%E Corrected by _Jud McCranie_, Jan 03 2001