OFFSET
1,1
COMMENTS
Smaller of 2 consecutive primes with a difference of 22: primes p such that p+22 is the next prime.
LINKS
Remi Eismann, Table of n, a(n) for n = 1..10000
K. Soundararajan, Small gaps between prime numbers: the work of Goldston-Pintz-Yildirim, Bull. Amer. Math. Soc., 44 (2007), 1-18.
EXAMPLE
1129 is a term as the next prime is 1151.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[2300]], 2, 1], Last[#] - First[#] == 22 &]][[1]] (* Bruno Berselli, Apr 09 2013 *)
r = Prime@Range@2300; r[[Flatten@Position[Differences@r, 22]]] (* Hans Rudolf Widmer, Jan 21 2023 *)
PROG
(PARI) { n=0; p=2; forprime (q=3, 457043, if ((q - p)==22, write("b061779.txt", n++, " ", p)); p=q ) } \\ Harry J. Smith, Jul 27 2009
(Magma) [p: p in PrimesUpTo(20000) | NextPrime(p)-p eq 22]; // Bruno Berselli, Apr 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 23 2001
EXTENSIONS
Corrected and extended by Patrick De Geest, May 26 2001
Entry revised by N. J. A. Sloane, Jan 26 2007
STATUS
approved