OFFSET
1,1
COMMENTS
Note that "single" means both non-twin and not 2.
LINKS
Todor Szimeonov, Primes - four conjectures
MATHEMATICA
c = cm = s1 = 0; p = 3; q = 5; s = {}; Do[If[c == 0, s1 = q]; r = NextPrime[q]; If[r > q + 2 && q > p + 2, c++, c = 0]; If[c > cm, cm = c; AppendTo[s, s1]]; p = q; q = r, {10^4}]; s (* Amiram Eldar, Oct 25 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Todor Szimeonov, Oct 23 2020
EXTENSIONS
More terms from Amiram Eldar, Oct 25 2020
STATUS
approved