OFFSET
1,1
COMMENTS
All terms == 1 mod 6. - Zak Seidov, Dec 21 2012
Minimal difference is 102, see A289908. - Zak Seidov, Apr 02 2018
LINKS
EXAMPLE
396733 is included because the next larger prime is 396833.
MAPLE
Primes:= select(isprime, [2, seq(2*i+1, i=1..5*10^6)]):
X:= Primes[2..-1] - Primes[1..-2]:
J:=select(t -> X[t]=100, [$1..nops(X)]):
Primes[J]; # Robert Israel, Jun 29 2015
MATHEMATICA
Select[Partition[Prime[Range[600000]], 2, 1], #[[2]]-#[[1]]==100&][[All, 1]] (* Harvey P. Dale, Aug 14 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Harvey P. Dale, Dec 22 1999
EXTENSIONS
More terms from Frank Ellermann, Jan 18 2002
STATUS
approved