%I #18 Jun 14 2013 09:55:16
%S 17,29,71,101,659,1091,1301,2081,2111,2381,2591,2969,4241,4271,4649,
%T 4721,4931,5441,5519,6689,6761,7589,8219,8999,10331,10859,11159,11717,
%U 11969,13001,16451,17657,18521,20231,22277,23039,23909,24179,24917,27479,28571
%N The first member of a twin prime pair whose sum equals the sums of two consecutive smaller pairs of twin primes.
%C The sum of a given pair of twin primes can be represented as the sum of consecutive pairs of smaller twin primes.
%H Zak Seidov, <a href="/A225943/b225943.txt">Table of n, a(n) for n = 1..1000</a>
%e 17 + 19 = (5 + 7) + (11 + 13).
%t t = Select[2*Range[20000], PrimeQ[# - 1] && PrimeQ[# + 1] &]; Intersection[t, Rest[t] + Most[t]] - 1 (* _T. D. Noe_, Jun 13 2013 *)
%K nonn
%O 1,1
%A _César Aguilera_, May 21 2013
%E Extended by _T. D. Noe_, Jun 13 2013