login
A061779
Primes p such that q-p = 22, where q is the next prime after p.
10
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,1
COMMENTS
Smaller of 2 consecutive primes with a difference of 22: primes p such that p+22 is the next prime.
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
Sequence in context: A082888 A122384 A218041 * A218159 A325087 A261404
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