OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
3+5+11=19; 11-(3+5)=3, 5+11+13=29; 13-(5+11)=-3, 11+13+17=41; 17-(11+13)=-7, 13+17+23=53; 23-(13+17)=-7,... .
MAPLE
R:= 3, 5: count:= 2:
a:= 3: b:= 5:
for x from b+2 by 2 while count < 100 do
if isprime(a+b+x) and isprime(abs(x-(a+b))) then
R:= R, x; a:= b; b:= x; count:= count+1;
fi
od:
R; # Robert Israel, Nov 29 2023
MATHEMATICA
a=3; b=5; lst={a, b}; Do[c=Prime[n]; p1=c+a+b; p2=c-(a+b); If[PrimeQ[p1]&&PrimeQ[p2], AppendTo[lst, c]; a=b; b=c], {n, 5, 9!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 10 2009
EXTENSIONS
NAME adapted to offset. - R. J. Mathar, Jun 19 2021
Corrected and extended by Robert Israel, Nov 29 2023
STATUS
approved