OFFSET
1,1
MATHEMATICA
s=""; q=1; For[i=2, i<10^2, p=Prime[i]; For[a=2, a<p, If[PrimeQ[p-a]&&PrimeQ[p+a], For[b=a+2, b<p, If[PrimeQ[p-b]&&PrimeQ[p+b], For[c=b+2, c<p, If[PrimeQ[p-c]&&PrimeQ[p+c], For[d=c+2, d<p, If[p>q&&PrimeQ[p-d]&&PrimeQ[p+d], (*Print[p, ":", a, ", ", b, ", ", c, ", ", d]; *)s=s<>ToString[p]<>", "; q=p]; d=d+2]]; c=c+2]]; b=b+2]]; a=a+2]; i++ ]; Print[s]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 27 2008; corrected May 02 2008
STATUS
approved