A061779 Primes p such that q-p = 22, where q is the next prime after p.

1129, 1951, 2311, 2557, 3229, 3469, 3739, 3967, 4027, 5449, 6427, 7129, 8017, 9349, 9439, 9697, 10039, 10111, 10369, 10567, 11329, 11527, 12049, 12301, 13729, 13807, 14221, 14347, 15031, 15937, 17137, 17209, 17761, 18097, 18979, 19819, 19867, 19891

Offset: 1

Author

Amarnath Murthy, May 23 2001

Keywords

• nonn

Comments

Smaller of 2 consecutive primes with a difference of 22: primes p such that p+22 is the next prime.

Examples

			1129 is a term as the next prime is 1151.
		

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.
• Index entries for primes, gaps between

Programs

Magma

[p: p in PrimesUpTo(20000) | NextPrime(p)-p eq 22]; // Bruno Berselli, Apr 09 2013

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 *)

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

Extensions

Corrected and extended by Patrick De Geest, May 26 2001

Entry revised by N. J. A. Sloane, Jan 26 2007