|
|
A182315
|
|
Primes prime(n) such that prime(n+1) - prime(n) > log(n)^2.
|
|
4
|
|
|
2, 3, 5, 7, 13, 23, 31, 113, 1327, 31397, 370261, 492113, 2010733, 20831323, 25056082087, 42652618343, 2614941710599, 19581334192423
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Using terms of A002386, a(19) is probably 218209405436543. - T. D. Noe, Apr 24 2012
|
|
LINKS
|
|
|
MATHEMATICA
|
t = {}; Do[If[Prime[n + 1] - Prime[n] > Log[n]^2, AppendTo[t, Prime[n]]], {n, 10000}]; t (* T. D. Noe, Apr 24 2012 *)
|
|
PROG
|
(PARI) n=0; G=1; p=2; forprime(q=3, 1e8, n++; if(q-p>=G&&q-p>log(n)^2, G=ceil(log(n)^2); print1(p", ")); p=q) \\ Charles R Greathouse IV, Apr 24 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|