OFFSET
1,1
COMMENTS
Upper primes after a prime gap of 6 or larger (Union of A031925, A031927, A031929, ...) - R. J. Mathar, Mar 15 2012
LINKS
Bill McEachen, Table of n, a(n) for n = 1..10000
FORMULA
a(n) ~ n log n. - Charles R Greathouse IV, Oct 27 2021
EXAMPLE
29 is a term because 29 follows the odd nonprime 27 which in turn follows the odd nonprime 25.
MATHEMATICA
Select[Range[5, 1000, 2], PrimeQ[#]&&!PrimeQ[#-2]&&!PrimeQ[#-4]&] (* Vladimir Joseph Stephan Orlovsky, Feb 03 2012 *)
PROG
(PARI) forprime(p=5, 600, if(!isprime(p-2) && !isprime(p-4), print1(p, ", "))); \\ Joerg Arndt, Oct 27 2021
(PARI) list(lim)=my(v=List(), p=23); forprime(q=29, lim, if(q-p>4, listput(v, q)); p=q); Vec(v) \\ Charles R Greathouse IV, Oct 27 2021
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Oct 08 2007
EXTENSIONS
Name corrected by Michel Marcus and Amiram Eldar, Oct 27 2021
STATUS
approved