|
%I #14 Mar 13 2020 16:46:22
%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,
%T 97,101,103,107,109,127,131,137,149,151,157,163,167,173,179,191,193,
%U 197,223,227,229,233,239,251,257,263,269,271,277,281,307,311,313,331,347,349,353
%N Primes p such that q-p <= 8, where q is the next prime after p.
%H Harvey P. Dale, <a href="/A124591/b124591.txt">Table of n, a(n) for n = 1..1000</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>
%t Transpose[Select[Partition[Prime[Range[200]],2,1],#[[2]]-#[[1]]<9&]][[1]] (* _Harvey P. Dale_, Jan 22 2013 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Dec 19 2006
|
