OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[(PrimeQ[p-2]||PrimeQ[p+2])&&(PrimeQ[p-4]||PrimeQ[p+4])&&(PrimeQ[p-6]||PrimeQ[p+6])&&(PrimeQ[p-8]||PrimeQ[p+8])&&(PrimeQ[p-10]||PrimeQ[p+10])&&(PrimeQ[p-12]||PrimeQ[p+12]), AppendTo[lst, p]], {n, 10!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 04 2008
STATUS
approved