|
%I #6 Nov 21 2013 12:49:29
%S 23,37,47,67,79,113,157,211,233,251,277,293,317,353,439,467,541,577,
%T 607,631,647,673,839,863,887,1039,1069,1097,1163,1237,1283,1297,1307,
%U 1327,1433,1459,1493,1613,1627,1693,1709,1733,1801,1889,1973,2003,2039,2099
%N Smallest non-twin prime > n-th and (n+1)-th twin primes.
%H Harvey P. Dale, <a href="/A153740/b153740.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[NextPrime/@Transpose[Select[Partition[Prime[Range[500]],2,1], Last[#]-First[#] == 2&]][[2]],!PrimeQ[#-2]&&!PrimeQ[#+2]&] (* _Harvey P. Dale_, Feb 25 2012 *)
%Y Cf. A000040, A077800.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Dec 31 2008
%E 863 inserted by _R. J. Mathar_, Jan 03 2009
|
