OFFSET
1,1
MATHEMATICA
lst={}; Do[If[(PrimeQ[n-1]||PrimeQ[n+1])&&(PrimeQ[n-3]||PrimeQ[n+3])&&(PrimeQ[n-5]||PrimeQ[n+5])&&(PrimeQ[n-7]||PrimeQ[n+7])&&(PrimeQ[n-9]||PrimeQ[n+9])&&(PrimeQ[n-11]||PrimeQ[n+11]), AppendTo[lst, n]], {n, 10!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 04 2008
STATUS
approved