login
A145214
Primes of the form : (n plus OR minus 2 = prime) and (n plus OR minus 4 = prime) and (n plus OR minus 6 = prime) ...and (n plus OR minus 12 = prime).
0
19, 5651, 88811, 165709, 284741, 626621, 855731, 1068709, 1146791, 6561011, 7540451, 8573441, 11900509, 15760099, 17843471, 18504379, 19089611, 21036139, 24001721, 25658449, 39431929, 42981941, 43534031, 45002599
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
STATUS
approved