A153740 Smallest non-twin prime > n-th and (n+1)-th twin primes.

23, 37, 47, 67, 79, 113, 157, 211, 233, 251, 277, 293, 317, 353, 439, 467, 541, 577, 607, 631, 647, 673, 839, 863, 887, 1039, 1069, 1097, 1163, 1237, 1283, 1297, 1307, 1327, 1433, 1459, 1493, 1613, 1627, 1693, 1709, 1733, 1801, 1889, 1973, 2003, 2039, 2099

Offset: 1

Author

Juri-Stepan Gerasimov, Dec 31 2008

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040, A077800.

Programs

Mathematica

Select[NextPrime/@Transpose[Select[Partition[Prime[Range[500]],2,1], Last[#]-First[#] == 2&]][[2]],!PrimeQ[#-2]&&!PrimeQ[#+2]&] (* Harvey P. Dale, Feb 25 2012 *)

Extensions

863 inserted by R. J. Mathar, Jan 03 2009