|
%I #6 Jul 30 2020 13:22:07
%S 887,1129,1327,1637,1669,1951,2179,2311,2477,2557,2971,3089,3137,3229,
%T 3271,3413,3469,3739,3947,3967,4027,4177,4297,4523,4759,4831,5119,
%U 5237,5351,5449,5531,5591,5717,5749,5903,5953,5987,6173,6397,6427,6491,6737
%N Primes with gap to the next prime no less than 20.
%C Includes all terms of A031938.
%H Harvey P. Dale, <a href="/A164513/b164513.txt">Table of n, a(n) for n = 1..5000</a>
%t (*M6*)a=2;S={};Do[b=NextPrime[a];If[b-a>=20,AppendTo[S,a]];a=b,{2000}];S
%t Select[Partition[Prime[Range[1000]],2,1],#[[2]]-#[[1]]>19&][[All,1]] (* _Harvey P. Dale_, Jul 30 2020 *)
%Y Cf. A031938 Lower prime of a difference of 20 between consecutive primes.
%K nonn
%O 1,1
%A _Zak Seidov_, Aug 14 2009
|
