|
%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
|
