OFFSET
1,1
COMMENTS
Primes followed by unusually long prime gaps.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..4139
MATHEMATICA
Select[Prime[Range[200]], NextPrime[#] - # > Log[#/Log[#]^2]^2 &] (* Alonso del Arte, Jun 02 2013 *)
PROG
(PARI) G=1; p=3; forprime(q=5, 1e7, if(q-p>=G, G=log(p/log(p)^2)^2; if(q-p>=G, print1(p", "))); p=q)
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, May 06 2012
STATUS
approved