A124585 Primes p such that q-p >= 12, where q is the next prime after p.

113, 199, 211, 293, 317, 467, 509, 523, 619, 661, 773, 797, 839, 863, 887, 953, 997, 1069, 1129, 1201, 1237, 1259, 1307, 1327, 1381, 1409, 1459, 1499, 1511, 1531, 1583, 1637, 1669, 1709, 1759, 1789, 1811, 1831, 1847, 1889, 1913, 1933, 1951, 2039, 2069, 2099

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1600

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

Mathematica

Transpose[Select[Partition[Prime[Range[500]], 2, 1], #[[2]]-#[[1]]> 11&]] [[1]]  (* Harvey P. Dale, Dec 20 2010 *)
Select[Prime[Range[500]], NextPrime[#] - # >= 12 &]
Prime[#]&/@Flatten[Position[Differences[Prime[Range[400]]], _?(#>11&)]] (* Harvey P. Dale, Jan 27 2020 *)

Prog

(PARI) lista(nn) = forprime(p=2, nn, if (nextprime(p+1) - p >= 12, print1(p, ", "))); \\ Michel Marcus, Sep 05 2016

Crossrefs

Sequence in context: A151947 A087703 A056710 * A173594 A074982 A094932

Adjacent sequences: A124582 A124583 A124584 * A124586 A124587 A124588

Keyword

nonn

Author

N. J. A. Sloane, Dec 19 2006

Status

approved