login
A124585
Primes p such that q-p >= 12, where q is the next prime after p.
2
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
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 19 2006
STATUS
approved