OFFSET
1,1
MATHEMATICA
a=3; b=5; c=11; d=19; lst={a, b, c, d}; Do[z=a+b+c+d+n; If[PrimeQ[z]&&n>b&&PrimeQ[n], AppendTo[lst, n]; a=b; b=c; c=d; d=n], {n, 0, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 17 2008
STATUS
approved