OFFSET
1,1
COMMENTS
Is lim superior(q[n])=+infinity? See A082892.
FORMULA
a(n)=Min{p[x]; (p[x+1]-p[x])/log(p[x])>n}
EXAMPLE
n=1319945: p[n+1]=20831533, p[n]=20831323, d=210, log[20831321]=16.852, q=210/16.852=12.4615>12 and first for >11 too.
MATHEMATICA
Do[s=(Prime[n+1]-Prime[n])/Log[Prime[n]]//N; If[s>11, Print[{n, Prime[n], Prime[n+1], s, Log[Prime[n]]//N}]], {n, 1000000, 100000000}]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Labos Elemer, Apr 17 2003
STATUS
approved