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