OFFSET
1,1
COMMENTS
41+43+47=171,...
MATHEMATICA
a=41; b=43; lst={a, b}; Do[c=Prime[n]; p=a+b+c; If[PrimeQ[p], AppendTo[lst, c]; a=b; b=c], {n, 15, 5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 10 2009
EXTENSIONS
NAME adapted to offset. - R. J. Mathar, Jun 19 2021
STATUS
approved