A164513 Primes with gap to the next prime no less than 20.

887, 1129, 1327, 1637, 1669, 1951, 2179, 2311, 2477, 2557, 2971, 3089, 3137, 3229, 3271, 3413, 3469, 3739, 3947, 3967, 4027, 4177, 4297, 4523, 4759, 4831, 5119, 5237, 5351, 5449, 5531, 5591, 5717, 5749, 5903, 5953, 5987, 6173, 6397, 6427, 6491, 6737

Offset: 1

Author

Zak Seidov, Aug 14 2009

Keywords

• nonn

Comments

Includes all terms of A031938.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A031938 Lower prime of a difference of 20 between consecutive primes.

Programs

Mathematica

(*M6*)a=2;S={};Do[b=NextPrime[a];If[b-a>=20,AppendTo[S,a]];a=b,{2000}];S
Select[Partition[Prime[Range[1000]],2,1],#[[2]]-#[[1]]>19&][[All,1]] (* Harvey P. Dale, Jul 30 2020 *)