OFFSET
1,1
MATHEMATICA
t = {}; p = 2*3*5*7; Do[ If[ PrimeQ[Prime[p*n] - p*3n] && PrimeQ[Prime[p*n] - p*2n] && PrimeQ[Prime[p*n] - p*n] && PrimeQ[Prime[p*n] + p*n] && PrimeQ[Prime[p*n] + p*2n] && PrimeQ[Prime[p*n] + p*3n], AppendTo[t, n]], {n, 17 106}]; p*t
PROG
(PARI) list(lim) = {my(k = 0, q); forprime(p = 1, lim, k++; q = 1; for(i = -4, 4, if(i != 0 && !isprime(p + i*k), q = 0; break)); if(q, print1(k, ", "))); } \\ Amiram Eldar, Jul 12 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 20 2005
EXTENSIONS
a(4)-a(23) from Amiram Eldar, Jul 12 2025
STATUS
approved
