%I #7 Jan 20 2015 17:31:48
%S 3,4,8,11,13,25,27,32,36,41,44,45,51,54,59,60,62,67,96,103,107,109,
%T 116,119,124,128,129,140,141,143,144,146,147,148,149,151,155,159,160,
%U 161,170,178,184,192,195,207,227,230,247,271,306,330,331,332
%N n-th prime p(k) such that p(k) + p(k+5) = p(k+1) + p(k+4).
%H Harvey P. Dale, <a href="/A022888/b022888.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Position[Partition[Prime[Range[350]],6,1],_?(#[[1]]+#[[6]] == #[[2]]+#[[5]]&),{1},Heads->False]] (* _Harvey P. Dale_, Jan 20 2015 *)
%K nonn
%O 1,1
%A _Clark Kimberling_
|