OFFSET
1,1
COMMENTS
11 - 7 = 4 = double 2, the first entry in the table.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R:= NULL: count:= 0:
q:= 2: p:= 3:
while count < 100 do
q:= p; p:= nextprime(p);
if isprime((p-q)/2) then
count:= count+1; R:= R, p-q
fi
od:
R; # Robert Israel, Jun 05 2018
MATHEMATICA
Select[Differences[Prime[Range[500]]], PrimeQ[#/2]&] (* Harvey P. Dale, Jan 31 2020 *)
PROG
(PARI) f(n) = for(x=1, n, y=prime(x+1)-prime(x); if(isprime(y\2), print1(y", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Sep 09 2004
STATUS
approved