login
The first member of a twin prime pair whose sum equals the sums of two consecutive smaller pairs of twin primes.
4

%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