OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
t0:=[];
t1:=[];
t2:=[];
t3:=[];
for i from 1 to 1000 do
t3:=ithprime(i)+ithprime(i+1)+ithprime(i+2);
if isprime(t3) then
t0:=[op(t0), i];
t1:=[op(t1), ithprime(i)];
t2:=[op(t2), ithprime(i+1)];
t3:=[op(t2), ithprime(i+2)];
fi;
od:
t2;
MATHEMATICA
lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; p2=Prime[n+2]; If[PrimeQ[p0+p1+p2], AppendTo[lst, p1]], {n, 6!}]; lst
Select[Partition[Prime[Range[200]], 3, 1], PrimeQ[Total[#]]&][[All, 2]] (* Harvey P. Dale, May 08 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 05 2008
STATUS
approved