OFFSET
1,1
COMMENTS
19=7+11+1, 31=13+17+1, 43=19+23+1, 53=23+29+1, 79=37+41+1, 101=47+53+1, ...
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
count:= 0: R:= NULL: p:= 2:
while count < 100 do
q:= p; p:= nextprime(p);
if p-q > 2 and isprime(p+q+1) then
count:= count+1; R:= R, p+q+1
fi
od:
R; # Robert Israel, May 13 2020
MATHEMATICA
lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; a=p0+p1+1; If[PrimeQ[a]&&(p1-p0)>2, AppendTo[lst, a]], {n, 6!}]; lst
Select[Total[#]+1&/@Select[Partition[Prime[Range[200]], 2, 1], Last[#]-First[#]>2&], PrimeQ] (* Harvey P. Dale, Mar 13 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 11 2009
EXTENSIONS
Definition corrected by Harvey P. Dale, Mar 13 2011.
STATUS
approved