A124588 Primes p such that q - p <= 2, where q is the next prime after p.
2, 3, 5, 11, 17, 29, 41, 59, 71, 101, 107, 137, 149, 179, 191, 197, 227, 239, 269, 281, 311, 347, 419, 431, 461, 521, 569, 599, 617, 641, 659, 809, 821, 827, 857, 881, 1019, 1031, 1049, 1061, 1091, 1151, 1229, 1277, 1289, 1301, 1319, 1427, 1451, 1481, 1487, 1607
Offset: 1
Keywords
Links
- K. Soundararajan, Small gaps between prime numbers: the work of Goldston-Pintz-Yildirim, Bull. Amer. Math. Soc., 44 (2007), 1-18.
- Index entries for primes, gaps between
Crossrefs
Cf. A001359.
Programs
-
Mathematica
Transpose[Select[Partition[Prime[Range[300]],2,1],#[[2]]-#[[1]]<3&]] [[1]] (* Harvey P. Dale, Feb 11 2015 *)
-
PARI
twinl(n) = { c=0; x=1; while(c
Cino Hilliard, Mar 29 2008
Comments