OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
3+5=8,8-3=5(prime),8+3=11(prime),..
MAPLE
q:= 2; p:= 3;
count:= 0:
while count < 100 do
q:= p; p:= nextprime(p);
s:= q+p;
if isprime(s-3) and isprime(s+3) then
count:= count+1; A[count]:= s;
fi
od:
seq(A[i], i=1..count); # Robert Israel, Oct 25 2017
MATHEMATICA
q=3; Select[Table[Prime[n]+Prime[n+1], {n, 7!}], PrimeQ[ #-q]&&PrimeQ[ #+q]&]
Select[Total/@Partition[Prime[Range[1400]], 2, 1], AllTrue[#+{3, -3}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 04 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 16 2010
STATUS
approved