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,1

Comments

Includes all terms of A031938.

Links

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

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

Crossrefs

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

Sequence in context: A020393 A103811 A190354 * A031938 A165504 A351667

Adjacent sequences: A164510 A164511 A164512 * A164514 A164515 A164516

Keyword

nonn

Author

Zak Seidov, Aug 14 2009

Status

approved