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
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 14 2009
STATUS
approved