OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 370261 : Nextprime = 370373 : Gap = 370373 - 370261 = 112 which is greater than 100.
a(2) = 492113 : Nextprime = 492227 : Gap = 492113 - 492227 = 114 which is greater than 100.
MAPLE
count:= 0:
x:= 1:
while count < 40 do
y:= prevprime(x+101);
if y = x then
count:= count+1; A[count]:= x;
x:= nextprime(x+101);
else
x:= y;
fi
od:
seq(A[i], i=1..count); # Robert Israel, Dec 26 2014
MATHEMATICA
postGaps = {}; Do[k = Prime[n]; If[NextPrime[k] > (k + 100), AppendTo[postGaps, k]], {n, 250000}]; postGaps
Prime[#]&/@Flatten[Position[Differences[Prime[Range[235000]]], _?(#> 100&)]] (* Harvey P. Dale, Sep 30 2018 *)
PROG
(PARI) s=[]; forprime(p=2, 500000, if(nextprime(p+1)>(p+100), s=concat(s, p))); s
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Dec 22 2014
STATUS
approved