OFFSET
1,1
COMMENTS
Except for 5 & 13, all of the terms here are in A002386 "Increasing gaps between primes ..." at positions 1, 2, 3, 4, 6, 10, 14, 17, 21, 24 & 39. - Robert G. Wilson v, Dec 30 2006
LINKS
Eric Weisstein's World of Mathematics, Prime Gaps
EXAMPLE
a(9)=31397 because g=72 and sqrt(g)*exp(sqrt(g))=41093.88... > 31397.
MATHEMATICA
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ@k, k++ ]; k] lst = {}; p = 2; Do[q = NextPrim@p; g = q - p; If[p < Sqrt[g]*Exp[Sqrt[g]], Print@p; AppendTo[lst, p]]; p = q, {n, 1235000000}] (* Robert G. Wilson v, Dec 30 2006 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Rémi Eismann, Dec 13 2006
EXTENSIONS
a(13) from Robert G. Wilson v, Dec 30 2006
STATUS
approved