%I #11 Jun 06 2013 22:41:46

%S 3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,

%T 103,109,113,127,131,139,151,157,163,167,173,181,193,199,211,233,241,

%U 251,257,263,271,283,293,317,331,337,353,359,367,373,383,389,401,409

%N Primes p followed by prime gap of length log(p/log(p)^2)^2.

%C Primes followed by unusually long prime gaps.

%H Charles R Greathouse IV, <a href="/A211075/b211075.txt">Table of n, a(n) for n = 1..4139</a>

%t Select[Prime[Range[200]], NextPrime[#] - # > Log[#/Log[#]^2]^2 &] (* _Alonso del Arte_, Jun 02 2013 *)

%o (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)

%Y Cf. A211073, A002386, A082885, A111943, A182315.

%K nonn

%O 1,1

%A _Charles R Greathouse IV_, May 06 2012