OFFSET
1,1
MATHEMATICA
a=3; b=5; lst={a, b}; Do[Do[If[PrimeQ[q]&&PrimeQ[a+b+q]&&q!=b, c=q; Break[]], {q, a+2, 9!, 2}]; AppendTo[lst, c]; a=b; b=c, {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 22 2009
STATUS
approved