|
%I #23 Jan 27 2023 05:55:52
%S 1129,1951,2311,2557,3229,3469,3739,3967,4027,5449,6427,7129,8017,
%T 9349,9439,9697,10039,10111,10369,10567,11329,11527,12049,12301,13729,
%U 13807,14221,14347,15031,15937,17137,17209,17761,18097,18979,19819,19867,19891
%N Primes p such that q-p = 22, where q is the next prime after p.
%C Smaller of 2 consecutive primes with a difference of 22: primes p such that p+22 is the next prime.
%H Remi Eismann, <a href="/A061779/b061779.txt">Table of n, a(n) for n = 1..10000</a>
%H K. Soundararajan, <a href="https://doi.org/10.1090/S0273-0979-06-01142-6">Small gaps between prime numbers: the work of Goldston-Pintz-Yildirim</a>, Bull. Amer. Math. Soc., 44 (2007), 1-18.
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%e 1129 is a term as the next prime is 1151.
%t Transpose[Select[Partition[Prime[Range[2300]], 2, 1], Last[#] - First[#] == 22 &]][[1]] (* _Bruno Berselli_, Apr 09 2013 *)
%t r = Prime@Range@2300; r[[Flatten@Position[Differences@r, 22]]] (* _Hans Rudolf Widmer_, Jan 21 2023 *)
%o (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
%o (Magma) [p: p in PrimesUpTo(20000) | NextPrime(p)-p eq 22]; // _Bruno Berselli_, Apr 09 2013
%K nonn
%O 1,1
%A _Amarnath Murthy_, May 23 2001
%E Corrected and extended by _Patrick De Geest_, May 26 2001
%E Entry revised by _N. J. A. Sloane_, Jan 26 2007
|
